1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

4GL x CobrebemX

Discussão em 'Progress 4GL' iniciado por junior, Fevereiro 4, 2009.

  1. junior

    junior Sem Pontuação

    Boa Tarde,

    alguém já utilizou a dll CobrebemX para impressão de boletos com progress?
  2. fdantas

    fdantas Administrator Moderador

    Arquivos Anexados:

  3. junior

    junior Sem Pontuação

    voce sabe se é mais ou menos isso(abaixo) a ser feito?

    def var cbx AS COM-HANDLE.
    def var boleto AS COM-HANDLE.


    create "CobreBemX.ContaCorrente" cbx.

    for each tit_acr.

    find first contrat
    where contrat.cd-contratante = tit_acr.cdn_cliente.

    cbx.ArquivoLicenca = "c:\CobreBemX\Exemplos\Licencas\001-18.conf".

    cbx:CodigoAgencia = "0734".
    cbx:NumeroContaCorrente = "7719282".
    cbx:CodigoCedente = "07347719282".
    cbx:InicioNossoNumero = "00001".
    cbx:FimNossoNumero = "99999".
    cbx:proximoNossoNumero = "00015".

    cbx:padroesBoleto:padroesBoletoImpresso:ArquivoLogotipo = "c:\CobreBemX\Imagens\BannerCBX.gif".
    cbx:padroesBoleto:padroesBoletoImpresso:CaminhoImagensCodigoBarras = "c:\CobreBemX\Imagens\".

    boleto = cbx:DocumentosCobranca:Add.

    Boleto:NomeSacado = "contrat.nm-contratante".

    Boleto:DataVencimento = "tit_acr.data-vencimento".

    Boleto:NumeroDocumento = "12345".
    Boleto:ValorDocumento = tit_acr.val-origin_tit_acr.

    cbx:ImprimeBoletos.

    release object cbx.

    end.

Compartilhe esta Página