Histórico da Página

...

O ponto de entrada FA150CBR foi disponibilizado para que a geração do código de barras de títulos do Banco Itaú (341) possa ser alterada durante sua gravação.

Ele será executado durante a geração do arquivo de remessa CNAB.

...

Informações

title	Importante

Parâmetros:

ParamIXB[1] - CodBarras

Além dos parâmetros informados do parâmetro informado no ponto de entrada, pode-se utilizar de qualquer informação disponível do das tabelas Título a Pagar (SE1) e , Banco (SA6) e Parâmetros de Banco (SEE) que esta estão sendo processadoprocessadas, pois os registros estarão posicionados.

Retorno:

Nome	Tipo	Descrição	Obrigatório
cCodBar	Character	Composição do Código de Barras)	Sim

03. EXEMPLO DE UTILIZAÇÃO

...

Bloco de código

language	java
theme	Midnight
title	FBXL9816FA150CBR

#INCLUDE "PROTHEUSProtheus.CH"
 
User Function FBXL9816FA150CBR()
 
Local cChave  Local cCodBar := ParamIXB[1]

    Local dDtBaixa cCodAux := ParamIXB[2]
''
    Local dDtDebitocAux := ParamIXB[3]
Local dDtTaxa''
    Local cNosNum := dDataBase''
Local cAlias   Local nSeqCdBr := ""2
Local aArea   Local nFor := GetArea()
Local nTaxa0
    Local nTot := 0

    cNosNum := 0   

dDtTaxa:=dDtBaixa-2
 
If SA2->A2_TIPO=='X' .And. SE2->E2_MOEDA > 1
    dbSelectArea('SED')
    aAreaSED := SED->(GetArea())
    SED->(dbSetOrder(1))
    SED->(dbSeek(xFilial('SED')+SE2->E2_NATUREZ))
    If SED->ED_CALCIRF=='S'
        //-- Retorna taxa na data solicitada
        nTaxa:=RecMoeda(dDtTaxa,SE2->E2_MOEDA)
    EndIF
    RestArea(aAreaSED)
EndIF
 
RestArea(aArea)
Return(nTaxa)

04. DEMAIS INFORMAÇÕES

...

 "1" + Right(Alltrim(NossoNum()), 7) // Customização do NossoNum

    cCodBar := Left(cCodBar ,22) + cNosNum + Right(cCodBar, 14)

    //Gerar novo DAC MOD11
    cCodAux := Substring(cCodBar, 1, 4) + Substring(cCodBar, 6, 39)

    nSeqCdBr := 2
	For nFor := 1 To 43
		If nSeqCdBr > 9
			nSeqCdBr := 2
		Endif
		cAux := StrZero((nSeqCdBr * Val(Left(Right(cCodAux, nFor), 1))), 2)
		nTot += Val(cAux)
		nSeqCdBr += 1
	Next

	nTot := nTot % 11
	nTot := If(nTot == 0 .Or. nTot == 1 .Or. nTot == 10 .Or. nTot == 11, 1, 11 - nTot)

	cCodBar := Left(cCodAux, 4) + Str(nTot, 1) + Right(cCodAux, 39)

Return cCodBar

Templatedocumentos

HTML

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}
</style>

...

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão Atual

Chave

Parâmetros:

03. EXEMPLO DE UTILIZAÇÃO