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 Atual

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() AS LOGICAL
    LOCAL lRet AS LOGICAL

    _SetOwnerPrvt('lMSErroAuto'


User function FA070TIT

,.F.)

    IF (TYPE("lF070Auto") == "L" .AND. lF070Auto) .OR. ISBLIND()

    Local lRet 

        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")
    ENDIF

   


        lRet := .T.
    EndIf
Return lRet

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

RETURN lRet