| Linha de Produto: | |
|---|---|
| Segmento: | |
| Módulo: | |
| Função: | FINA090 - Baixas a Pagar Automática |
O ponto de entrada FA090TIT será utilizado para a confirmação da baixa dos títulos marcados.
Será acionado ao clicar em Salvar após a seleção dos títulos e irá ser executado para cada título marcado, permitindo validar a baixa título a título.
A tabela SE2 estará filtrada e posicionada no título marcado.
Nome | Tipo | Descrição |
cBanco | Caracter | Banco utilizado para baixar o título |
cAgencia | Caracter | Agencia utilizada para baixar o título |
cConta | Caracter | Conta utilizada para baixar o título |
cCheque | Caracter | Número do cheque |
Nome | Tipo | Descrição |
lRet | Lógico | Retorne .T. para confirmar a baixa do título e .F. para não realizar a baixa do título. |
#include "protheus.ch"
//-------------------------------------------------------------------
/*/{Protheus.doc} FA090TIT
Ponto de entrada que permite confirmar ou negar a baixa de um título selecionado
@param Paramixb[1] – Banco
@param Paramixb[2] – Agencia
@param Paramixb[3] – Conta
@param Paramixb[4] – Cheque
//-------------------------------------------------------------------
User Function FA090TIT ()
Local lRet := .T.
Local cBcoPgto := PARAMIXB[1]
Local cAgcPgto := PARAMIXB[2]
Local cCtoPgto := PARAMIXB[3]
Local cCheqPgto := Iif(!Empty(PARAMIXB[4]),PARAMIXB[4],"Não utilizou cheque")
Local cTitulo := SE2->E2_PREFIXO + SE2->E2_NUM
lRet:= MsgYesNo("Confirmar a baixa do título " + cTitulo + CRLF + CRLF + ;
" No banco: " + cBcoPgto + CRLF + CRLF + ;
"Agencia: " + cAgcPgto + CRLF + CRLF + ;
"Conta: " + cCtoPgto + CRLF + CRLF +;
"Com o cheque: " + cCheqPgto ,"PE: FA090TIT")
Return lRet |