ETIQUETAS CODIGO DE BARRAS
Tienes ue ver el manual de la impresora y programar con las secuencias de escape del PCL de la impresora en cuestión, te mando un código para impresoras ZEBRA, el cual te dará la Pauta:
DEFINE VAR pt-part LIKE pt_part INIT "" NO-UNDO.
DEFINE VAR desc1 LIKE pt_desc1 INIT "" NO-UNDO.
DEFINE VAR desc2 LIKE pt_desc2 INIT "" NO-UNDO.
DEFINE VAR cuantas AS INTEGER FORMAT ">>9" INIT 0 NO-UNDO.
DEFINE VAR i AS INTEGER INIT 0 NO-UNDO.
FORM
SKIP(2)
pt-part COLON 22 LABEL "Articulo/Componente"
desc1 AT 50 NO-LABEL
desc2 AT 50 NO-LABEL
cuantas COLON 22 LABEL "No Etiq. Imprimir"
SKIP(2)
WITH FRAME a WIDTH 80 SIDE-LABELS.
ON LEAVE OF pt-part DO:
IF pt-part:SCREEN-VALUE = "" THEN DO:
MESSAGE "Ingrese Articulo/Componente" VIEW-AS ALERT-BOX.
RETURN NO-APPLY.
END.
ELSE DO:
FOR FIRST pt_mstr WHERE pt_part = pt-part:SCREEN-VALUE
AND LOOKUP(pt_part_type,"AU,CO,QU") <> 0 NO-LOCK:
END.
IF AVAIL pt_mstr THEN DO:
DISPLAY pt_desc1 @ desc1
pt_desc2 @ desc2 WITH FRAME a.
END.
ELSE DO:
MESSAGE "Clave de Articulo Invalido" VIEW-AS ALERT-BOX.
CLEAR FRAME a.
RETURN NO-APPLY.
END.
END.
END.
ON LEAVE OF cuantas DO:
IF INPUT cuantas = 0 THEN DO:
MESSAGE "No de Etiquetas a Imprimir debe ser >= 1" VIEW-AS ALERT-BOX.
RETURN NO-APPLY.
END.
END.
REPEAT WITH FRAME a:
UPDATE pt-part cuantas.
/*Impresion de Etiqueta*/
DO i = 1 TO cuantas:
FIND prd_det NO-LOCK WHERE prd_dev = "esclava" NO-ERROR.
OUTPUT TO /dev/tty .
PUT CONTROL prd_init.
/*Analizar estos commandos también*/
/*
^CFD
^LHx,y Establece la Posicion Inicial de la Etiqueta desde la esquina superior izquierda ejemplo : (^LH0,0).
^FOx,y Establece la Posicion Original del campo con respecto al comando /LHx,y)
El area se define desde la esquina superior ezquierda a lo largo del eje X
*/
/* Probar que sección funciona Codigo-1 o Codigo-2 */
/*Codigo 1*/
/*
PUT '^XA' SKIP.
PUT '^LH0,10' skip.
PUT '^PW775' skip. /*Verificar este dato*/
PUT '^FO250, 70^ADN, 11, 7^FD MANUFACTURAS KALTEX SA de CV^FS'
'^FO320, 105^ADN, 11, 7^FD pt_part ^FS'
'^FO30, 150^ADN, 11, 7^FD pt_desc1 ^FS'
'^FO350, 200^ADN, 11, 7'
'^BCN, 80, Y, Y, N^FD pt_part ^FS'
'^XZ' SKIP.
*/
/*Codigo 2*/
PUT '^XA' SKIP.
PUT '^LH0,10' skip.
PUT '^PW775' skip. /*Verificar este dato*/
PUT '^FO250, 70^ADN, 11, 7^FD MANUFACTURAS KALTEX SA de CV^FS'
'^FO320, 105^ADN, 11, 7^FD' pt_part '^FS'
'^FO30, 150^ADN, 11, 7^FD' pt_desc1 '^FS'
'^FO350, 200^ADN, 11, 7'
'^BCN, 80, Y, Y, N^FD' pt_part '^FS'
'^XZ' SKIP.
PUT CONTROL prd_reset.
OUTPUT CLOSE.
END.
CLEAR FRAME a.
END.
Sin más por el momento, quedo a tus ordenes.
