Boleto Sicredi

[dataset 0]

Prezados, boa tarde;

 

Desenvolvi o código fonte para gerar a Linha Digitável do banco Sicredi. Usei o Validador de Arquivos do Sicredi e até agora está tudo certo. Vou enviar os boletos para Homologação e quando a agência me retornar eu posto se está homologado ou não.

varZeros = "00000000000000000000"
numAno = Right(varZeros & Year(now), 2)

numConvenioCedente = Right(varZeros & numConvenioCedente,5)
codSeq = Right(varZeros & codSeq, 5)

nossoNumero = numAno & "2" & codSeq
NossoNumeroDiv = Modulo11(numAgenciaCedente & numCodPosto & numConvenioCedente & numAno & "2" & codSeq)

varCampoLivre = numCarteira & "1" & nossoNumero & NossoNumeroDiv & numAgenciaCedente & numCodPosto & numConvenioCedente & "1" & "0"
varCampoLivreDV = Modulo11(varCampoLivre)

varCampoLivre = varCampoLivre & varCampoLivreDV

divBarra = Modulo11(numBancoCedente & codMoeda & diasFatorVencimento & var_valor & varCampoLivre)

varCampo1 = numBancoCedente & codMoeda & numCarteira & "1" & Left(nossoNumero, 3) & Modulo10(numBancoCedente & codMoeda & numCarteira & "1" & Left(nossoNumero, 3))
varCampo2 = Right(nossoNumero, 5) & NossoNumeroDiv & numAgenciaCedente & Modulo10(Right(nossoNumero, 5) & NossoNumeroDiv & numAgenciaCedente)
varCampo3 = numCodPosto & numConvenioCedente & "1" & "0" & varCampoLivreDV & Modulo10(numCodPosto & numConvenioCedente & "1" & "0" & varCampoLivreDV)

sLinhaDigitavel =   Mid(varCampo1, 1, 5) & "." & Mid(varCampo1, 6, 10) & " " & _
   Mid(varCampo2, 1, 5) & "." & Mid(varCampo2, 6, 10) & " " & _
   Mid(varCampo3, 1, 5) & "." & Mid(varCampo3, 6, 10) & " " & _
   divBarra & " " & _
   diasFatorVencimento & var_valor

Abraços

 

[xanburzum 169]

Aparentemente está tudo OK para homologação