Línea de producto: | Microsiga Protheus® |
|---|---|
Segmento: | Servicios |
Módulo: | Financiero |
Rutina: | FINA080 - Baja por pagar manual |
Punto de entrada para validar el banco, agencia y cuenta en el momento de la digitación en la pantalla de bajas por pagar manual.
Se ejecuta por medio de la rutina FINA080 en las operaciones de:
- 4: Baja manual; o
- 5: Baja en lote.
Objetivo: Complementar las validaciones existentes en el momento de la digitación del banco
03. PARÁMETROS
Nombre | Tipo | Descripción |
PARAMIXB[1] | Carácter | Código del banco. |
PARAMIXB[2] | Carácter | Agencia. |
PARAMIXB[3] | Carácter | Número de la cuenta. |
Tipo | Descripción |
Lógico | Determina si la operación proseguirá. |
#INCLUDE "TOTVS.CH"
USER FUNCTION F080KCO() as Logical
Local cBanco := ParamIXB[1] as Character// Codigo del banco
Local cAgencia := ParamIXB[2] as Character // Número de la agencia
Local cNumConta := ParamIXB[3] as Character // Número de la cuenta
Local lRet := .T. as Logical
lRet := FWAlertYesNo("Permite el banco: " + AllTrim(cBanco),"Punto de de entrada F080KCO")
Return lRet