Luiz Fernando Posted May 4, 2017 Report Share Posted May 4, 2017 Colegas alguém tem um modelo de como definir os dados para este banco, não consigo acertar o codigo de barra de forma alguma. estou fazendo assim BANCO = 748 AGENCIA = 0718.89 CONTA = 70003-6 CEDENTE = 7003 nosso numero inicia = 00001 nosso numero final = 99999 Obrigado Quote Link to comment Share on other sites More sharing options...
edutraini Posted May 5, 2017 Report Share Posted May 5, 2017 Bom dia, vc ja tentou usar a mrboleto la tem esse banco Quote Link to comment Share on other sites More sharing options...
marcioe Posted May 5, 2017 Report Share Posted May 5, 2017 tente usar a ACBR, esquece cobrebem. Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted May 5, 2017 Author Report Share Posted May 5, 2017 Colegas devido a urgência não tenho como estudar e mudar todo o sistema para uma nova solução no momento, preciso mesmo fazer pelo cobrebem acredito que deve ser algum detalhe bobo na configuração da conta acima. Obrigado Quote Link to comment Share on other sites More sharing options...
fladimir Posted May 5, 2017 Report Share Posted May 5, 2017 Segue exemplo usado para homologação SICREDI. ******************************************************************************** STATIC FUNCTION ExemploCBXBoleto() // SICREDI LOCAL oCBX, oBoleto FOR n := 1 to 10 Alert( 'Fazendo o Boleto de No. ' + strzero(n,3)) // Necessário efetuar download da lib TOleAuto em http://www.cobrebem.com/downloads/cbx/hbole.zip oCBX := TOleAuto():New("CobreBemX.ContaCorrente") * oCBX := CreateObject("CobreBemX.ContaCorrente") xTipo:= Valtype(oCBX) If Valtype( oCBX ) <> "O" Alert( "Erro...") Endif /* Nao usei oCBX:PadroesBoleto:PadroesBoletoImpresso:ArquivoLogotipo := VP_PATH+"Imagens\033.jpg" oCBX:PadroesBoleto:PadroesBoletoImpresso:Layoutboleto:=vp_path+"Imagens\PadraoReciboPersonalizado" oCBX:PadroesBoleto:PadroesBoletoImpresso:layoutboleto:=vp_path+"Imagens\PadraocomcomprovantedeEntrega.txt" *-- Para imprimir 3 em 1 folha oCBX:PadroesBoleto:PadroesBoletoImpresso:LayoutBoleto := "CarnetReciboLateralEsquerda" */ // Monta arquivo de licenca Sicredi 748 - tipo C = 03 Sem Registro oCBX:ArquivoLicenca := "c:\CobreBemX\81171215168-748-C.conf" // Outras Configuracoes oCBX:PadroesBoleto:PadroesBoletoImpresso:ArquivoLogotipo := curdirsys()+"Imagens\banner.gif" oCbx:PadroesBoleto:PadroesBoletoImpresso:margemsuperior:=00 oCBX:PadroesBoleto:PadroesBoletoImpresso:CaminhoImagensCodigoBarras := curdirsys()+"Imagens\" oCBX:PadroesBoleto:InstrucoesCaixa := ' Conceder desconto de 5%' //vn_mensagem oCBX:PadroesBoleto:Demonstrativo := ' Referentes a compras na WEB' //vn_mensagem // Monta dados da conta corrente oCBX:CodigoAgencia := "0901.05" oCBX:NumeroContaCorrente := "0002105-3" oCBX:CodigoCedente := "02105" nSequenciaNossoNumero := 300000 + n && n ‚ do FOR nSequenciaNossoNumero := STR( nSequenciaNossoNumero, 6 ) oCBX:OutroDadoConfiguracao1 := Left(nSequenciaNossoNumero,1) //-- Prefixo do Nosso Numero q varia de 2 a 9 (Sicredi) && Comecei com 3 pq o Programa do Sicredi... &&.. come‡a com 2 oCBX:OutroDadoConfiguracao2 := "3" //-- Tipo de Cobran‡a 1 = com Registro 3 Sem registro (Sicredi) oCBX:InicioNossoNumero := Right( nSequenciaNossoNumero, 5) //"00001" oCBX:FimNossoNumero := "99999" oCBX:ProximoNossoNumero := strzero(n+1,5) // "00002" oBoleto := oCBX:DocumentosCobranca:Add() // Para fazer o X mai£sculo MDados := oBoleto:MeusDados:Add() MDados:Nome := "NumeroBancoXMaiusculo" MDados:Valor := "X" // Monta dados do sacado oBoleto:NomeSacado := "Nome do Sacado TESTE" oBoleto:CPFSacado := '93115610115' oBoleto:EnderecoSacado := 'Rua Teste, 1023' oBoleto:BairroSacado := 'CENTRO' oBoleto:CidadeSacado := 'CIDADE' oBoleto:EstadoSacado := 'MS' oBoleto:CepSacado := '89823460' // Monta dados do documento de cobrança oBoleto:DataDocumento := TRANSF( Date() - 1 ,'@E 99/99/9999' ) //"02/05/2012" oBoleto:DataProcessamento := TRANSF( Date() ,'@E 99/99/9999' ) //"03/05/2012" oBoleto:DataVencimento := TRANSF( Date() + (15*n),'@E 99/99/9999' ) //"21/05/2012" oBoleto:NumeroDocumento := 'TESTE.'+ STRZERO(n,3) //"12345" oBoleto:ValorDocumento := n * 8 oBoleto:ValorDesconto := {'0','1'}[n%2+1] // se for par pega o ZERO se for Impar pega o 1 oBoleto:ValorjurosdiaAtraso := 0 //{'0','2'}[n%2+1] // se for par pega o ZERO se for Impar pega o 1 oBoleto:TipoDocumentoCobranca :='DI' oCBX:ImprimeBoletos() oCBX := NIL NEXT RETURN( NIL ) Espero q ajude. Abraço Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted May 5, 2017 Author Report Share Posted May 5, 2017 Fladimir muito obrigado pela força, exatamente o que precisava. Abraços fladimir 1 Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted May 22, 2017 Author Report Share Posted May 22, 2017 nSequenciaNossoNumero := STR( nSequenciaNossoNumero, 6 ) oCBX:OutroDadoConfiguracao1 := Left(nSequenciaNossoNumero,1) //-- Prefixo do Nosso Numero q varia de 2 a 9 Ola Fladimir não consigo acertar este código de barra nem a pau, viu no código acima vc pega o digito do nosso numero, seria isto? Obrigado Quote Link to comment Share on other sites More sharing options...
fladimir Posted May 22, 2017 Report Share Posted May 22, 2017 Vc tem a planilha de homologação do Sicredi? Caso não posso te enviar (não sei se pode anexar aki) Fora isto o q eu faço nessa parte é determinar a o "Prefixo" do nosso número q é variavel entre 2 e 9, nós q escolhemos, não tem controle sobre isto, na época q homologuei eles orientaram a usar do 3 em diante, pq o 2 eles usam no programa deles, então eu uso assim, o q começa com 3 é destinado a uma determinada situação no cliente exemplo, vendas externas, os q começam com 6 outra situação, pq como é livre a utilização entre 2 a 9 o prefixo, o q manda é o sequencial, exemplo: 2 00001 = prefixo 2 geralmente usado pela emissão própria do Sicredi, mas podemos usar tb, porém orientam usar do 3 em diante para não dar conflito então... faixa de numeração 3 00001, 3 00002, ... 3 00015, ... 3 99998, 3 99999, 4 00001 e por ai vai... até 9 99999 Qual o problema q ocorre? No meu caso eu starto a numeração inicial em 3 00000 e o sistema vai na sequencia. Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted November 27, 2017 Author Report Share Posted November 27, 2017 oBoleto:DataDocumento := TRANSF( Date() - 1 ,'@E 99/99/9999' ) //"02/05/2012" oBoleto:DataProcessamento := TRANSF( Date() ,'@E 99/99/9999' ) //"03/05/2012" O problema estava aqui,pois nunca tinha declarado estas variaveis, e no caso do sicredi elas são usado no calculo da linha digitavel. Obrigado Fladimir pela ajuda. Luiz Fernando empresoft@globo.com Quote Link to comment Share on other sites More sharing options...
fladimir Posted November 27, 2017 Report Share Posted November 27, 2017 Q bom q deu certo e obrigado por compartilhar. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.