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