Cobrebemx X Sicred banco 748

[Luiz Fernando]

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

[edutraini]

Bom dia, vc ja tentou usar a mrboleto la tem esse banco

 

[marcioe]

tente usar a ACBR, esquece cobrebem.

[Luiz Fernando]

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

[fladimir]

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

[Luiz Fernando]

Fladimir muito obrigado pela força, exatamente o que precisava.

 

Abraços

[Luiz Fernando]

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

[fladimir]

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.

 

 

[Luiz Fernando]

			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

 

 

[fladimir]

Q bom q deu certo e obrigado por compartilhar.