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,88 @@
+{
+----------------------------------------------------------------------------
+ FORMULARIO          : IRFMMT006
+ OBJETIVO            : Pantalla para la captura de reporte de entrada
+ MODULOS Q. UTILIZAN : irprmt006
+ PROGRAMADOR         : Juan F. Soto               
+ FECHA REALIZACION   : Febrero 1, 1993     
+----------------------------------------------------------------------------
+}
+database smarmotech
+TOOLBAR 
+  ITEM nuevo (TEXT="Documento", IMAGE="new", COMMENT="Nuevo Reporte Entradan")
+  ITEM buscar (TEXT="Buscar Documentos", IMAGE="find", COMMENT="Criterio de busqueda")
+ SEPARATOR
+  ITEM salir (TEXT="Salir", IMAGE="quit")
+  
+LAYOUT (TEXT="REPORTES ENTRADA", STYLE="basic")
+    GRID 
+
+
+{
+ <G Encabezado                                                                 >
+   Movimiento:[t ][t1                                      ] Doc. No. [f00   ]
+   Orden Compra:[ti][f02   ]  Suplidor:[p1]-[f01 ][a                         ] 
+   Conduce:[f03       ]     Factura No.[f04       ] Fecha:[f05       ]Dep[d100] 
+
+<G Detalle                                                                                >
+                                                 C A N T I D A D
+    Codigo                                    Ordenada      Recibida  Maquina
+
+   [b  ][c  ][d   ][f      ][g                            ][f08][f06     ][f07     ][f09]
+   [b  ][c  ][d   ][f      ][g                            ][f08][f06     ][f07     ][f09]
+   [b  ][c  ][d   ][f      ][g                            ][f08][f06     ][f07     ][f09]
+   [b  ][c  ][d   ][f      ][g                            ][f08][f06     ][f07     ][f09]
+   [b  ][c  ][d   ][f      ][g                            ][f08][f06     ][f07     ][f09]
+   [b  ][c  ][d   ][f      ][g                            ][f08][f06     ][f07     ][f09]
+  Descripcion Maquina :[h                             ] 
+
+}
+end
+tables
+
+irtb00006,
+cotb00001,
+irtb00002,
+irtb00005 
+attributes
+f00  = irtb00006.num_doc,noentry;
+p1  = irtb00006.cod_sp,noentry;
+f01  = irtb00006.cod_sp_sec,noentry;
+f02  = irtb00006.orden_compra,  autonext,
+      comments = "Digite el Numero de la Orden de Compras";
+f03  = irtb00006.conduce_no,       autonext,
+     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
+f04  = irtb00006.fact_no,       autonext,
+      comments = "Digite el Numero de la Factura del Suplidor";
+f05  = formonly.fecha type date,format = "dd/mm/yyyy",default=today,
+      comments = "Digite la Fecha Correspondiente al Documento";
+f06  = irtb00006.cantidad_1,
+      comments = "Digite la Cantidad Pedida ";
+f07  = irtb00006.cantidad_2,
+      comments = "Digite la Cantidad Llegada desde el Suplidor";
+f08  = irtb00002.unidad_med,noentry;
+f09 = irtb00006.maquina,autonext,
+     comments = "Digite la maquina que pertence el repuesto";
+h   = formonly.nombre,noentry;
+a    = cotb00001.nom_sp,noentry;
+b    = irtb00006.cod_n,autonext,
+      comments = "Digite el Codigo De la herramienta";  
+c    = irtb00006.cod_grupo,autonext,
+      comments = "Digite el Codigo De la herramienta";  
+d    = irtb00006.cod_tipo,autonext,
+      comments = "Digite el Codigo De la herramienta";  
+f    = irtb00006.cod_sec,autonext,
+      comments = "Digite el Codigo De la herramienta";  
+g    = irtb00002.descrip_esp,noentry;
+
+ti   = formonly.tipo type char,autonext;
+
+t    = irtb00006.cod_mov,autonext;
+      
+d100 = formonly.sec_a,comments = "Digite Departamento Nomina";
+t1   = irtb00005.descrip_mov,noentry;
+  INSTRUCTIONS
+    screen record s_movi1[6] (cod_n,cod_grupo,cod_tipo,cod_sec,descrip_esp,
+                              unidad_med,cantidad_1,cantidad_2,maquina)    
+
+end