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,75 @@
+{
+----------------------------------------------------------------------------
+FORMULARIO     : IRFMCS011
+OBJETIVO       : Consultar Los Embarques
+DISENADO POR   : JUAN F. SOTO
+FECHA          : MARZO 18, 1997.
+----------------------------------------------------------------------------
+}
+database marmotech
+screen size 24 by 80
+{
+Orden No.      [f000  ] Tipo Orden[a0] Fecha[f001    ]Cierre [n]
+Codigo Suplidor[f2][f003] [a1                                           ] 
+Puerto [p1 ][p2                        ] Codigo Moneda [cm  ][dem            ]
+\g------------------------------------------------------------------------------
+Requis.  Codigo            Cantidad     Precio        Valor      Recibido
+\g------------------------------------------------------------------------------
+[re    ][a][g][t ][se ][f3         ][f6          ][f7          ][fr1         ]
+[re    ][a][g][t ][se ][f3         ][f6          ][f7          ][fr1         ]
+[re    ][a][g][t ][se ][f3         ][f6          ][f7          ][fr1         ]
+Descripcion  [des                           ]                 Unidad [f8 ]
+No. Embarque[e4]    Recibidos[e5]  
+ EMBARQUE ------ ESTATUS EMB. -------  FECHA SALIDA      
+ [f18     ]    [f0][f67              ] [f77     ]  
+ [f18     ]    [f0][f67              ] [f77     ]  
+}
+end
+tables
+cotb00005, 
+intb00001, cotb00008,
+cotb00014, cotb00024,
+cotb00001, cotb00015
+attributes
+f18  = formonly.cod_emb,noentry;
+f0   = formonly.cod_st,comments = 
+" <Ctrl-N Informacion Sobre Este Embarque <Esc> Actualiza Informacion"; 
+f67  = formonly.nomb_st,noentry; 
+f77  = formonly.fecha_salida type date,format="dd/mm/yy",noentry;
+re   = formonly.num_req,autonext,comments =
+"<Ctrl-P> Busca Embarques De Este Codigo, <Ctrl-B> Busca Descr. Item";
+a    = intb00001.cod_n;
+g    = intb00001.cod_grupo,noentry; 
+t    = intb00001.cod_tipo,noentry; 
+se   = intb00001.cod_sec,noentry; 
+des  = intb00001.descrip_esp,noentry;
+f8   = intb00001.unidad_med,noentry;
+f3   = cotb00008.cantidad,noentry;
+f6   = cotb00008.precio,noentry;
+f7   = formonly.valor,noentry;
+f000 = cotb00014.num_oc,noentry;
+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 ";
+f003 = cotb00014.cod_sp_sec,autonext,
+     comments =
+"Digite la secuencia del suplidor";
+a1   = cotb00001.nom_sp,noentry;
+n    = cotb00014.cierre,noentry; 
+p1   = formonly.cod_pt,autonext; 
+p2   = formonly.nombre_p,noentry;
+cm   = formonly.cod_mon,autonext; 
+dem  = formonly.nombre_mon,noentry;
+fr1  = formonly.recibido,noentry;
+e4   = formonly.emb_no; 
+e5   = formonly.emb_rec;
+instructions
+    screen record consart[3] (num_req,cod_n,cod_grupo,cod_tipo,cod_sec,
+                              cantidad,precio,valor,recibido)
+    screen record emb[2] (cod_emb,cod_st,nomb_st,fecha_salida)
+end