Histórico da Página

O ponto de entrada AF240CLA é chamado é executado ao final do processo de Classificação de Bens.

Este ponto de entrada pode ser utilizado para a gravação de dados adicionais do bem.

#INCLUDE "Protheus.ch"
User Function AF240CLA()

Local dDtAquiN3 := SN3->N3_AQUISIC //Armazeno na variável o conteúdo do SN3->N3_AQUISIC
Local dDtAquiN1 := SN1->N1_AQUISIC //Armazeno na variável o conteúdo do SN1->N1_AQUISIC

If dDtAquiN1 <> dDtAquiN3 //Caso as datas estejam divergentes informo ao usuário
lRet := MsgYesNo("Datas de aquisições divergentes (N1_AQUISIC/N3_AQUISIC), deseja gravar com datas semelhantes?","Datas de Aquisições")
If lRet //Caso o usuário selecione a opção "sim" o sistema irá gravar ambos campos com o mesmo conteúdo
RecLock("SN3")
SN3->N3_AQUISIC := dDtAquiN1
EndIf
EndIf

Return .T.Ponto de Entrada executado ao final do processo de Classificação de Bens
Alert("Ponto de Entrada executado ao final do processo de Classificação de Bens")
Return

Português(Brasil)

Todas

Todos

Todas

ATFA240.PRW