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

Impressão de código de barras

Discussão em 'Progress 4GL' iniciado por jonas, Setembro 7, 2009.

  1. jonas

    jonas Membro Participativo

    Alguém já realizou a impressão de código de barras no Progress no padrão EAN 128?
    É a impressão do código de barras da chave de acesso da nota fiscal na DANFE da nota fiscal eletrônica.

    Teriam um exemplo para me passar?

    Obrigado
  2. Paulo Cesar Santos

    Paulo Cesar Santos Sem Pontuação

    Camarada, bom dia!
    Utilizei inicialmente o assistente do drive da impressora e “desenhei” a etiqueta, imprimi a etiqueta em modo caráter, passei os códigos para o progress a impressora em questão é a ZEBRA. No assistente da impressora deve haver vários modelos ean13 ean128.
    Segue abaixo faixa de código que utilizei para impressão de um programa do EMS-DATASUL, importante dizer que essa impressão é direta do progress, sem passar por outro programa qualquer tipo Exel.

    /* MODELO 1 */
    IF desc-etiq.nr-etiqueta = "1" THEN DO:
    put control '^XA~TA000~JSN^LT0^MMT^MNW^MTT^PON^PMN^LH0,0^JMA^PR4,4^MD0^JUS^LRN^CI0^XZ'.
    put control '^XA^LL0513'.
    put control '^PW831'.

    /* codigo do item */
    put control '^FT41,51^A0N,25,24^FH\^FD'.
    put control item.it-codigo.
    put control '^FS'.

    /* descricÊo do item */
    put control '^FT41,84^A0N,23,24^FH\^FD'.
    put control item.desc-item.
    put control '^FS'.

    /* codigo de barras */
    put control '^BY2,2,90^FT60,225^BEN,,Y,N^FD'.
    put control item.codigo-refer.
    put control '^FS'.

    /* estabelecimento */
    put control '^FT39,272^A0N,23,24^FH\^FD'.
    put control "Produzido por: " + estabelec.nome.
    put control '^FS'.

    /* endereco */
    put control '^FT39,301^A0N,23,24^FH\^FD'.
    put control estabelec.endereco + " - " + estabelec.bairro + " - " + estabelec.estado + " " + desc-etiq.descricao-6.
    put control '^FS'.

    /* home-page emeil */
    put control '^FT39,331^A0N,23,24^FH\^FD'.
    put control desc-etiq.descricao-7.
    put control '^FS'.

    /* registro anvisa */
    put control '^FT42,418^A0N,23,24^FH\^FD'.
    put control desc-etiq.descricao-3 + ' ' + substring(item.inform-comp,3,15) .
    put control '^FS'.

    /* nao utilizar put control ''. */
    put control '^FT42,447^A0N,23,24^FH\^FD'.
    put control desc-etiq.descricao-4.
    put control '^FS'.
    /* industria */
    put control '^FT626,447^A0N,23,24^FH\^FD'.
    put control desc-etiq.descricao-5.
    put control '^FS'.

    /* lote */
    put control '^FT42,500^A0N,28,28^FH\^FD'.
    IF c-lote-digitado <> " " THEN
    put control "LOTE: " + c-lote-digitado + " DATA DE FAB.: " + string(d-dat-lote).
    ELSE
    put control "LOTE: " + estabelec.cod-estabel + "." + string(ord-prod.nr-ord-produ,"999999") + " DATA DE FAB.: " + string(d-dat-lote).
    put control '^FS'.

    /* responsavel */
    put control '^FT41,360^A0N,23,24^FH\^FD'.
    put control 'Resp. Tec.: ' + trim(responsavel.nome-resp) + ' ' + responsavel.inf-adic .
    put control '^FS'.

    /* esterilizacao */
    if substring(item.inform-comp,1,1) = "E" then do:
    put control '^FT42,389^A0N,23,24^FH\^FD'.
    put control desc-etiq.descricao-1 + ' - ' + string( d-dat-lote + 1 ).
    put control '^FS'.
    /* validade da esteriliza»’o */
    put control '^FT459,387^A0N,23,24^FH\^FD'.
    if substring(item.inform-comp,1,1)= "E" then
    put control desc-etiq.descricao-2 + ' ' + string( d-dat-lote + 1 + 0730 ).
    else
    put control desc-etiq.descricao-2 + ' ' + string( d-dat-lote + 1 + 1825 ).
    put control '^FS'.
    end.

    /* valido por */
    put control '^FT633,51^A0N,25,24^FH\^FD'.
    if substring(item.inform-comp,1,1)= "E" then
    put control 'Valido por 2 anos'.
    else
    put control 'Valido por 5 anos'.
    put control '^FS'.

    /* lifesaver */
    put control '^FT660,498^A0N,28,28^FH\^FD'.
    put control 'LIFESAVER'.
    put control '^FS'.


    put control '^FS'.
    put control '^PQ1,0,1,Y^XZ'.

    END.

    Paulo Cesar Santos
    Desenvolvedor - Progress
    paulo.cesar.santos@click21.com.br
    Cel.: 021-9945-8591
  3. leandropsilva13

    leandropsilva13 Sem Pontuação

    Cara como vc fez para desenhar a etiqueta na impressora zebra? o layout dela...

    Obrigado !
    Leandro P. Silva
  4. Paulo Cesar Santos

    Paulo Cesar Santos Sem Pontuação

    Camarada, o CD ou DVD da impressora, possui um software que serve para se criar modelos de etiquetas. Instale e vera se não tiver avise que tenho como conseguir e lhe enviar.
  5. jonas

    jonas Membro Participativo

    Valeu pela ajuda.

    Estou imprimindo em uma impressora HP, vou testar com os códigos que você me passou.

    Obrigado.
  6. Paulo Cesar Santos

    Paulo Cesar Santos Sem Pontuação

    Camarada, estou a procura de colocação se souber de alguma coisa, favor informar.
    Obrigado!

Compartilhe esta Página