Histórico da Página

Versões/Release:

12

Ocorrência:

Exemplo do ponto de entrada FA070TIT

Exemplo:

#INCLUDE 'PROTHEUS.CH'

USER FUNCTION FA070TIT() AS LOGICAL
    LOCAL lRet AS LOGICAL

    _SetOwnerPrvt('lMSErroAuto',.F.)

    IF (TYPE("lF070Auto") == "L" .AND. lF070Auto) .OR. ISBLIND()
        lRet := .F.
    ELSE
        lRet := MsgYesNo("Deseja baixar os títulos do cliente " + SE1->E1_CLIENTE + "?", "Atenção")
    ENDIF

    IF !lRet
        AutoGrLog('Falha na validação do ponto de entrada FA070TIT')
    ENDIF

RETURN lRet