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,56 @@
+database marmotech   
+screen size 24 by 80
+{
+Orden No.      [f000  ] Tipo Orden[a0] Fecha[f001    ] Cierre [f]
+Codigo Suplidor[f2][f003] [a1                                           ] 
+Puerto  [pt][n1                              ]
+\g------------------------------------------------------------------------------
+Requis.  Codigo            Cantidad   ESB  Number      Precio        Valor
+\g------------------------------------------------------------------------------
+[re    ][a][g][t ][se ][f3         ][f5          ][f6          ][f7          ]
+[re    ][a][g][t ][se ][f3         ][f5          ][f6          ][f7          ]
+[re    ][a][g][t ][se ][f3         ][f5          ][f6          ][f7          ]
+Descripcion  [des                           ]                 Unidad [f8 ]
+N.A.B.  [F9         ]        Nomenclatura [k                             ]
+}
+end
+tables
+cotb00005, cotb00006,
+intb00001, cotb00008,
+cotb00014, cotb00024,
+cotb00001, cotb00015
+attributes
+f    = cotb00014.cierre,include=("S","N"),comments = 
+       "Digite S O N Si la Orden se Cerrara o No",upshift;
+re   = cotb00006.num_req;
+a    = intb00001.cod_n,noentry; 
+g    = intb00001.cod_grupo,noentry; 
+t    = intb00001.cod_tipo,noentry; 
+pt   = cotb00014.cod_pt;
+n1   = formonly.nombre_p;
+se   = intb00001.cod_sec,noentry; 
+des  = intb00001.descrip_esp,noentry;
+f8   = intb00001.unidad_med,noentry;
+k    = formonly.descrip1,noentry;    
+f3   = cotb00008.cantidad,noentry;
+f5   = cotb00015.num_parte;
+f9   = cotb00005.cod_nab,noentry;
+f6   = cotb00008.precio,noentry;
+f7   = formonly.valor,noentry;
+f000 = cotb00014.num_oc;
+a0 = cotb00014.tipo,upshift,autonext,
+     include = ("01","02","03","04"),
+     comments ="01=Generales, 02=Rov-Ltd, 03=Locales, 04=Miscelaneas";
+f001 = cotb00014.fech_oc,autonext,format = "dd/mm/yy",
+       comments ="Digite la fecha de elaboracion de la orden";
+f2 = cotb00014.cod_sp,autonext,
+       comments = 
+"Digite el codigo del suplidor o Presione Ctrl-W para busqueda";
+f003 = cotb00014.cod_sp_sec,autonext,
+     comments =
+"Digite la secuencia del suplidor o Presione Ctrl-W para busqueda";
+a1   = cotb00001.nom_sp,noentry;
+instructions
+    screen record consart[3] (num_req,cod_n,cod_grupo,cod_tipo,cod_sec,
+                              cantidad,num_parte,precio,valor)
+end