F820Bco - Ajuste de dados das contas bancárias selecionadas no LCDPR

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Ponto de entrada para poder se ajustar dados nas contas selecionadas no Wizard do Livro Caixa Digital do Produtor Rural antes da impressão dessas no arquivo.

03. SOLUÇÃO

Ponto de entrada (PE) F820Bco criado para possibilitar ajustes nos dados das contas selecionados na extração do arquivo do LCDPR, antes que essas sejam impressas no arquivo.

Exemplo:

Compilar a função de usuário:

#Include "Protheus.ch"
#Include "rwmake.ch"

User Function F820Bco()
 
    Local aBco  := PARAMIXB[1] // Array com os bancos selecionados no Wizard do LCDPR.
        /*
            aBco[1] = Cód. da Conta (A6_COD)
        	aBco[2] - Agência
	        aBco[3] - Núm. da Conta
	        aBco[4] - Díg. verificador da conta
	        aBco[5] - Filial
	        aBco[6] - País
            
            e para Extrator com data superior à 15/04/21 e campo A6_BCOOFI criado
            aBco[7] = Cód. oficial do banco no BACEN
        */
    Local nI    := 0
        
        For nI := 1 To Len(aBco)
			If "-" $ aBco[nI][3]
				aBco[nI][3] := StrTran(aBco[nI][3], "-", "")
			EndIf
		Next
        
Return aBco

Onde o 'aBco' recebido por parâmetro é o próprio Array contendo todas as informações das contas selecionadas no Wizard (cód. da conta no cadastro de contas SA6, agência, número da conta bancária, etc).

O 'aBco' deve ser retornado com as devidas alterações realizadas para a correta geração do arquivo.

04. DEMAIS INFORMAÇÕES

Não se aplica.

05. ASSUNTOS RELACIONADOS

• LCDPR - Extrator do Livro Caixa Digital do Produtor Rural (FINA820)