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