HERGON Posted September 23, 2014 Report Share Posted September 23, 2014 Boa tarde pessoal Estou com um problema para gerar o NOSSO NUMERO no arquivo de remessa pelo CobreBemX, mas não utilizo a opção oCbx:InicioNossoNumero := "000000001" oCbx:FimNossoNumero := "999999999" oCbx:ProximoNossoNumero := Strzero(Val(cProximoNro),9,0) porque meus cleintes geram o boleto e imprimem enviando junto com a NF e apenas no final do dia gera o arquivo remessa. Se utilizasse da forma acima na geração do arquivo remessa o nosso numero seria outro, então eu tenho que passa-lo exatamente como foi impresso no boleto gerado anteriormente, da seguinte forma: oBoleto:NossoNumero := cNossoNumero Só que as vezes a geração do boleto é junto com o arquivo remessa, nestes casos ainda não tenho o nosso numero gerado e gostaria que a dll calculasse o dígito verificador para que eu possa passá-lo corretamente. Em contato com o suporte da CobreBemX foi passado que eu deveria fazer assim: Prezado(a) Sr. Herberson Gontijo, Quanto a sua dúvida, por favor, leia o valor da propriedade "NossoNumero" do objeto 'IDocumentosCobranca', após a chamada de um dos métodos a seguir: "CalcularDadosBoletos"; "EnviaBoletosPorEmail"; "ImprimeBoletos"; "ImprimeBoletosSemPreview"; "GravaArquivoRemessa"; "GeraHTMLBoleto"; Segue o exemplo abaixo: CobreBemX.ImprimeBoletos; ShowMessage(Boleto.NossoNumero); Fiz o que orientaram e não surtiu resultado. Alguém saberia como resolver esse problema? Att. Herberson Gontijo Ponteware Informática Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 23, 2014 Report Share Posted September 23, 2014 Veja se ajuda: http://fivewin.com.br/index.php?/topic/15757-ajuda-com-o-cobrebemx-nosso-numero/ http://fivewin.com.br/index.php?/topic/20532-boleto-no-cobrebem/ http://fivewin.com.br/index.php?/topic/21562-boleto-banco-do-brasil-com-cobrebem/ http://fivewin.com.br/index.php?/topic/19534-layout-cobran%C3%A7a-bradesco/ Manual: http://www.cobrebem.com/imagens/manualcbx.pdf abs Quote Link to comment Share on other sites More sharing options...
reneumg Posted September 23, 2014 Report Share Posted September 23, 2014 oCBX:InicioNossoNumero := 0001 oBoleto := oCBX:DocumentosCobranca:Add() oBoleto:CalculaDacNossoNumero := .t. .... .... If oNossoNo= oCBX:CalcularDadosBoletos() oDBF:NOSSO_NO := oBoleto:NossoNumero EndIf Neste caso ele calcula o nosso numurero, mas vc tem que ou pegar o ultimo nosso numero gereado, ou gerar em outra carteira pra nao gerar duplicidade. Espero que ajude. Quote Link to comment Share on other sites More sharing options...
HERGON Posted September 23, 2014 Author Report Share Posted September 23, 2014 Obrigado pelas respostas, João e ReneuMg João, os link's eu já havia pesquisado, mas não resolveram. Tentei a dica do Reneu mas deu o seguinte erro: Descrição do erro: Error cobrebemx.contacorrente/3 DISP_E_MEMBERNOTFOUND: CALCULARDADOSBOLETOS Chamado por: => TOLEAUTO:CALCULARDADOSBOLETOS(0) Att. Herberson Gontijo Ponteware Informática Quote Link to comment Share on other sites More sharing options...
kapiaba Posted September 23, 2014 Report Share Posted September 23, 2014 Veja estas respostas: http://fivewin.com.br/index.php?/topic/21167-problemas-com-cobrebemx-win-8-64-bits/ http://fivewin.com.br/index.php?/topic/22002-erro-apos-a-impressao-boleto-cobrebem-xharbour-902/ http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=10942 abs, Quote Link to comment Share on other sites More sharing options...
reneumg Posted September 23, 2014 Report Share Posted September 23, 2014 Herberson, Vê se não ta faltando nada ai, no meu sistema assim ta funcionando, essa Dll é meio embaçada. já sofri muito com ela, As vezes são essas propriedades InicioNossoNumero , FimNossoNumero , ProximoNossoNumero ou ArquivoRemessa:Sequencia, eu nunca vi esse erro ai não. Abs. ********************************************************************************************************************* oCBX:= TOleAuto():New("CobreBemX.ContaCorrente") // Monta arquivo de licença de teste para banco 001 carteira 51 oCBX:ArquivoLicenca := "c:\CobreBemX\licenca\09999999000199-001-51.conf" If !File("c:\CobreBemX\licenca\09999999000199-001-51.conf") nMsgBox( "c:\CobreBemX\licenca\09999999000199-001-51.conf", "Arquivo de Licenca Não Localizado") RETURN( .t. ) EndIf // Monta dados da Agencia oCBX:CodigoAgencia := "9999" // Monta dados do Cod. Cedente oCBX:CodigoCedente := "99999999" // Monta dados da Sequencia do Arq. de Remessa oCBX:ArquivoRemessa:Sequencia:= "0001" // Monta dados do Sequencia Inicio nosso Número If oNossoNo= oCBX:InicioNossoNumero := "0001" EndIf // Monta dados da Sequencia Proximo nosso Número If oNossoNo= oCBX:ProximoNossoNumero := "0002" EndIf // Monta dados da Sequencia Fim nosso Número If oNossoNo= oCBX:FimNossoNumero := "0099" EndIf oCBX:PadroesBoleto:PadroesBoletoImpresso:ArquivoLogotipo := "c:\CobreBemX\Imagens\"+COD_BAN+".jpg" //BannerCBX.gif" oCBX:PadroesBoleto:PadroesBoletoImpresso:CaminhoImagensCodigoBarras := "c:\CobreBemX\Imagens\" oCBX:PadroesBoleto:InstrucoesCaixa:=MensBOL oCBX:PadroesBoleto:Demonstrativo:="Mensagem do corpo do boleto se vc for impromir" Do While !Eof() // Inicia a Linha da Remessa oBoleto := oCBX:DocumentosCobranca:Add() oMeusDds:= oBoleto:MeusDados:Add() oMeusDds:Nome:="TipoDocumentoTradicional" //"TipoDocumentoTradicional" ou "TipoDocumentoEscritural" oMeusDds:Valor:="Sim" // Monta dados do sacado oBoleto:NomeSacado := X->NOME oBoleto:DataDocumento := Dtoc(X->DT_EMISS) oBoleto:DataVencimento := Dtoc(X->DT_VENC) oBoleto:NumeroDocumento:= X->NUM_DUPL oBoleto:ValorDocumento := X->VALOR oBoleto:BancoEmiteBoleto := .t. // .f. o cliente Imprime se, .t. o Banco Imprime oBoleto:DiasProtesto := "05" oBoleto:InstrucaoCobranca1 := "2" //Codigo para Baixa/Devolução oBoleto:InstrucaoCobranca2 := " " oBoleto:InstrucaoCobranca3 := "2" //1-Baixar/Devolver 2-Nao oBoleto:CalculaDacNossoNumero := iif(oNossoNo=,.t.,.f.) oBoleto:BancoGeraNossoNumero := iif(oNossoNo=[N],.t.,.f.) oBoleto:TipoDocumentoCobranca := X->TIPODOC oBoleto:ValorDesconto := X->VAL_DESC oBoleto:ValorjurosdiaAtraso := X->JRS_DIA If vMulta>0 oBoleto:ValorMultaAtraso := (X->VALOR*vMulta) //Multa EndIf oBoleto:CPFSacado := AllTrim(X->CPF_CNPJ) oBoleto:EnderecoSacado := AllTrim(X->ENDERECO) oBoleto:BairroSacado := AllTrim(X->BAIRRO) oBoleto:CidadeSacado := AllTrim(X->CIDADE) oBoleto:EstadoSacado := X->UF oBoleto:CepSacado := X->CEP If oNossoNo= oCBX:CalcularDadosBoletos() oDbf:NOSSO_NO := oBoleto:NossoNumero EndIf DBSkip() EndDo DBGoTop() //Gera o arquivo de remessa oCBX:ArquivoRemessa:Arquivo := oArqRem //"Ex Remessa.txt" oCBX:ArquivoRemessa:Diretorio:= "C:\Banco\" oCBX:ArquivoRemessa:Layout := CNAB400 // "CNAB400" ou "FEBRABAN240" oCBX:GravaArquivoRemessa() //Improme o Boleto oCBX:ImprimeBoletos() //oCBX:End() 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.