76 lines
2.8 KiB
Plaintext
76 lines
2.8 KiB
Plaintext
DATABASE marmotech
|
|
GLOBALS "prprgb000.4gl"
|
|
DEFINE unidad,nombre,nombre_vend,descrip_esp CHAR(40)
|
|
REPORT ordenes(xnumero,z)
|
|
DEFINE z RECORD
|
|
cod_n_c LIKE prtb00008.cod_n,
|
|
cod_grupo_c LIKE prtb00008.cod_grupo,
|
|
cod_tipo_c LIKE prtb00008.cod_tipo,
|
|
cod_sec_c LIKE prtb00008.cod_sec,
|
|
cantidad_c LIKE prtb00008.cantidad ,
|
|
descrip_esp_c LIKE intb00001.descrip_esp,
|
|
unidad_c LIKE intb00001.unidad_med
|
|
END RECORD,
|
|
xnumero INTEGER,
|
|
negrillas_on,negrillas_off,doble CHAR(2)
|
|
|
|
OUTPUT
|
|
LEFT MARGIN 0
|
|
|
|
ORDER BY xnumero
|
|
FORMAT
|
|
PAGE HEADER
|
|
LET negrillas_on = ASCII 27, ASCII 69
|
|
LET negrillas_off = ASCII 27, ASCII 70
|
|
LET doble = ASCII 14
|
|
|
|
LET l = (80 - LENGTH(p_compania.nombre CLIPPED))/2
|
|
PRINT COLUMN l, p_compania.nombre CLIPPED,
|
|
COLUMN 70, TODAY USING "DD/MM/YY"
|
|
LET l = (80 - LENGTH("ORDEN DE PRODUCCION"))/2
|
|
PRINT COLUMN l, "ORDEN DE PRODUCCION",
|
|
COLUMN 70, TIME
|
|
|
|
|
|
PRINT COLUMN 1, "NO. ORDEN: ",doble_on,xnumero USING "<<<<<<"
|
|
PRINT COLUMN 1, "FECHA : ",negrillas_on,prtb07.fecha
|
|
USING "DD/MM/YY",negrillas_off
|
|
PRINT COLUMN 1, "VENDEDOR : ",negrillas_on,prtb07.sec_vend USING "<<<<",
|
|
nombre_vend,negrillas_off
|
|
PRINT COLUMN 1, "CLIENTE : ",negrillas_on,prtb07.tipo_cliente USING "<<",
|
|
prtb07.sec_cliente
|
|
USING "<<<<"," ",
|
|
nombre,negrillas_off
|
|
PRINT COLUMN 1, "PRODUCTO : ",negrillas_on,prtb07.cod_n USING "&","-",
|
|
prtb07.cod_grupo USING "&",
|
|
prtb07.cod_tipo USING "&&","-",
|
|
prtb07.cod_sec
|
|
USING "&&&",negrillas_off,descrip_esp," ",
|
|
unidad,negrillas_off
|
|
PRINT COLUMN 1, "CANTIDAD : ",negrillas_on, prtb07.cantidad USING "<<,<<<",
|
|
negrillas_off
|
|
|
|
FOR i = 1 TO 70
|
|
PRINT "-";
|
|
END FOR
|
|
PRINT "-"
|
|
PRINT "COMPOSICION PRODUCTO..."
|
|
FOR i = 1 TO 70
|
|
PRINT "-";
|
|
END FOR
|
|
PRINT "-"
|
|
ON EVERY ROW
|
|
PRINT COLUMN 1, z.cod_n_c USING "&","-",
|
|
z.cod_grupo_c USING "&","-",
|
|
z.cod_tipo_c USING "&&","-",
|
|
z.cod_sec_c USING "&&&","-",
|
|
" ",z.descrip_esp_c," ",z.unidad_c,
|
|
" ",z.cantidad_c USING "###,###.###"
|
|
PAGE TRAILER
|
|
PRINT COLUMN 10, "-------------------",
|
|
COLUMN 35, "-------------------"
|
|
|
|
PRINT COLUMN 13, "AUTORIZADO POR",
|
|
COLUMN 39, "REVISADO POR"
|
|
END REPORT
|