Cobrebem Bradesco

[Polirep]

Não estou conseguindo incluir o numero do convenio (Codigo Cedente) com o ultimo boleto gerado para compor o NOSSO NUMERO no boleto do BRADESCO.

Alguem teria um exemplo para me fornecer??

Desde já obrigado

Alexandre (Polirep)

Belo Horizonte / MG

alexandrepolirep@hotmail.com

[Polirep]

Não estou conseguindo incluir o numero do convenio (Codigo Cedente) com o ultimo boleto gerado para compor o NOSSO NUMERO no boleto do BRADESCO.

Alguem teria um exemplo para me fornecer??

Desde já obrigado

Alexandre (Polirep)

Belo Horizonte / MG

alexandrepolirep@hotmail.com

[HERGON]

Olá Polirep

Eu faço assim, veja se ajuda:

oCBX := TOleAuto():New("CobreBemX.ContaCorrente")

// Monta arquivo de licença

oCBX:ArquivoLicenca := cUnidadeSis+"\"+cPastaSis + "\CobreBem\"+Alltrim(aBoleto[nI+2])

// Monta dados da conta corrente

oCBX:CodigoAgencia := Alltrim(aBoleto[nI+3])

oCBX:NumeroContaCorrente := Alltrim(aBoleto[nI+4])

oCBX:CodigoCedente := Alltrim(aBoleto[nI+5])

// Nosso Numero

oCBX:InicioNossoNumero := "000000001"

oCBX:FimNossoNumero := "999999999"

oCBX:ProximoNossoNumero := If(lReimprime,Alltrim(Str(Val((cAliasCon)->NOSSONRO)-1),9,0), cNossoNumero)

If ! Empty(aBoleto[nI+6])

oCBX:PadroesBoleto:PadroesBoletoImpresso:ArquivoLogotipo := cUnidadeSis+"\"+cPastaSis + "\CobreBem\"+Alltrim(aBoleto[nI+6])

Endif

oCBX:PadroesBoleto:PadroesBoletoImpresso:CaminhoImagensCodigoBarras := cUnidadeSis+"\"+cPastaSis + "\CobreBem\"+aBoleto[nI+8]+"\"

oCBX:PadroesBoleto:Demonstrativo:=Alltrim(cMsgBol)

oCBX:PadroesBoleto:InstrucoesCaixa:=Alltrim(Conf->INSTRUCX)

oBoleto := oCBX:DocumentosCobranca:Add()

// Monta dados do sacado

oBoleto:NomeSacado := (cAliasCon)->NOME

oBoleto:CPFSacado := If(" "$(cAliasCli)->CPF, (cAliasCli)->CNPJ, (cAliasCli)->CPF)

If (cAliasCli)->ENDCOR="S"

oBoleto:EnderecoSacado := Alltrim((cAliasCli)->TIPOC)+" "+Alltrim((cAliasCli)->ENDEC) +" "+;

Alltrim((cAliasCli)->NUMEROC)+" "+Alltrim((cAliasCli)->COMPLC)

oBoleto:BairroSacado := Alltrim((cAliasCli)->BAIRROC)

oBoleto:CidadeSacado := Alltrim((cAliasCli)->CIDADEC)

oBoleto:EstadoSacado := (cAliasCli)->UFC

oBoleto:CepSacado := (cAliasCli)->CEPC

Else

oBoleto:EnderecoSacado := Alltrim((cAliasCli)->TIPO)+" "+Alltrim((cAliasCli)->END) +" "+;

Alltrim((cAliasCli)->NUMERO)+" "+Alltrim((cAliasCli)->COMPL)

oBoleto:BairroSacado := Alltrim((cAliasCli)->BAIRRO)

oBoleto:CidadeSacado := Alltrim((cAliasCli)->CIDADE)

oBoleto:EstadoSacado := (cAliasCli)->UF

oBoleto:CepSacado := (cAliasCli)->CEP

Endif

// Monta dados do documento de cobrança

oBoleto:DataVencimento := dNovoVenc

oBoleto:NumeroDocumento := (cAliasCon)->NROCON

oBoleto:ValorDocumento := nNovoValor

oBoleto:ValorjurosdiaAtraso := ((nNovoValor * Val(Subs(Conf->TXMULTA,1,5)) /100)/30)

oBoleto:ValorMultaAtraso := (nNovoValor * Val(Subs(Conf->TXMULTA,6,5)) /100)

If lPreviewLocal

oCBX:ImprimeBoletos()

Else

oCBX:ImprimeBoletosSemPreview()

Endif

// Repassando Dados

fLockRec(2,cAliasCon)

If ! lReimprime

(cAliasCon)->NOSSOBCO:=oBoleto:NossoNumero

(cAliasCon)->CONTA :=Alltrim(aBoleto[nI+4])

(cAliasCon)->NOSSONRO:=Strzero(Val(cNossoNumero)+1,9,0)

MemoWrit(cArqNossoNumero, Strzero( Val(cNossoNumero)+2,9,0) )

Endif

If dNovoVenc <> (cAliasCon)->VENC .or. nNovoValor <> (cAliasCon)->VALOR

(cAliasCon)->VENCANT := (cAliasCon)->VENC

(cAliasCon)->VALORANT := (cAliasCon)->VALOR

(cAliasCon)->VENC := dNovoVenc

(cAliasCon)->VALOR := nNovoValor

Endif

(cAliasCon)->MSGBOL1 := Subs(cMsgBol,1,200)

(cAliasCon)->MSGBOL2 := Subs(cMsgBol,201)

(cAliasCon)->ARQMSG := cArqMsg

(cAliasCon)->(DbCommit()) ; (cAliasCon)->(DbUnlock())

Abraço

Herberson Gontijo

Ponteware Software