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,82 @@
+{
+----------------------------------------------------------------------------
+ FORMULARIO          : INFMMT006
+ OBJETIVO            : Pantalla para la captura de reporte de entrada    
+                       inventario materia prima.
+ MODULOS Q. UTILIZAN : inprmt006
+ PROGRAMADOR         : Juan F. Soto               
+ FECHA REALIZACION   : Agosto 1997
+ DIRECTOR PROYECTO   : JOSE ALFREDO PAULINO ALEJO
+----------------------------------------------------------------------------
+}
+
+schema 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 
+
+{
+  Doc. No. [f00   ]
+  
+ <G Generales                                                                 >
+   Orden Compra:[ti][f02    ]Suplidor:[p1]-[f01 ][a                          ]
+   Conduce:[f03       ] Factura No.[f04      ] Fecha:[f05       ]Bodega:[k ]  
+ 
+ <G Detalles                                                                        >
+                         C  A  N  T  I  D  A  D                         Cantidad
+    Codigo                Ordenada      Recibida    Tipo Movimiento     Pendiente
+   [b ][c  ][d   ][f   ][f06        ] [f07        ] [t ] [p     ]    [f1          ]
+   [b ][c  ][d   ][f   ][f06        ] [f07        ] [t ] [p     ]    [f1          ]
+   [b ][c  ][d   ][f   ][f06        ] [f07        ] [t ] [p     ]    [f1          ]
+   [b ][c  ][d   ][f   ][f06        ] [f07        ] [t ] [p     ]    [f1          ]
+   [b ][c  ][d   ][f   ][f06        ] [f07        ] [t ] [p     ]    [f1          ]
+   Descripcion Articulo  : [g                                               ]
+   Descripcion Movimiento: [t1                                           ]
+
+}
+
+end
+tables
+
+iptb00006,
+cotb00001,
+intb00001,
+intb00005 
+attributes
+f00  = formonly.num_doc;       
+ti   = iptb00006.tipo,autonext,include = ("01","02"),comments=
+"Digite Tipo de Orden 02-Producto terminado  01- Materia Prima";
+f02  = iptb00006.orden_compra,  autonext,
+      comments = "Digite el Numero de la Orden de Compras";
+p1  = iptb00006.cod_sp,picture = "##",autonext,noentry;
+f01  = iptb00006.cod_sp_sec,picture = "####",autonext,noentry;
+f03  = iptb00006.conduce_no,       autonext,
+     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
+f04  = iptb00006.fact_no,       autonext,
+      comments = "Digite el Numero de la Factura del Suplidor";
+f05  = formonly.fecha type date,format = "dd/mm/yyyy",
+      comments = "Digite la Fecha Correspondiente al Documento";
+f06  = iptb00006.cantidad_1,noentry;
+f07  = formonly.cantidad_2 type integer,
+       comments = "Digite la Cantidad Llegada desde el Suplidor";
+t    = formonly.cod_mov type smallint,include=(10,34),
+       comments= "Codigo Movimiento Entrada ";
+a    = cotb00001.nom_sp,noentry;
+b    = iptb00006.cod_n,autonext,noentry;
+c    = iptb00006.cod_grupo,autonext,noentry;
+d    = iptb00006.cod_tipo,autonext,noentry;
+f    = iptb00006.cod_sec,autonext,noentry;
+g    = formonly.descripcion_f,noentry;
+p    = formonly.no_embarque,noentry;
+t1   = intb00005.descrip_mov,noentry;
+k    = iptb00006.bodega,autonext;
+f1   = formonly.pendiente,noentry;
+  INSTRUCTIONS
+    screen record s_movi1[5] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
+                             cantidad_2,cod_mov,no_embarque,pendiente)
+end