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 |