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,67 @@
+
+    DEFINE producto RECORD
+           cod_cia SMALLINT ,
+	       cod_n SMALLINT ,
+	       cod_grupo SMALLINT ,
+	       cod_tipo SMALLINT ,
+	       cod_sec SMALLINT ,
+	       descrip_esp varchar(180) ,
+	       descrip_ing varchar(80) ,
+	       unidad_med varchar(4) ,
+	       nomenclatura char(50) ,
+	       bodega SMALLINT ,
+           existencia DEC(12,5),
+           disponible DEC(12,5),
+	       exist_max decimal(10, 2) ,
+	       exist_min decimal(10, 2) ,
+	       dia_llegada SMALLINT ,
+	       control_existencia varchar(2) ,
+	       control_itbis varchar(2) ,
+	       codid INT  ,
+	       foto_producto STRING,
+   	       porc_desc decimal(12, 2) ,
+	       fecha_desc DATE ,
+           factor DEC(12,2),
+           referencia VARCHAR(25)
+    END RECORD,
+    selec STRING
+MAIN
+
+ CONNECT TO "smarmotech" USER 'jsoto' USING "lmmjvsd2014"
+
+ LET selec  =
+         "SELECT  a.cod_cia ,
+	             a.cod_n ,
+	             a.cod_grupo  ,
+	             a.cod_tipo  ,
+	             a.cod_sec  ,
+	             a.descrip_esp  ,
+	             a.descrip_ing  ,
+	             a.unidad_med  ,
+	             a.nomenclatura  ,
+	             a.bodega  ,
+                 '0',
+                 '0',
+	             a.exist_max  ,
+	             a.exist_min  ,
+	             a.dia_llegada  ,
+	             a.control_existencia ,
+	             a.control_itbis  ,
+	             a.codid   ,
+	             a.foto_producto ,
+   
+	             a.porc_desc  ,
+	             a.fecha_desc,
+                 b.factor_conv   
+       FROM iptb00002 a,iptb00001 b 
+      WHERE a.cod_n=b.cod_n AND a.cod_grupo=b.cod_grupo AND
+            a.cod_tipo=b.cod_tipo AND 
+            a.cod_sec = b.cod_Sec AND 
+             CAST(a.cod_n AS VARCHAR(10))+CAST(a.cod_grupo AS VARCHAR(10))+
+             CAST(a.cod_tipo AS VARCHAR(10))+CAST(a.cod_sec AS VARCHAR(10)) = '196681781079' AND 
+                  a.status_t IS NULL "
+       PREPARE busca_prod FROM selec
+       EXECUTE busca_prod INTO producto.* 
+
+DISPLAY "DATOS ",producto.*
+END MAIN