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,61 @@
+database marmotech
+screen size 24 by 80
+{
+Tipo Movimiento:[t ][t1                                       ]Doc. No.[f00   ]
+\gp-------------------------------------------------------------------------q\g
+\g|\gSuplidor:[p1]-[f01 ][a                          ] Orden de Compra:[f02 ] \g|\g
+\gp-------------------------------------------------------------------------q\g
+\g|\gConduce:[f03       ] Factura No.[f04       ] Fecha:[f05     ] Bodega [d ]\g|\g
+\gb-------------------------------------------------------------------------d\g
+   Codigo      Unidades     Cantidad  Descripcion                       Und.
+\gp---------------------------------------------------------------------------q\g
+ [b         ][f06      ][f07        ][g                                 ][f08]
+ [b         ][f06      ][f07        ][g                                 ][f08]
+ [b         ][f06      ][f07        ][g                                 ][f08]
+ [b         ][f06      ][f07        ][g                                 ][f08]
+\gb---------------------------------------------------------------------------d\g
+}
+end
+tables
+
+iptb00006,
+cotb00001,
+intb00001,
+intb00005 
+attributes
+f00  = iptb00006.num_doc,       
+      comments = 
+"Digite el Numero Documento o Presione  <Esc> Para Buscar Todos Los Documentos";
+p1  = iptb00006.cod_sp,picture = "##",autonext,
+      comments = "Digite el Codigo del Suplidor";
+f01  = iptb00006.cod_sp_sec,picture = "####",
+      comments = "Digite el Codigo del Suplidor";
+f02  = iptb00006.orden_compra,  
+      comments = "Digite el Numero de la Orden de Compras";
+f03  = iptb00006.conduce_no,       
+     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
+f04  = iptb00006.fact_no,       
+      comments = "Digite el Numero de la Factura del Suplidor";
+f05  = formonly.fecha type date,format = "dd/mm/yy",
+      comments = "Digite la Fecha Correspondiente al Documento";
+f06  = iptb00006.cantidad_1,
+      comments = "Digite la Cantidad Pedida ";
+f07  = iptb00006.cantidad_2,
+      comments = "Digite la Cantidad Llegada desde el Suplidor";
+f08  = intb00001.unidad_med,noentry;
+a    = cotb00001.nom_sp,noentry;
+b    = formonly.codigo,noentry; 
+g    = formonly.descrip_esp,noentry;
+i    = iptb00006.uso_tiempo,autonext;
+| fglform: The label 'i' was not defined in the form.
+| See error number -2840.
+d    = iptb00006.bodega,noentry;
+t    = iptb00006.cod_mov,autonext,comments = 
+      "Digite Codigo Movimiento de Entrada (01 - Local  02 - Exterior)",
+      include = (34 to 35);
+t1   = intb00005.descrip_mov,noentry;
+  INSTRUCTIONS
+    screen record s_movi1[4] (codigo,cantidad_1,cantidad_2,descrip_esp,
+                              unidad_med)
+delimiters " "
+end