Produto:

Microsiga Protheus®

Ocorrência:

Sistema apresentará Help CNTA100DTI, se a Data de inicio do Contrato for maior que a Data de Assinatura ou maior que Data Base. Conforme trecho abaixo:

Passo a passo:

lRet := (M->CN9_DTINIC >= dDataBase)

If lRet .And. !Empty(M->CN9_DTASSI)
lRet := (M->CN9_DTINIC > M->CN9_DTASSI)
EndIf
Help
If !lRet
Help(" ",1,"CNTA100DTI") //"Data de inicio invalida"