roberio Posted May 4, 2012 Report Share Posted May 4, 2012 amigos preciso implementar cobrança caixa, bradesco, hsbc qual a melhor solucao? ouvi falar do Cobrebem alguem sabe quanto custa esse serviço, site informaçoes etc. agradeço Quote Link to comment Share on other sites More sharing options...
roberio Posted May 4, 2012 Author Report Share Posted May 4, 2012 amigos preciso implementar cobrança caixa, bradesco, hsbc qual a melhor solucao? ouvi falar do Cobrebem alguem sabe quanto custa esse serviço, site informaçoes etc. agradeço Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted May 4, 2012 Report Share Posted May 4, 2012 citação:amigos preciso implementar cobrança caixa, bradesco, hsbc qual a melhor solucao? ouvi falar do Cobrebem alguem sabe quanto custa esse serviço, site informaçoes etc. agradeço id=quote>id=quote>Ola segue link abaixo, la tem inclusive exemplo em fivewin e xharbour... http://www.cobrebemx.com.br/ Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 Quote Link to comment Share on other sites More sharing options...
roberio Posted May 4, 2012 Author Report Share Posted May 4, 2012 Luiz Fernando obrigado baixei o exemplo e liguei para o suporte, 10 licença ta 700 e pouco e sem mensalidade. gostei dessa soluçao vlw Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted May 4, 2012 Report Share Posted May 4, 2012 citação:Luiz Fernando obrigado baixei o exemplo e liguei para o suporte, 10 licença ta 700 e pouco e sem mensalidade. gostei dessa soluçao vlw id=quote>id=quote>Utilizo aqui muito tempo vale a pena, o suporte deles é muito bom nunca fiquei sem resposta, agora uma coisa que eu desisti é de criar arquivo remessa usando a solução deles, faço isto manual, pois o tempo gasto é bem menor... Obs: qq duvida ai na geração dos boletos vai postando aqui... Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 Quote Link to comment Share on other sites More sharing options...
azilves Posted May 4, 2012 Report Share Posted May 4, 2012 Luiz, eu crio sem problema nenhum o arquivo remessa. Abraço Alexandre Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted May 4, 2012 Report Share Posted May 4, 2012 citação:Luiz, eu crio sem problema nenhum o arquivo remessa. Abraço Alexandre id=quote>id=quote>Colega eu sempre tinha criado tb, inclusive tem clientes que rodam normal bradesco,brasil entre outros,mais qdo precisei fazer do SANTANDER foram mais de 20 dias com o suporte da cobrebem sem sucesso algum, dai peguei o layout do banco em coisa de 2 horas criei ele, dai achei bem melhor pois fica mais claro os tratamento... Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 Quote Link to comment Share on other sites More sharing options...
roberio Posted May 4, 2012 Author Report Share Posted May 4, 2012 Luiz consigo gerar a tela do boleto e imprimir, mas quando finalizo a tela retorna o erro na seguinte linha oCBX:End() erro: Descrição do Erro: Error CobreBemX.ContaCorrente/3 DISP_E_MEMBERNOTFOUND: END chamado por TOLEAUTO:END(0) chamado por CBR_CAIXA_BOLETO(65) chamado por (b)CBRCAIXABOLETO(28) chamado por TBUTTON:CLICK(157) chamado por TBUTTON:HANDLEEVENT(1653) chamado por _FWH(3169) chamado por SENDMESSAGE(0) chamado por TDIALOG:COMMAND(379) chamado por TWINDOW:HANDLEEVENT(0) chamado por TDIALOG:HANDLEEVENT(882) chamado por DIALOGBOXINDIRECT(0) chamado por TDIALOG:ACTIVATE(270) chamado por CBRCAIXABOLETO(30) chamado por (b)BUILDPOPUPREBB(1932) chamado por TMENU:ACTIVATE(494) chamado por TTOOLBAR:NOTIFY(263) chamado por TDIALOG:NOTIFY(1482) chamado por TWINDOW:HANDLEEVENT(0) chamado por TDIALOG:HANDLEEVENT(882) chamado por DIALOGBOXINDIRECT(0) chamado por TDIALOG:ACTIVATE(270) chamado por RECEBB(1856) chamado por (b)RECE01(178) o que podera ser? Editado por - roberio on 04/05/2012 22:22:31 Quote Link to comment Share on other sites More sharing options...
Luiz Fernando Posted May 5, 2012 Report Share Posted May 5, 2012 Colega de uma olhada na minha rotina de impressão abaixo, faz uma comparação com o seu codigo para ver se esta tudo ok... static function impri_bole1(cDados,dDados) local oCBX,oBoleto cInstru:='' oCBX := TOleAuto():New("CobreBemX.ContaCorrente") nLicenca:=cPath1+'licenca\'+cFileName(dDados[6]) oCBX:ArquivoLicenca := alltrim(nlicenca) //237-19.conf" if empresa->cnpj='13.064.508/0001-03' oCBX:CodigoAgencia := '0355-7' oCBX:NumeroContaCorrente := '001300208-4' oCBX:CodigoCedente := '496646-5' oCBX:InicioNossoNumero := '000000000001' oCBX:FimNossoNumero := '999999999999' cBoleto:=val(boleto->boleto) oCBX:ProximoNossoNumero:= strzero(cBoleto-1,12) elseif empresa->cnpj='07.214.949/0001-33' oCBX:CodigoAgencia := '0355-7' oCBX:NumeroContaCorrente := '001300241-7' oCBX:CodigoCedente := '364177-5' oCBX:InicioNossoNumero := '000000000001' oCBX:FimNossoNumero := '999999999999' cBoleto:=val(boleto->boleto) oCBX:ProximoNossoNumero:= strzero(cBoleto-1,12) else oCBX:CodigoAgencia := alltrim(dDados[1]) // "0536-3" oCBX:NumeroContaCorrente := alltrim(dDados[2]) // "0019013-6" oCBX:CodigoCedente := alltrim(dDados[3]) // "123456" oCBX:InicioNossoNumero := alltrim(dDados[4]) // "00000000001" oCBX:FimNossoNumero := alltrim(dDados[5]) // "99999999999" cBoleto:=val(boleto->boleto) //-1 oCBX:ProximoNossoNumero:= strzero(cBoleto-1,11) endif oCBX:PadroesBoleto:PadroesBoletoImpresso:ArquivoLogotipo := cPath1+"imagens\logo1.jpg" oCBX:PadroesBoleto:PadroesBoletoImpresso:CaminhoImagensCodigoBarras := cPath1+"imagens\" //oCBX:LocalPagamento := "Pagável em qualquer banco até o vencimento" if cDados[6]=1 mcct = grava_html() oCBX:PadroesBoleto:PadroesBoletoImpresso:LayoutBoleto = "PadraoReciboPersonalizado" oCBX:PadroesBoleto:PadroesBoletoImpresso:HTMLReciboPersonalizado := mCCt elseif cDados[6]=2 oCBX:PadroesBoleto:PadroesBoletoImpresso:LayoutBoleto = "Invertido" elseif cDados[6]=3 //linha superior que deseja usar *oCBX:PadroesBoleto:PadroesBoletoImpresso:MargemSuperior :=0 oCBX:PadroesBoleto:PadroesBoletoImpresso:LayoutBoleto = "CarnetReciboLateralDireita" elseif cDados[6]=4 oCBX:PadroesBoleto:PadroesBoletoImpresso:LayoutBoleto = "CarnetReciboLateralEsquerda" elseif cDados[6]=5 oCBX:PadroesBoleto:PadroesBoletoImpresso:LayoutBoleto = "PadraoEnderecadoVerso" elseif cDados[6]=6 oCBX:PadroesBoleto:PadroesBoletoImpresso:LayoutBoleto = "InvertidoEnderecadoVerso" endif oBoleto := oCBX:DocumentosCobranca:Add() // Monta dados do sacado oBoleto:CPFSacado := alltrim(boleto->cpf_sac) oBoleto:NomeSacado := alltrim(boleto->nome_sac) oBoleto:EnderecoSacado := alltrim(boleto->ende_sac)+alltrim(boleto->numero) oBoleto:BairroSacado := alltrim(boleto->bair_sac) oBoleto:CidadeSacado := alltrim(boleto->cida_sac) oBoleto:EstadoSacado := boleto->esta_sac oBoleto:CepSacado := boleto->cep_sac // Monta dados do documento de cobrança oBoleto:DataVencimento := boleto->vencto //"01/10/2002" oBoleto:NumeroDocumento := boleto->duplicat //"12345" oBoleto:ValorDocumento := boleto->valor //123.45 if empresa->cnpj='12.822.361/0001-00' oBoleto:TipoDocumentoCobranca:="DM" endif if boleto->taxa > 0 oBoleto:ValorOutrosAcrescimos := boleto->taxa endif if cDados[1]>0 nVMulta:=round((boleto->valor*cDados[1])/100,2) cInstru+='APOS VENCIMENTO COBRAR MULTA R$ '+transform( nVMulta, '@E 99,999.99')+' ' endif if cDados[2]>0 nVlrMora:=((boleto->Valor*cDados[2])/100) cInstru+='APOS VENCIMENTO COBRAR JUROS DIARIOS DE R$ '+transform(nVlrMora,'@E 99,999.99')+' ' endif cInstru+=cDados[3]+' ' cInstru+=cDados[4]+' ' cInstru+=cDados[5] oCBX:PadroesBoleto:InstrucoesCaixa:=cInstru if cDados[7]=1 oCBX:ImprimeBoletos() else oCBX:ImprimeBoletosSemPreview() endif boleto->( BloqReg(0) ) boleto->status1:="X" boleto->( DesBloqReg() ) return .t. id=code>id=code>Abraços Luiz Fernando msn: empresoft@globo.com skype:empresoft empresoft@globo.com FWH 8.04,XHARBOUR 1.1,PELES,XDEV,VLIB,ADS 8.1 FWH 9.12,XHARBOUR 1.2,ADS 9.0 / FWH1104 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.