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,65 @@
+{
+------------------------------------------------------------------------------
+ FORMULARIO        : INFMMT026
+ OBJETIVO          : Captura Documento Movimiento: MATERIALES DEVUELTO DE 
+                     PRODUCCION de Inventario de Materia Prima (INPRMT026).
+ PROGRAMADOR       : Juan Fco. Soto (Johnny)
+ FECHA REALIZACION : Agosto 07, 1992. 
+------------------------------------------------------------------------------
+}
+database decomarmol    
+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";
+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;
+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)
+end