| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Backoffice |
| Módulo: | Financeiro |
| Função: | FINA050 - Contas a Pagar FINA080 - Baixas Pagar Manual FINA090 - Baixas Pagar Automática FINA190 - Geração de Cheques FINA390 - Cheques Sobre Títulos |
O ponto de entrada PAGOBJCH tem como finalidade permitir que o campo com número do cheque fique desabilitado para alteração do usuário.
| Nome | Tipo | Descrição |
|---|---|---|
| PARAMIXB[1] | Caracter | Número do banco. |
| PARAMIXB[2] | Caracter | Número da agência bancária. |
| PARAMIXB[3] | Caracter | Número da conta bancária. |
| PARAMIXB[4] | Caracter | Número do cheque. |
| PARAMIXB[5] | Objeto | Objeto de tela do campo cheque. |
| PARAMIXB[6] | Lógico | Validação de banco (ponto de entrada F080KCO). |
| Tipo | Descrição |
|---|---|
Lógico | Indica se o campo cheque pode ser editado. |
#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 |