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 smarmotech
+screen size 24 by 80
+{
+\gp---------------------------------------------------------------------------q\g
+\g|\gDocumento Numero [f000  ] Compania [r][c4                ]                 \g|\g
+\g|\gCodigo Movimiento [m ] [m1                                      ]          \g|\g
+\g|\gFactura [fact  ] Transportista [tr][tr1 ][des                           ]  \g|\g
+\g|\gTarifa [t  ][t1                             ] Placa [pl         ]          \g|\g
+\g|\gfecha[f001    ]Bodega :[p1 ]Orden de Corte [oc      ]                      \g|\g
+\g|\gDetalle [det                                                         ]     \g|\g
+\g|\gCliente:[cl]-[cl1 ][nom                            ]                       \g|\g
+\gb---------------------------------------------------------------------------d\g
+                  Cantidad    Cantidad
+      Codigo      Unidades    Afectar     Unidad    D e s c r i p c i o n
+\g-----------------------------------------------------------------------------\g
+  [a][b][c ][d  ][f03       ][f02        ][p  ][k                             ] 
+  [a][b][c ][d  ][f03       ][f02        ][p  ][k                             ] 
+  [a][b][c ][d  ][f03       ][f02        ][p  ][k                             ] 
+  [a][b][c ][d  ][f03       ][f02        ][p  ][k                             ] 
+\g-----------------------------------------------------------------------------\g
+}
+end
+tables
+iptb00006,
+intb00001,
+cotb00001
+attributes
+oc   = iptb00006.conduce_no,
+       comments = "Digite le numero de orden de Corte";
+det  = iptb00006.detalle;
+cl   = iptb00006.cod_sp,autonext;
+cl1  = iptb00006.cod_sp_sec,autonext;
+nom  = formonly.descrip4,noentry;
+pl   = iptb00006.placa,autonext,comments = 
+    "Digite placa del vehiculo que transporta la mercancia";
+fact = formonly.fact_no,autonext,comments =
+  "Introducir Numero de Factura de Ventas";
+tr   = iptb00006.cod_transp,autonext,comments =
+  "Introduzca Codigo Transportista";
+tr1   = iptb00006.sec_transp,autonext,comments =
+  "Introduzca Codigo Transportista";
+des  = formonly.descrip2,noentry;
+t    = iptb00006.cod_tarifa,comments =
+   "Introduzca Codigo Tarifa",autonext;
+t1   = formonly.descrip1,noentry; 
+f000 = iptb00006.num_doc,noentry; 
+r   = iptb00006.cod_cia,autonext,include = (1 to 2), comments =
+"01 - MARMOTECH                             ";
+c4   = formonly.nombre_cia,noentry;
+f001 = iptb00006.fecha, format = "dd/mm/yy",autonext,
+    comments = "Digite Fecha Documento";
+a    = iptb00006.cod_n,autonext,
+    comments = "Digite el NIVEL";
+b    = iptb00006.cod_grupo,autonext,
+    comments = "Digite el GRUPO"; 
+c    = iptb00006.cod_tipo,autonext,
+    comments = "Digite el TIPO"; 
+d    = iptb00006.cod_sec,autonext,
+    comments = "Digite la SECUENCIA   "; 
+f03  = iptb00006.cantidad_1,noentry; 
+f02  = iptb00006.cantidad_2,autonext;
+k    = intb00001.descrip_esp,noentry;
+p    = intb00001.unidad_med,noentry;
+p1   = iptb00006.bodega,autonext;
+m    = iptb00006.cod_mov,autonext,autonext,
+       comments = "Digite codigo del movimiento";
+m1   = formonly.descrip_mov, noentry;
+  INSTRUCTIONS
+    SCREEN RECORD s_movi1[4] (cod_n,cod_grupo,cod_tipo,cod_sec,cantidad_1,
+                              cantidad_2,unidad_med,descrip_esp)
+end