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