- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ponto de Entrada no documento de entrada para atualizar campos da SE2.
×
Linguagem de Programação ADVPL
Perguntas Ponto de Entrada no documento de entrada para atualizar campos da SE2.
- Marcelo Evangelista
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 61
- Obrigados Recebidos: 0
11 anos 9 meses atrás #10439
por Marcelo Evangelista
Ponto de Entrada no documento de entrada para atualizar campos da SE2. foi criado por Marcelo Evangelista
Pessoal estou utilizando o controle de alçadas no financeiro!!!
Então através de um parâmetro defino que todos os meus títulos devem passar por liberação de baixa.
porem conforme a necessidade do cliente os títulos gerados pelo Doc. de Entrada teriam que vir liberados.
O campo que controla essa situação e o campo E2_DATALIB, gostaria que quando confirma-se o documento de entrada esse campo já preenche-se com a data de emissão do Doc. de Entrada.
Alguem teria alguma ideia?
Atenciosamente.
Então através de um parâmetro defino que todos os meus títulos devem passar por liberação de baixa.
porem conforme a necessidade do cliente os títulos gerados pelo Doc. de Entrada teriam que vir liberados.
O campo que controla essa situação e o campo E2_DATALIB, gostaria que quando confirma-se o documento de entrada esse campo já preenche-se com a data de emissão do Doc. de Entrada.
Alguem teria alguma ideia?
Atenciosamente.
Por favor Acessar ou Registrar para participar da conversa.
- Marcelo Evangelista
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 61
- Obrigados Recebidos: 0
11 anos 9 meses atrás #10442
por Marcelo Evangelista
Respondido por Marcelo Evangelista no tópico Ponto de Entrada no documento de entrada para atualizar campos da SE2.
Pessoal resolvido utilizei o ponto de entrada: MT100GE2 e usei o seguinte codigo.
User Function MT100GE2()
SD1->(DbSelectArea("SD1"))
SD1->(DbSetOrder(1))
SD1->(DbGotop())
SD1->(DbSeek(xFilial("SD1") + SF1->(F1_DOC+F1_SERIE+F1_FORNECE+F1_LOJA)) )
SE2->(DbSelectArea("SE2"))
Se2->(RecLock("SE2"))
SE2->E2_DATALIB := SD1->D1_EMISSAO
SE2->(MsUnLock())
Return()
User Function MT100GE2()
SD1->(DbSelectArea("SD1"))
SD1->(DbSetOrder(1))
SD1->(DbGotop())
SD1->(DbSeek(xFilial("SD1") + SF1->(F1_DOC+F1_SERIE+F1_FORNECE+F1_LOJA)) )
SE2->(DbSelectArea("SE2"))
Se2->(RecLock("SE2"))
SE2->E2_DATALIB := SD1->D1_EMISSAO
SE2->(MsUnLock())
Return()
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ponto de Entrada no documento de entrada para atualizar campos da SE2.
Tempo para a criação da página:0.137 segundos