Linha Microsiga Protheus

Árvore de páginas

FA070TIT - Permite confirmar as baixas a receber.

Linha de Produto:

Microsiga Protheus

Versões/Release:

12

Rotina:

FINA070 Baixas a Receber

Ocorrência:

Exemplo do ponto de entrada FA070TIT

Parâmetros:Nenhum.
Retorno:Lógico.
Descrição:Permite confirmar as baixas a receber.

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