primer commit subida

2026-09-22 20:38:51 -04:00
commit 07649704b1
10247 changed files with 3271751 additions and 0 deletions
@@ -0,0 +1,78 @@
+{
+----------------------------------------------------------------------------
+ FORMULARIO        : INFMMT056   
+ OBJETIVO          : Capturar registros de los Movimientos de Materia Prima
+                     (INPRMT056).
+ PROGRAMADOR       : Ing. Juan Soto(Johnny) 
+ FECHA REALIZACION : Septiembre 4, 1992.
+----------------------------------------------------------------------------
+}
+database exterior   
+screen size 24 by 80
+{
+ Movimiento:[t ][t1                                      ] Doc. No. [f00   ]
+\gp-------------------------------------------------------------------------q\g
+\g|\gFecha [f05       ] Conduce no.[f03        ]                                \g|\g
+\g|\gFactura No.[f04       ]  Orden Compra:[ti][f02 ]                         \g|\g
+\g|\gSuplidor:[p1]-[f01 ][a                             ]                     \g|\g
+\g|\gDepartamento De[f8  ] [p5                            ]                   \g|\g
+\g|\gDepartamento a [f9  ] [p2                            ]                   \g|\g
+\g|\gBodega:[k ]                                                              \g|\g
+\gb-------------------------------------------------------------------------d\g
+                    C A N T I D A D 
+    Codigo       Ordenada       Recibida/ Unidad    D e s c r i p c i o n
+                                Ordenada
+\g------------------------------------------------------------------------------\g
+[b][c][d ][f  ][f06        ][f07        ][f08][g                              ]
+[b][c][d ][f  ][f06        ][f07        ][f08][g                              ]
+[b][c][d ][f  ][f06        ][f07        ][f08][g                              ]
+[b][c][d ][f  ][f06        ][f07        ][f08][g                              ]
+\g------------------------------------------------------------------------------\g
+}
+end
+tables
+intb00006,
+cotb00001,
+intb00001,
+intb00005 
+attributes
+f00  = intb00006.num_doc,       
+      comments = "Digite el Numero Documento";
+p1  = intb00006.cod_sp,noentry; 
+f01  = intb00006.cod_sp_sec,noentry;
+f02  = intb00006.orden_compra,noentry;
+f03  = intb00006.conduce_no,autonext,
+     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
+f04  = intb00006.fact_no,autonext,
+      comments = "Digite el Numero de la Factura del Suplidor";
+f8   = intb00006.depto_de,autonext; 
+f9   = intb00006.depto_a,autonext;
+p5   = formonly.nom_dpto,noentry;
+p2   = formonly.nom_dpto1,noentry;
+f05  = formonly.fecha type date,format = "dd/mm/yyyy",
+      comments = "Digite la Fecha Correspondiente al Documento";
+f06  = intb00006.cantidad_1,
+      comments = "Digite la Cantidad Pedida ";
+f07  = intb00006.cantidad_2,
+      comments = "Digite la Cantidad Llegada desde el Suplidor";
+f08  = intb00001.unidad_med,noentry;
+a    = cotb00001.nom_sp,noentry;
+b    = intb00006.cod_n,autonext,comments =
+"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
+
+ti   = intb00006.tipo,
+comments = "Digite 01-Generales  02-Rov-Ltd  03-Locales  04-Micelaneas";
+c    = intb00006.cod_grupo,autonext,comments =
+"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
+d    = intb00006.cod_tipo,autonext,comments =
+"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
+f    = intb00006.cod_sec,autonext,comments =
+"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
+g    = intb00001.descrip_esp,noentry;
+t    = intb00006.cod_mov,autonext;
+t1   = intb00005.descrip_mov,noentry;
+k    = intb00006.bodega,autonext;
+  INSTRUCTIONS
+    screen record s_movi1[4] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
+                             cantidad_2,unidad_med,descrip_esp)
+end