Clipper On Line • Ver Tópico - ZEBRA TLP 2488 termica

ZEBRA TLP 2488 termica

Discussão sobre a linguagem CA-Clipper.

Moderador: Moderadores

 

ZEBRA TLP 2488 termica

Mensagempor microvolution » 23 Jul 2018 23:34

boa noite!
pra não ficar enchendo o PCTOLEDO/FORUM de tantos tópicos, gostaria que me ajudassem com a mesma dúvida no post http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=11623&p=124488#p124488.

Grato.
microvolution
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1175
Data de registro: 02 Set 2011 22:17
Curtiu: 59 vezes
Mens.Curtidas: 17 vezes

ZEBRA TLP 2488 termica

Mensagempor rochinha » 24 Jul 2018 02:28

Amiguinhos,

microvolution
Na verdade precisamos saber qual a sua dúvida. Pois se o tópico em questão não te ajudou, qual o problema estás enfrentando?

Salve o código abaixo em c:\temp\teste.prn e dê o comando no prompt copy c:\temp\teste.prn > LPT1(Caso sua impressora esteja recebendo na LPT1. Se sair uma etiqueta é porque ela está configurada linguagem ZPL.
^XA
^MMT
^PW400
^LL0400
^LS0
^FT5,384^A0N,41,40^FH\^FDwww.pctoledo.com.br^FS
^BY1,3,99^FT70,322^BCN,,Y,N
^FD>:Evite Lojas Genericas^FS
^FT10,46^A0N,38,60^FH\^FDLinguagem ZPL^FS
^BY1,3,104^FT96,182^B3N,N,,Y,N
^FD1135265909+^FS
^PQ1,0,1,Y
^XZ


Salve o código abaixo em c:\temp\teste.prn e dê o comando no prompt copy c:\temp\teste.prn > LPT1(Caso sua impressora esteja recebendo na LPT1. Se sair uma etiqueta é porque ela está configurada linguagem EPL.
I8,A,001
Q400,024
q863
rN
S3
D7
ZT
JF
O
R231,0
f100
N
A63,353,0,3,1,2,N,"www.pctoledo.com.br"
A17,10,0,3,2,2,N,"Linguagem EPL"
B43,123,0,1,2,6,160,B,"11 3526-5909"
P1


Salve o código abaixo em c:\temp\teste.prn e dê o comando no prompt copy c:\temp\teste.prn > LPT1(Caso sua impressora esteja recebendo na LPT1. Se sair uma etiqueta é porque ela está configurada linguagem CPCL.
! 0 200 200 320 1
PW 639
TONE 0
SPEED 3
ON-FEED IGNORE
NO-PACE
BAR-SENSE
T 4 1 77 10 IMPRESSORAS ZEBRA
BT 7 0 3
B 128 2 30 160 84 108 11 3526-5909
PRINT
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

ZEBRA TLP 2488 termica - impressora correta TLP 2844

Mensagempor microvolution » 24 Jul 2018 12:13

rochinha escreveu:Na verdade precisamos saber qual a sua dúvida. Pois se o tópico em questão não te ajudou, qual o problema estás enfrentando?
, obrigado por tão prontamente responder.
por isso q postei lá no link http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=11623&p=124499#p124499 a dúvida.
Mas, foi bem interessante e bem detalhada a sua explicação pelas diferentes linguagens q nem sabia que existiam:
ZPL, EPL e CPCL.
Agora, pra q via programação a gente faça o teste das 3 linguagens, o procedimento é o que já sabemos né?
exemplo ZPL:
@ prow()+1,0 say '^LL0400'
@ prow()+1,0 say '^LS0'
...

etc...
e assim para as outras EPL, CPCL, correto?
grato.
microvolution
Usuário Nível 5

Usuário Nível 5
 
Mensagens: 1175
Data de registro: 02 Set 2011 22:17
Curtiu: 59 vezes
Mens.Curtidas: 17 vezes

ZEBRA TLP 2488 termica

Mensagempor rochinha » 24 Jul 2018 16:15

Amiguinhos,

As linguagens existentes e suas impressoras correspondentes:
ZPL - Zebra Programming Language: GK420t, GC420t, S4M, ZM400/600, 105SL, Xi4
EPL - Eltron Programming Language: TLP2844, GK420t, GC420t
CPCL - Comtec Programming Control Language: iMZ220, iMZ320, P4T, QLn220, QLn320, QLn240, ZQ110, ZQ320 ZQ510, ZQ520, e várias outras portáteis da Zebra.

Manuais:
Zebra Zpl Manual Portugues
ZPL Basics
ZPL II Programming

Visualizadores:
ZPL Viewer
Online ZPL Viewer

Dúvidas? estão sendo respondidas Aqui
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

ZEBRA TLP 2488 termica

Mensagempor paiva_dbdc » 25 Jul 2018 13:10

OBSERVE se o papel é TERMICO

Ja apanhei uma vez porque o cliente muquirana comprou papel mais barato e NAO era termoco

papel = Etiqueta rs

se NAo for só imprime se tiver ribbom

e no setup da impressora tem como configurar tambem o tipo de impressao
paiva_dbdc
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 342
Data de registro: 12 Nov 2012 08:58
Cidade/Estado: uberlandia mg
Curtiu: 0 vez
Mens.Curtidas: 6 vezes

ZEBRA TLP 2488 termica

Mensagempor gilbertosilverio » 14 Ago 2019 10:01

Ola amigos,

E possível colocar um contador numérico na etiqueta, no meu caso, emito as etiquetas em um impressora GC420t em zpl.

Montei este exemplo na Zdesigner, mais as etiquetas saem todos com a mesma numeração.

^XA~TA000~JSN^LT0^MNW^MTD^PON^PMN^LH0,0^JMA^PR4,4~SD15^JUS^LRN^CI0^XZ
^XA
^MMT
^PW831
^LL0799
^LS0
^BY2,3,119^FT785,758^BCB,,Y,N
^FD>:Volume: 1^FS
^PQ4,0,1,Y^XZ


Neste exemplo estou emitido 4 etiquetas, quero que saia o numero sequencial em "VOLUME:" da etiqueta impressa, isso e possível?

Agradeço as dicas.
gilbertosilverio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 332
Data de registro: 18 Jan 2009 09:39
Cidade/Estado: Ribeirao Pires - SP
Curtiu: 1 vez
Mens.Curtidas: 23 vezes

ZEBRA TLP 2488 termica

Mensagempor rochinha » 14 Ago 2019 11:02

Amiguinhos,

Veja no menu lateral onde diz Código de Barras, tem uma setinha indicando um menu. Escolha Novo Contador e define numero inicial, se pergunta por novo número, digitos e incremento.

Se você imprime pelo ZD deixe a opção pergunta antes de imprimir ligado pois ele não guarda a sequencia.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

ZEBRA TLP 2488 termica

Mensagempor gilbertosilverio » 14 Ago 2019 12:00

Rochina,

Obrigado, pela resposta.

Já tinha visto esta opção, o que eu queria e acabar com o loop dentro do programa, deixando um arquivo menor.

Pelo visto, só consigo montar um contador, fazendo um loop mesmo, como já faço no meu sistema.

Imaginei que houvesse algo como especifico pra isso, tipo numeração de pagina no word...
gilbertosilverio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 332
Data de registro: 18 Jan 2009 09:39
Cidade/Estado: Ribeirao Pires - SP
Curtiu: 1 vez
Mens.Curtidas: 23 vezes

ZEBRA TLP 2488 termica

Mensagempor gilbertosilverio » 15 Ago 2019 19:59

Ola Amigos,

Estou com um problema e não sei como resolver.

Sempre usei a Zebra GC420t localmente e funciona que e um maravilha.

Agora os usuários estão acessando meu sistema via TS, e não consigo fazer a impressão das etiquetas via ZPL na estação local, o TS reconhece a impressora, consigo gerar uma pagina testes, mais a etiqueta não e impressa de nenhuma maneira.

Gero o arquivo .PRN no server, mais ele não e impresso.

Existe algum macete para imprimir as etiquetas via ZPL no Terminal Server

O server esta com W16, no painel de impressoras a zebra e reconhecida normalmente e esta online.

Alguma dica?
gilbertosilverio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 332
Data de registro: 18 Jan 2009 09:39
Cidade/Estado: Ribeirao Pires - SP
Curtiu: 1 vez
Mens.Curtidas: 23 vezes

ZEBRA TLP 2488 termica

Mensagempor gilbertosilverio » 16 Ago 2019 11:38

Ola Amigos,

Consegui fazer a impressão, para que funcione e necessário instalar os drivers da impressora no server e desabilitar o EASY PRINT.

Fica a dica.
gilbertosilverio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 332
Data de registro: 18 Jan 2009 09:39
Cidade/Estado: Ribeirao Pires - SP
Curtiu: 1 vez
Mens.Curtidas: 23 vezes

ZEBRA TLP 2488 termica

Mensagempor marco.prodata » 08 Abr 2022 17:15

gilbertosilverio escreveu:Ola Amigos,

Consegui fazer a impressão, para que funcione e necessário instalar os drivers da impressora no server e desabilitar o EASY PRINT.

Fica a dica.


Mestre, como você manda a impressão de dentro do seu programa para a impressora na estação? Gera um arquivo txt/prn e usa:
run type <nomedoarquivo>.prn > LPTX

assim?
marco.prodata
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 145
Data de registro: 30 Nov 2018 09:07
Cidade/Estado: Caratinga
Curtiu: 16 vezes
Mens.Curtidas: 11 vezes

ZEBRA TLP 2488 termica

Mensagempor gilbertosilverio » 09 Abr 2022 05:42

Ola,

Essa rotina e bem antiga...

FUNCTION ETIQUETA_ZEBRA(nPEDI, nVOLU)
   LOCAL nQTDE:=[1]
   PRIVATE TXTARQ, WLINHA, nTAMANHO, TXT:=[], xTXT:={}
   PRIVATE AAA := CurDrive()+":\"+CurDir()+[\TEMP\ETI]+SUBSTR(TIME(),1,2)+SUBSTR(TIME(),4,2)+SUBSTR(TIME(),7,2)+[.PRN]
   PRIVATE ARQTESTE
   IF ( ARQTESTE := FCreate( AAA,0 ) ) == F_ERROR
      HWG_MSGINFO([Nao criou o arquivo]+CRLF+ALLTRIM(AAA))
      RETURN NIL
   ELSE
      FCLOSE(ARQTESTE)
   ENDIF
   SAIR()
   @ 01,00 SAY PADC([Imprimir etiquetas de envio - ZEBRA], 80 )
   @ 11,00 SAY [No. Pedido: ] GET nPEDI PICT [999999]
   @ 12,00 SAY [No Volumes: ] GET nVOLU PICT [999]
   READ

   IF LASTKEY() = 27
      SAIR()
      RETURN NIL
   ENDIF

   USE xMITI NEW SHARED
   SET INDEX TO XMITNOTA
   DBSEEK(nPEDI, .F.)

   IF FOUND()
      cCODCLI:=CODCLI ; cRAZ:=RAZAO   ; cNNF:=NNFE    ; xOBSER1:=OBS1
      xOBSER2:=OBS2   ; xOBSER3:=OBS3 ; xOBSER4:=OBS4 ; xVLRNFe:=TOTNOTAS
      CLOSE DATA
      USE xCLIENTE SHARED NEW
      SET INDEX TO xRCLICOD
      DBSEEK( cCODCLI, .F.)
      IF FOUND()
         cENDERECO:=ENDENTREGA ; cBAIRRO:=BAIEN ; cCIDADE:=CIDADEEN ; cUF:=ESTAEN ; cCEP:=CEPEN
         SAIR()
      ELSE
         nOPT:=0
         ALERTNEW([Dados do cliente nao localizados])
         SAIR()
         RETURN NIL
      ENDIF
   ELSE
      nOPT:=0
      ALERTNEW([Pedido nao localizado])
      SAIR()
      RETURN NIL
   ENDIF

   C:=1
   DO WHILE  C <= nVOLU
      IF C = 1
         TXT := [^XA~TA000~JSN^LT0^MNW^MTD^PON^PMN^LH0,0^JMA^PR4,4~SD15^JUS^LRN^CI0^XZ]
         AADD( xTXT, TXT  )
      ENDIF
      TXT:=[^XA]
      AADD( xTXT,  TXT  )
      TXT:=[^PW831]
      AADD( xTXT,  TXT  )
      TXT:=[^LL0799]
      AADD( xTXT,  TXT  )
      TXT:=[^LS0]
      AADD( xTXT,  TXT  )
      TXT:=[^CF0,50]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,50^FDHospitalar Com Med Ltda^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^CF0,30]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,100^FDR  303^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,140^FDJardim America^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,180^FDCep: 99999-999 - GO - GO^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,220^FDTel: (64) 9999-9999 ^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,250^GB720,1,3^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^CF0,25]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,280^FDDestinatario:^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^CF0,30]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,330^FD]+ALLTRIM(cRAZ)     +[^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,370^FD]+ALLTRIM(cENDERECO)+[^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,410^FD]+ALLTRIM(cBAIRRO)  +[^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,450^FDCEP: ]+ALLTRIM(cCEP) +[  ]+ALLTRIM(cCIDADE)+[  ]+ALLTRIM(cUF) + [^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,510^GB720,1,3^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^CF0,35]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,540^FDNo. NFe: ]+STRZERO(cNNF,9) + [  Valor NFe: R$ ]+STR(xVLRNFe,12,2)+[^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO50,600^FDVolumes: ]+STRZERO(C,4)+[/]+STRZERO(nVOLU,4)+[   No. Pedido: ]+STRZERO(nPEDI,7)+[^FS]
      AADD( xTXT,  TXT  )

      TXT:=[^FO50,650^GB720,100,2^FS]
      AADD( xTXT,  TXT  )
      TXT:=[^FO60,690]
      AADD( xTXT,  TXT  )

      TXT:=[^FDPor favor atencao: CUIDADO MATERIAL FRAGIL^FS]
      AADD( xTXT,  TXT  )

      TXT:=[^PQ1,0,1,Y^XZ]
      AADD( xTXT,  TXT  )
      C++
   ENDDO
   A:=1
   TXTARQ   := FOPEN( AAA, 2 )
   nTAMANHO := LEN(xTXT)
   DO WHILE A <= nTAMANHO
      WLINHA:= ALLTRIM(xTXT[A])+CHR(13)+CHR(10)
      FSEEK( TXTARQ, 0, 2 )
      FWRITE( TXTARQ, ALLTRIM(WLINHA), LEN(WLINHA))
      A++
   ENDDO
   FCLOSE(TXTARQ)
   cArquivo:=alltrim(AAA)
   Escolhe_impressora( cArquivo )  //Escolhe_impressora_VISUAL( cArquivo ) // teste visual em 01/10/2015
   /*
   cImpressora := GetDefaultPrinter()  // Pego a Impressora Padrão, como expliquei acima já deixo a Argox como padrão
   PrintFileRaw(cImpressora, cArquivo, [Teste]) // Jogo o arquivo nela, ela pode estar LPT1, USB q vai embora...
   */
   SAIR()
RETURN NIL

gilbertosilverio
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 332
Data de registro: 18 Jan 2009 09:39
Cidade/Estado: Ribeirao Pires - SP
Curtiu: 1 vez
Mens.Curtidas: 23 vezes

ZEBRA TLP 2488 termica

Mensagempor marco.prodata » 09 Abr 2022 10:07

gilbertosilverio escreveu:Ola,

Essa rotina e bem antiga...



Obrigadaço, o segredo foi o printfileraw, eu estava usando o modo antigo de dar um RUN TYPE ARQUIVO > LPT3.

Funcionou certinho.
marco.prodata
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 145
Data de registro: 30 Nov 2018 09:07
Cidade/Estado: Caratinga
Curtiu: 16 vezes
Mens.Curtidas: 11 vezes

Anterior



Retornar para CA-Clipper

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro