AF240CLA - Modifica datos después de la grabación

El punto de entrada AF240CLA se ejecuta al final del proceso de Clasificación de bienes.

Este punto de entrada puede utilizarse para la grabación de datos adicionales del bien.

User Function AF240CLA()

Local dDtAquiN3 := SN3->N3_AQUISIC //Almaceno en la variable el contenido de SN3->N3_AQUISIC
Local dDtAquiN1 := SN1->N1_AQUISIC //Almaceno en la variable el contenido de SN1->N1_AQUISIC

If dDtAquiN1 <> dDtAquiN3 //Si las fechas estuvieran divergentes informo al usuario
lRet := MsgYesNo("Fechas de adquisiciones divergentes (N1_AQUISIC/N3_AQUISIC), ¿desea grabar con fechas semejantes?","Fechas de adquisiciones")
If lRet //Si el usuario seleccionara la opción "sí" el sistema grabará ambos campos con el mismo contenido
RecLock("SN3")
SN3->N3_AQUISIC := dDtAquiN1
EndIf
EndIf

Return .T.

Portugués(Brasil)

Todas

Todos

Todas

ATFA240.PRW