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,58 @@
+
+{
+------------------------------------------------------------------
+ Formulario        : infmmt023
+ OBJETIVO          : Capturar, Modificar, Eliminar registros de la
+                     Tabla de la maestra de FIANZAS, aceptando el    
+                     numero de factura como numero de fianza.
+ Modulos q. lo usan: inprmt023
+ PROGRAMADOR       : Tadeo A. Ferreas 
+ FECHA REALIZACION : Julio 22, 1993. 
+------------------------------------------------------------------
+}
+database exterior   
+screen
+{
+ Numero de Documento [nf    ]  Numero de Resolucion [nr    ] Fecha [ff      ]
+ Suplidor[cs]-[cs1 ] [nomb                             ]
+ Orden Numero[numo  ]-[e]                             Valor Merc.[merc      ]  
+\g-----------------------------------------------------------------------------\g
+  Material                                     Cant. Internar  Cant. Cancelar
+\g-----------------------------------------------------------------------------\g
+ [n][g][t  ][s  ][uni][nomb4                   ][cant         ][cant1        ]
+ [n][g][t  ][s  ][uni][nomb4                   ][cant         ][cant1        ]
+ [n][g][t  ][s  ][uni][nomb4                   ][cant         ][cant1        ]
+ [n][g][t  ][s  ][uni][nomb4                   ][cant         ][cant1        ]
+}
+end
+tables
+intb00020
+attributes
+nf    = intb00020.num_fianza,comments = "Digite el numero de solicitud";
+nr    = intb00020.num_res,comments = 
+   "En caso de estar atada una resolucion, digite el numero de la misma";
+ff    = intb00020.fecha,format = "dd/mm/yy",comments =
+       "Digite fecha de solicitud";
+cs    = intb00020.cod_sp,autonext,
+       comments="Presione CTRL-W Para Buscar Codigo del Suplidor";
+cs1   = intb00020.cod_sp_sec,autonext,comments="Digite el codigo del suplidor";
+nomb  = formonly.nombre type char,noentry,color=yellow;
+numo = intb00020.num_oc,comments = "Digite el numero de la orden de compra";
+e    = intb00020.num_emb,comments=
+       "Digite el numero del embarque para la orden";
+merc = intb00020.valor_merc,comments = "Digite valor de la mercancia en US$";
+n     = intb00020.cod_n,autonext,comments = "Digite el codigo del material";
+g     = intb00020.cod_grupo,autonext,comments = "Digite el codigo del material";
+t     = intb00020.cod_tipo,autonext,comments = "Digite el codigo del material";
+s     = intb00020.cod_sec,autonext,comments = "Digite el codigo del material";
+nomb4 = formonly.descrip type char,noentry,color=yellow;
+uni   = formonly.unidad type char,noentry,color=yellow;
+cant  = intb00020.cantidad,
+   comments="Digite la cantidad de material a internar";
+cant1 = intb00020.cantidad_c,comments =
+   "Digite la cantidad de material con que se cancelara la orden ";
+instructions delimiters " "
+  screen record fact2[4](cod_n,cod_grupo,cod_tipo,cod_sec,unidad,descrip,
+                           cantidad,cantidad_c)
+end
+