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,76 @@
+database marmotech
+screen size 24 by 80
+{
+Orden No. [f000       ]   Fecha Oc.: [f001      ]
+Cliente   [f0|f003]       [b1                                      ]
+Vendedor  [v1  ] [ve                            ]  
+Direccion [a                                                       ]
+Telefono  [b           ]  Fax [c           ]    Fecha de Entrega [fe        ]
+Condiciones [d    ] [f20                     ]  Balance         [f09         ]
+\g--------------------------------------------------------------------------\g
+  Codigo           Descripcion            Bisel Cant.   Precio  Desc.    Total
+[e|f|g  |h   ][a2                        ][b2 ][f22   ][f10    ][f9  ] [f11     ]
+                                                 Total de Material [f12         ]  
+                      Instalacion Tope Cantidad     [f13     ]  Precio [f14     ]
+                      Mano Obra [un  ] Cantidad     [f15     ]  Precio [f16     ]
+                                       Transporte   [f17     ]  Itbis  [f18     ]
+                                       Total Ventas [f19        ] 
+}
+end
+tables
+prtb00012,vetb00004,prtb00013
+attributes
+f000 = prtb00012.num_oc,noentry;
+f001 = prtb00012.fecha_oc,required,format="dd/mm/yyyy";
+f0   = prtb00012.tipo_cliente,required,autonext,comments = "Control-W Busca CLientes";
+f003 = vetb00004.sec_cliente,required,comments = "Control-W Busca CLientes";
+b1   = vetb00004.nombre,reverse,noentry;
+a    = prtb00012.direccion,upshift,
+       comments = "Digite la DIRECCION correcta del cliente";
+b    = prtb00012.telefono,picture = "###-###-####",autonext,
+       comments = "Digite el numero de TELEFONO con su codigo de Area";
+c    = prtb00012.fax,picture = "###-###-####,autonext",
+       comments = "Digite el numero de FAX con su codigo de Area";
+d    = prtb00012.cond_pago,comments =
+       "Digite la CONDICION de Pago";
+f20  = formonly.descrip_p,noentry;
+fe   = prtb00012.fecha_entrega,format = "dd/mm/yyyy",
+       comments = "Digite la FECHA DE ENTREGA de la Orden";
+f09  = formonly.balance,noentry;
+v1 = prtb00012.sec_vend,comments = "Control-W Para Buscar Vendedores";
+ve = formonly.nombre_vend,reverse,noentry;
+
+e   = prtb00013.cod_n,autonext;
+f   = prtb00013.cod_grupo,autonext;
+g   = prtb00013.cod_tipo;
+h   = prtb00013.cod_sec,
+      comments = "Digite el Codigo del Producto";
+a2  = formonly.descrip_esp,noentry;
+b2   = prtb00013.bisel,UPSHIFT,INCLUDE = ("DBN","SDN"),comments =
+      "Digite DBN o SDN";
+f22 = prtb00013.cantidad,
+      comments = "Digite la Cantidad ";
+f10 = prtb00013.precio,
+      comments = "Digite el Precio";
+f9  = prtb00013.descuento;
+f11 = formonly.total_p type Decimal(8,2),noentry;
+ 
+f12  = formonly.sub_total,noentry;
+f13  = prtb00012.cantidad_i,comments =
+       "Digite la cantidad de Metros en Instalacion de Topes";
+f14  = prtb00012.precio_i,comments =
+       "Digite el precio de Instalacion de Tope";
+un   = formonly.unidad_med,noentry;
+f15  = prtb00012.cantidad_mo,comments =
+       "Digite la cantidad de Metro a instalar"; 
+f16  = prtb00012.precio_mo,comments =
+       "Digite el precio por Metro de Instalacion";
+f17  = prtb00012.transporte,comments =
+       "Digite el Costo del Transporte del Producto";
+f18  = prtb00012.itbis,noentry;
+f19  = formonly.total_v,noentry;
+instructions
+  screen record s_pedido[1] 
+  (cod_n, cod_grupo, cod_tipo, cod_sec, descrip_esp, bisel, 
+   cantidad, precio, descuento, total_p)
+end