F080KCO - Ponto de entrada para validar o banco em baixas manuais

01. DADOS GERAIS

Linha de Produto:	Microsiga Protheus®
Segmento:	Serviços
Módulo:	Financeiro
Rotina:	FINA080 - Baixa a Pagar Manual
ISSUE/Requisito:	DFINGRV-20916

02. DESCRIÇÃO

Ponto de entrada para validar o banco, agencia e conta no momento da digitação na tela de baixas a pagar manual.

Executado através da rotina FINA080 nas operações de:
- 4: Baixa manual; ou
- 5: Baixa em lote.
Objetivo: Complementar as validações já existentes no momento da digitação do banco

Importante

Parâmetros:

ParamIXB[1] - Código do banco
ParamIXB[2] - Agencia
ParamIXB[3] - Numero da conta

Retorno:

Nome	Tipo	Descrição	Obrigatório
lRet	Logico	Determina se a operação irá prosseguir	Sim

03. EXEMPLO DE UTILIZAÇÃO

F080KCO

#include "rwmake.ch"
#include "protheus.ch"
#INCLUDE "TBICONN.CH"

USER FUNCTION F080KCO()
    Local cBanco    := ParamIXB[1] // Codigo do banco
    Local cAgencia  := ParamIXB[2] // Numero da agencia
    Local cNumConta := ParamIXB[3] // Numero da conta
    Local lRet      := .T.

    If cBanco == "001"
        lRet := .F.
        MsgAlert("Banco bloqueado, utilizar outro banco","Aviso")
    Endif    
     
Return lRet

04. DEMAIS INFORMAÇÕES

Não há

05. ASSUNTOS RELACIONADOS