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,73 @@
+{
+----------------------------------------------------------------------
+ FORMULARIO        : INFMMT036
+ OBJETIVO          : Captura Documento Movimiento: REQUISICION DE MATERIALES 
+                     de Inventario de Materia Prima (INPRMT036).
+ PROGRAMADOR       : Ing. Juan Fco. Soto
+ FECHA REALIZACION : Agosto 10, 1992. 
+----------------------------------------------------------------------
+}
+SCHEMA smarmotech  
+
+TOOLBAR 
+  ITEM nuevo (TEXT="Documento", IMAGE="new", COMMENT="Nuevo Documento")
+  ITEM buscar (TEXT="Buscar Documentos", IMAGE="find", COMMENT="Criterio de busqueda")
+ SEPARATOR
+  ITEM salir (TEXT="Salir", IMAGE="quit")
+END
+LAYOUT (TEXT="REQUISICION MATERIALES")
+ GRID
+{
+
+ <g                                                                           >
+  Documento      [f000  ]    Fecha [f001      ]                              
+  Codigo de Dpto [f4  ] [a1                            ]              
+  Bodega :       [a7]                                                         
+  
+ <g                                                                                    >
+                    C A N T I D A D 
+   Codigo          Ordenada     Entregada  Unidad     D e s c r i p c i o n
+
+   [a  ][b  ][c  ][d   ][f02        ][f03        ][p  ][k                              ]
+   [a  ][b  ][c  ][d   ][f02        ][f03        ][p  ][k                              ]
+   [a  ][b  ][c  ][d   ][f02        ][f03        ][p  ][k                              ]
+   [a  ][b  ][c  ][d   ][f02        ][f03        ][p  ][k                              ]
+   [a  ][b  ][c  ][d   ][f02        ][f03        ][p  ][k                              ]
+   [a  ][b  ][c  ][d   ][f02        ][f03        ][p  ][k                              ]
+
+}
+end
+tables
+intb00001,
+intb00002,
+intb00006,
+adtb00001
+attributes
+f000 = intb00006.num_doc,noentry;
+f001 = intb00006.fecha, format = "dd/mm/yyyy",autonext,
+       comments = "Digite Fecha Documento";
+f4 = intb00006.depto_a,autonext,
+       comments = "Digite Codigo Departamento";
+
+a1   = adtb00001.nom_dpto,noentry; 
+a    = intb00006.cod_n,autonext,
+       comments = "Digite Codigo Articulo";
+b    = intb00006.cod_grupo,autonext,
+       comments = "Digite Codigo Articulo"; 
+c    = intb00006.cod_tipo,autonext,
+       comments = "Digite Codigo Articulo"; 
+d    = intb00006.cod_sec,autonext,
+       comments = "Digite Codigo Articulo"; 
+f02  = intb00006.cantidad_1,autonext, 
+       comments = "Digite La Cantidad Ordenada";
+f03  = intb00006.cantidad_2,autonext, 
+       comments = "Digite La Cantidad Entregada";
+a7   = intb00006.bodega,autonext,
+       comments = "Digite el codigo de la bodega de almacenamiento"; 
+k    = intb00001.descrip_esp,noentry,autonext; 
+p    = intb00001.unidad_med,noentry;
+
+  INSTRUCTIONS
+    SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
+                              cantidad_2,unidad_med,descrip_esp)
+end