Page tree
Skip to end of metadata
Go to start of metadata

Descrição

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

Observações

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

Exemplos

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.

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Programa Fonte

ATFA240.PRW

  • No labels