| Línea de producto: | Línea Protheus |
|---|---|
| Segmento: | Backoffice |
| Módulo: | TOTVS Backoffice (Línea Protheus) - Financiero (SIGAFIN) |
| Función: | FINA090 - Bajas por pagar automática |
El punto de entrada FA090TIT se utilizará para la confirmación de la baja de los títulos marcados.
Se activará al hacer clic en Grabar después de la selección de los títulos y se irá ejecutando para cada título marcado, permitiendo validar la baja título por título.
La tabla SE2 estará filtrada y marcada en el título marcado.
Nombre | Tipo | Descripción |
cBanco | Carácter | Banco utilizado para bajar el título |
cAgencia | Carácter | Agencia utilizada para bajar el título |
cConta | Carácter | Cuenta utilizada para bajar el título |
cCheque | Carácter | Número del cheque |
Nombre | Tipo | Descripción |
lRet | Lógico | Devuelva .T. para confirmar la baja del título y .F. para no realizar la baja del título. |
#include "protheus.ch"
//-------------------------------------------------------------------
/*/{Protheus.doc} FA090TIT
Punto de entrada que permite confirmar o negar la baja de un título seleccionado
@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],"No utilizó 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