Você está aqui: Início Fórum Protheus/Microsiga/Totvs AdvPL (Advanced Protheus Language) Pontos de Entrada Filtro para preparação documento de saida
  1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Pontos de Entrada
  9. Filtro para preparação documento de saida

Perguntas Filtro para preparação documento de saida

Mais
5 anos 2 semanas atrás #32693 por vcosta
Respondido por vcosta no tópico Filtro para preparação documento de saida
Luiz Alberto,
desculpe contactar novamente mas acredito que o ponto não seja este pois não acatou o filtro,
o que eu preciso é para o primeiro filtro (parametro)do documento de saida:

MT461A no X1

obrigado

Por favor Acessar ou Registrar para participar da conversa.

Mais
5 anos 2 semanas atrás - 5 anos 2 semanas atrás #32694 por lalberto
Respondido por lalberto no tópico Filtro para preparação documento de saida
Nao vai rolar, vc precisa filtrar vendedor né, este ponto de entrada m460fil velho ele filtra a sc9 apenas.
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Ultima edição: 5 anos 2 semanas atrás por lalberto.

Por favor Acessar ou Registrar para participar da conversa.

Mais
5 anos 2 semanas atrás #32695 por lalberto
Respondido por lalberto no tópico Filtro para preparação documento de saida

vcosta escreveu: Luiz Alberto,
desculpe contactar novamente mas acredito que o ponto não seja este pois não acatou o filtro,
o que eu preciso é para o primeiro filtro (parametro)do documento de saida:

MT461A no X1

obrigado


Brother, pra filtrar vendedor, vc vai ter que criar ponto de entrada para salvar o código do vendedor na sc9, e assim poder filtrar, segue um link do supeerp que encontrei que talvez te ajude.

supeerp.com.br/forum/display_topic_threa...umID=7&TopicID=37732
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Os seguintes usuário(s) disseram Obrigado: maiconlc138

Por favor Acessar ou Registrar para participar da conversa.

Mais
4 anos 10 meses atrás #32734 por maiconlc138
Respondido por maiconlc138 no tópico Filtro para preparação documento de saida
Olá. Gostaria de agradecer a todos que alimentaram esse tópico, pois este foi de grande valia para uma necessidade que se apresentou na empresa que trabalho.

Nós atendemos montadoras por meio de transmissão EDI e nossa equipe de faturamento solicitou a possibilidade de filtrar os pedidos pela Data e o horário da Coleta dos mesmos.
Para tal, adicionei 3 perguntas na MT461A:
- Considera Data da Coleta (MV_PAR17)
- Data da Coleta (MV_PAR18)
- Hora da Coleta (MV_PAR19)

IMPORTANTE: Os campos utilizados para essa tratativa são customizados:
- C9_ZZDTENT = Data da Coleta
- C9_ZZHRENT = Hora da Coleta

Foi necessário utilizar dois pontos de entrada que trabalham em conjunto:
M460FIL
M460QRY

Problema: Selecionar somente os pedidos referentes a data e hora de coleta necessário
Solução: Modificar o filtro padrão da rotina MATA460A para acrescentar os parâmetros passados no ponto de entrada
Método:
A rotina chama a pergunta, dentro desta coloquei um item que questiona se o filtro irá considerar a data e hora de coleta.
Se sim, ele recebe a data e hora de coleta para o filtro
Se não, ele continua com o filtro padrão da rotina.
#include "RwMake.ch"
/*
      FONTE:
            http://helpfacil.com.br/forum/display_topic_threads.asp?ForumID=1&TopicID=35216&PagePosition=6
            http://tdn.totvs.com/pages/releaseview.action?pageId=6784179
            http://www.supeerp.com/forum/display_topic_threads.asp?ForumID=1&TopicID=29618
*/
User Function M460FIL()
Local cFiltro := ""
      If cValToChar(MV_PAR17) == '1'
            cFiltro += " DToS(C9_ZZDTENT) = '" + DToS(MV_PAR18) + "' .AND. C9_ZZHRENT = ' " + MV_PAR19 + "'"
      Else
            cFiltro += " C9_PEDIDO <> '' " //D_E_L_E_T_ = '' .or. R_E_C_N_O_ > 0
      EndIf
     
Return cFiltro
#include "rwmake.ch"
#include "topconn.ch"
/*FONTE:
      http://masteradvpl.com.br/index.php/forum/pontos-de-entrada/17594-filtro-para-preparacao-documento-de-saida?start=0
      http://tdn.totvs.com/pages/releaseview.action?pageId=6784197
*/
User Function M460QRY()
Local cQuery := ParamIXB[1]
/*PERGUNTA: MT461A - Acrescentei duas perguntas: Data Coleta [Data] e Hora Coleta [Caracter @999999 ]*/
      
      If cValToChar(MV_PAR17) == '1'
            cQuery += " AND EXISTS (SELECT C9_PEDIDO FROM " + RetSqlName("SC9") + " SC9 WHERE SC9.C9_FILIAL = '" + xFilial("SC9") + "' AND SC9.D_E_L_E_T_ = '' AND SC9.C9_ZZDTENT = '" + DToS(MV_PAR18) + "' AND LTRIM(SC9.C9_ZZHRENT) = '" + MV_PAR19 + "')"
//    Else
//          cQuery := cQuery
      EndIf
Return cQuery

Muito obrigado por compartilhar o conhecimento de vocês.

Por favor Acessar ou Registrar para participar da conversa.

  1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Pontos de Entrada
  9. Filtro para preparação documento de saida
Tempo para a criação da página:0.128 segundos
Joomla templates by a4joomla