Línea de producto: | Microsiga Protheus® |
---|---|
Segmento: | Backoffice |
Módulo: | Financiero |
Función: | FINA050 - Cuentas por pagar FINA080 - Bajas por pagar manual FINA090 - Bajas por pagar automática FINA190 - Generación de cheques FINA390 - Cheques sobre títulos |
El punto de entrada PAGOBJCH tiene como finalidad permitir que el campo con el número de cheque quede deshabilitado para modificación del usuario.
Nombre | Tipo | Descripción |
---|---|---|
PARAMIXB[1] | Carácter | Número del banco. |
PARAMIXB[2] | Carácter | Número de la agencia bancaria. |
PARAMIXB[3] | Carácter | Número de la cuenta bancaria. |
PARAMIXB[4] | Carácter | Número del cheque. |
PARAMIXB[5] | Objeto | Objeto de la pantalla del campo cheque. |
PARAMIXB[6] | Lógico | Validación de banco (punto de entrada F080KCO). |
Tipo | Descripción |
---|---|
Lógico | Indica si el campo cheque puede editarse. |
#INCLUDE "TOTVS.CH" User Function PAGOBJCH() as logical Local _cBanco := PARAMIXB[1] as character Local _cAgencia := PARAMIXB[2] as character Local _cNumero := PARAMIXB[3] as character Local _cCheque := PARAMIXB[4] as character Local _oCheque := PARAMIXB[5] as object Local _lVldBanc := PARAMIXB[6] as logical Local lEditNCheq := .T. as logical If _cBanco == "999" .And. _cAgencia == "9999" .And. _cNumero == "999999" lEditNCheq := .F. EndIf Return lEditNCheq