Dúvida
Como alterar dados (exemplo: a data do título) de um título gerado pela rotina Purchase Order (ordem de compra) no módulo SIGAEIC?
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 12.1.17
Solução
Utilizar o ponto de entrada EICDUP.
Exemplo
// BIBLIOTECAS NECESSÁRIAS
#Include "TOTVS.ch
// PONTO DE ENTRADA
User Function EICDUPL()
// SE TIPO DO TÍTULO IGUAL A "PR",
// ALTERE A DATA DE EMISSÃO PARA 27/11/2018
// SE TIPO DO TÍTULO NÃO FOR IGUAL A "PR" E FOR IGUAL A "PRE",
// ALTERE A DATA DE EMISSÃO PARA 28/11/2018
If (cTipo =="PR")
dEmissao := CTod("27/11/2018")
ElseIf (cTipo =="PRE")
dEmissao := CTod("28/11/2018")
EndIf
Return (NIL) // RETORNO
Observação
O ponto de entrada EICPO400 (User Function EICPO400) não servirá para alterações como a acima reportada.
Saiba mais
EICDUPL - GRAVAÇÃO DOS TÍTULOS PR E PRE
0 Comentários