Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user RICHARD DE OLIVEIRA LOPES

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Usuário desconhecido (norbertom)

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

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 

#INCLUDE 'PROTHEUS.CH'

User function FA070TIT

USER FUNCTION FA070TIT()


    Local lRet := 

AS LOGICAL
    LOCAL lRet AS LOGICAL

    _SetOwnerPrvt('lMSErroAuto',.F.)

    IF lF070Auto
        lRet := .F.

    If MsgYesNo("Deseja baixar os títulos do cliente " + SE1

    ELSE
        lRet := MsgYesNo("Deseja baixar os títulos do cliente " + SE1->E1_

CLIENTE 

CLIENTE +

 

"?",

 

"Atenção")
   


        lRet := .T.
    EndIf
Return lRet

ENDIF

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

RETURN lRet