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,67 @@
+{
+--------------------------------------------------------------------------
+ FORMULARIO        : INFMCS021
+ OBJETIVO          : Pantalla para Consulta Movimientos Materia Prima: 
+                     Materiales Devueltos Desde Produccion (INPRCS021).
+ PROGRAMADOR       : Juan Fco. Soto (Johnny)
+ FECHA REALIZACION : Agosto 14,1992. 
+--------------------------------------------------------------------------
+}
+database smarmotech  
+screen size 24 by 80
+{
+\gp---------------------------------------------------------------------------q\g
+\g|\gDocumento Numero [f000  ]                                                  \g|\g
+\g|\gfecha            [f001    ]                                                \g|\g
+\g|\gDel Depto.: [f1  ] [a1                            ]                        \g|\g
+\g|\gAl  Depto.: [f2  ] [b1                            ] Bodega :[h ]           \g|\g
+\gb---------------------------------------------------------------------------d\g
+                         C A N T I D A D
+     Codigo           Devuelta     Recibida Unidad D e s c r i p c i o n
+\g------------------------------------------------------------------------------\g
+[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                             ]
+\g------------------------------------------------------------------------------\g
+}
+end
+tables
+intb00006,
+intb00001,
+cotb00001,
+adtb00001
+attributes
+f000 = intb00006.num_doc,autonext,
+    comments = 
+"Digite Numero Documento o Presione <Esc> Para Buscar Todos Los Documentos";
+f001 = intb00006.fecha, format = "dd/mm/yy",autonext,
+    comments = "Digite Fecha Documento";
+f1   = intb00006.depto_de,autonext,
+    comments = "Digite Codigo Departamento";
+f2   = intb00006.depto_a,autonext,
+    comments = "Digite Codigo Departamento";
+a1   = adtb00001.nom_dpto,noentry,autonext;
+b1   = formonly.nom_dpto1,noentry;
+a    = intb00006.cod_n,autonext,
+    comments = "Digite el NIVEL";
+b    = intb00006.cod_grupo,autonext,
+    comments = "Digite el GRUPO"; 
+c    = intb00006.cod_tipo,autonext,
+    comments = "Digite el TIPO  "; 
+d    = intb00006.cod_sec,autonext,
+    comments = "Digite la SECUENCIA"; 
+f02  = intb00006.cantidad_1,autonext,
+    comments = "Digite La Cantidad Ordenada";
+f03  = intb00006.cantidad_2,autonext,
+    comments = "Digite La Cantidad Entregada";
+k    = intb00001.descrip_esp,noentry,autonext;
+p    = intb00001.unidad_med,noentry;
+h    = intb00006.bodega,autonext; 
+  INSTRUCTIONS
+    SCREEN RECORD s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
+                              cantidad_2,unidad_med,descrip_esp)
+    delimiters " "
+end