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 | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
Parâmetros:ParamIXB[1] - CodBarras
|
03. EXEMPLO DE UTILIZAÇÃO
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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> |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas