Nosso Numero no arquivo de remessa do CobreBemX

[HERGON]

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

[kapiaba]

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

[reneumg]

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.

[HERGON]

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

[kapiaba]

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,

[reneumg]

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()