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,71 @@
+database marmotech         
+screen size 24 by 80
+{
+ Movimiento:[t ][t1                                      ] Doc. No. [f00   ]
+\gp-------------------------------------------------------------------------q\g
+\g|\gFecha [f05     ] Orden Compra:[a1][f02   ]                               \g|\g
+\g|\gSuplidor:[p1]-[f01 ][a                             ]                     \g|\g
+\g|\gFactura No.[f04       ]  Conduce No. :[f03        ]                      \g|\g
+\g|\gLocalidad      [f8  ] [p5                            ]                   \g|\g
+\g|\gDepartamento a [f9  ] [p3                            ]                   \g|\g
+\gb-------------------------------------------------------------------------d\g
+                 Cantidad   Cantidad
+    Codigo       Ordenada   Recibida   Unidad D e s c r i p c i o n
+\g------------------------------------------------------------------------------\g
+[b][c][d ][f  ][f06       ][f07       ][f08][g                          ][ma ]
+[b][c][d ][f  ][f06       ][f07       ][f08][g                          ][ma ]
+[b][c][d ][f  ][f06       ][f07       ][f08][g                          ][ma ]
+[b][c][d ][f  ][f06       ][f07       ][f08][g                          ][ma ]
+\g------------------------------------------------------------------------------\g
+  Descripcion Maquina: [n1                              ]
+}
+end
+tables
+
+irtb00006,
+cotb00001,
+irtb00002,
+irtb00005 
+attributes
+ma   = irtb00006.maquina,autonext,comments =
+       "Digite el codigo de la maquina del repuesto";
+a1   = formonly.tipo,comments="Digite Tipo De La Orden";
+f00  = irtb00006.num_doc,comments = "Digite el Numero Documento";
+p1  = irtb00006.cod_sp,picture = "##",autonext,
+      comments = "Digite el Codigo del Supldor";
+f01  = irtb00006.cod_sp_sec,picture = "####",autonext,
+      comments = "Digite el Codigo del Supldor";
+f02  = irtb00006.orden_compra,  autonext,
+      comments = "Digite el Numero de la Orden de Compras";
+f03  = irtb00006.conduce_no,       autonext,
+     comments = "Digite el Numero del Conduce Del Suplidor, Si Tiene Conduce";
+f04  = irtb00006.fact_no,       autonext,
+      comments = "Digite el Numero de la Factura del Suplidor";
+f8   = formonly.sec_de  ,autonext; 
+f9   = formonly.sec_a  ,autonext;
+p3   = formonly.nom,noentry;
+p5   = formonly.nom_seccion,noentry;
+f05  = formonly.fecha type date,format = "dd/mm/yy",
+      comments = "Digite la Fecha Correspondiente al Documento";
+f06  = irtb00006.cantidad_1,noentry;
+f07  = irtb00006.cantidad_2,
+      comments = "Digite la Cantidad Llegada desde el Suplidor";
+f08  = irtb00002.unidad_med,noentry;
+a    = cotb00001.nom_sp,noentry;
+b    = irtb00006.cod_n,autonext,comments =
+"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
+
+c    = irtb00006.cod_grupo,autonext,comments =
+"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
+d    = irtb00006.cod_tipo,autonext,comments =
+"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
+f    = irtb00006.cod_sec,autonext,comments =
+"Para Borrar un codigo Presione Ctrl-B o Continue Consultando";
+g    = irtb00002.descrip_esp,noentry;
+t    = irtb00006.cod_mov,autonext;
+t1   = irtb00005.descrip_mov,noentry;
+n1   = formonly.nombre,noentry;
+  INSTRUCTIONS
+    screen record s_movi1[4] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
+                             cantidad_2,unidad_med,descrip_esp,maquina)
+end