Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,75 @@
+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