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,81 @@
+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         ]
+Ubicación [ubic                                                                  ] 
+  Codigo    Alt. Zocalo Term. Bisel  Cant.   Precio  Desc.   Total
+[e|f|g |h  ][alt       ] [k]  [b2 ][f22     |f10     |f9][f11        ]
+                                                 Total de Material [f12         ]  
+                      Instalacion Tope Cantidad     [f13     ]  Precio [f14     ]
+Descripcion           Mano Obra [un  ] Cantidad     [f15     ]  Precio [f16     ]
+[a2                          ]         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,noentry,
+       comments = "Digite la DIRECCION correcta del cliente";
+b    = prtb00012.telefono,picture = "###-###-####",noentry,
+       comments = "Digite el numero de TELEFONO con su codigo de Area";
+c    = prtb00012.fax,picture = "###-###-####",noentry,
+       comments = "Digite el numero de FAX con su codigo de Area";
+d    = prtb00012.cond_pago,comments =
+       "Digite la CONDICION de Pago";
+alt  = prtb00013.altura_zocalo;
+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;
+ubic = prtb00012.ubicacion, upshift,SCROLL,
+       comments = "Digite la ubicacion del proyecto ";
+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,autonext;
+h   = prtb00013.cod_sec,
+      comments = "Digite el Codigo del Producto";
+a2  = formonly.descrip_esp,noentry;
+k   = formonly.terminacion,upshift,
+      comments = "Digite P=Pulido  R=Rustico o dejar el campor en blanco";
+b2  = prtb00013.bisel,UPSHIFT,
+      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, altura_zocalo, terminacion,bisel, 
+   cantidad, precio, descuento, total_p)
+end