O ponto de entrada AF240CLA é 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.

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.

Português(Brasil)

Todas

Todos

Todas

ATFA240.PRW