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,148 @@
+IMPORT os
+MAIN
+
+CALL actfoto()
+END MAIN
+FUNCTION actfoto()
+  DEFINE codn,codgrupo,codtipo,codsec,xcodid,xid_categoria,xid_familia,xid_brand INT,
+         xunidad VARCHAR(10),xtraduccion,xdescripcion1,xdescripcion VARCHAR(255),
+        xpropiedad1,xpropiedad2 STRING,
+         xprecio FLOAT,
+         ximagen BYTE,
+         xnombre_file,
+        xmetadata VARCHAR(100),rutafile,fileread,filename,xtipodata,ficha_t,ruta_ficha STRING
+         
+ CONNECT TO "smarmotech" USER 'jsoto' USING 'lmmjvsd2014'
+
+ DECLARE buscar CURSOR FOR
+
+ SELECT DISTINCT a.codid,b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,
+           a.descrip_esp,b.descripcion_esp,a.unidad_med,b.descripcion_us,b.propiedades_esp,
+           b.propiedades_us,b.meta_data, ISNULL(c.precio,0),
+           b.id_categoria,b.id_familia,b.id_brand,
+           d.nombre_file_foto ,d.tipo_data,b.nombre_file_ficha
+    FROM iptb00002 a INNER  join tmpproductostienda b 
+	on    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
+   left OUTER JOIN tmpfotos d 
+   ON
+          a.cod_n = d.cod_n AND
+          a.cod_grupo = d.cod_grupo AND
+          a.cod_tipo = d.cod_tipo AND
+          a.cod_Sec = d.cod_sec AND d.tipo_data = 'PRINCIPAL'
+ 
+   left outer join    vetb00025 c on 
+    c.ventas = 3 AND
+          a.cod_n = c.cod_n AND
+          a.cod_grupo = c.cod_grupo AND
+          a.cod_tipo = c.cod_tipo AND
+          a.cod_Sec = c.cod_sec
+    WHERE a.status_t IS NULL  AND b.tipo_data = 'PRINCIPAL'
+    
+  
+ # LET rutafile = 'C:\\Users\\jsoto\\Documents\\PROYECTOS\\BDL320\\WEBSERVICES\\bin\\img\\'
+  LET rutafile = 'e:\\IMAGENESTIENDA\\'
+  
+  LOCATE ximagen IN MEMORY  
+  
+  
+ # DELETE FROM iptb00016
+ # DELETE FROM iptb00018
+  FOREACH buscar INTO xcodid,codn,codgrupo,codtipo,codsec, xdescripcion1,xdescripcion,xunidad,xtraduccion,
+                      xpropiedad1,xpropiedad2,xmetadata,xprecio,
+                      xid_categoria,xid_familia,xid_brand,xnombre_file,xtipodata,ficha_t
+    
+    IF xnombre_file IS NOT NULL THEN
+        LET filename = xnombre_file CLIPPED
+        LET fileread = rutafile CLIPPED,filename CLIPPED
+        LET ruta_ficha = rutafile CLIPPED,ficha_t
+     
+     {   IF os.Path.exists(fileread) THEN
+           DISPLAY "NOMBRE FILE ",fileread
+           CALL comprimeImagen(fileread,' -resize 500x500 ') 
+            DISPLAY "encontre el file ",xcodid,xdescripcion," ",xtraduccion, " ",xnombre_file
+         ELSE
+         DISPLAY "NO ENCONTRE al file ",fileread
+         END IF} 
+    END IF
+    
+    SELECT DISTINCT a.codid FROM iptb00016 a
+    WHERE a.codid = xcodid
+    IF STATUS = NOTFOUND THEN
+        DISPLAY " A ACTUALIZAR EL CODID ",xcodid,xdescripcion," ",xtraduccion, " ",fileread   
+       INSERT INTO iptb00016
+           (codid
+           ,cod_n
+           ,cod_grupo
+           ,cod_tipo
+           ,cod_sec
+           ,descripcion
+           ,precio
+           ,nombre_file_ficha
+           ,fech_crea
+           ,us_crea
+           ,nombre_file_foto
+           ,ruta_foto
+           ,precio_usd
+           ,descripcion_user
+           ,id_categoria
+           ,id_familia
+           ,id_brand
+           ,descripcion_us
+           ,propiedades
+           ,propiedades1
+           ,metadata
+           ,unidad_med
+           ,ruta_file_ficha
+  )
+     VALUES
+           (xcodid
+           ,codn
+           ,codgrupo
+           ,codtipo
+           ,codsec
+           ,xdescripcion1
+           ,xprecio
+           ,ficha_t
+           ,getdate()
+           ,'JSOTO'
+           ,xnombre_file
+           ,fileread
+           ,xprecio
+           ,xdescripcion
+           ,xid_categoria
+           ,xid_familia
+           ,xid_brand
+           ,xtraduccion
+           ,xpropiedad1
+           ,xpropiedad2
+           ,xmetadata
+           ,xunidad
+           ,ruta_ficha
+           )
+    ELSE
+      DISPLAY " UPDATE EL CODID ",xcodid,xdescripcion," ",xtraduccion, " ",fileread   
+       UPDATE iptb00016 SET nombre_file_ficha = ficha_t,ruta_file_ficha=ruta_ficha WHERE codid = xcodid  
+    END IF
+    
+    IF xnombre_file IS NOT NULL  AND xtipodata = 'GALERIA' THEN
+       DISPLAY " A ACTUALIZAR EL CODID ",xcodid,xdescripcion," ",xtraduccion, " ",fileread
+       SELECT DISTINCT a.codid FROM iptb00018 a
+       WHERE a.codid = xcodid
+       IF STATUS = NOTFOUND THEN
+          INSERT INTO iptb00018 (codid,cod_n,cod_grupo,cod_tipo,cod_sec,nombre_file,ruta_file_foto)
+          VALUES
+          (xcodid,codn,codgrupo,codtipo,codsec,xnombre_file,fileread )
+       END IF   
+    END IF  
+  END FOREACH
+END FUNCTION
+FUNCTION comprimeImagen(filedestino,tamano)
+
+    DEFINE filedestino, comando,tamano STRING
+      
+    LET comando = 'magick convert ',filedestino,tamano,filedestino
+    RUN comando
+END FUNCTION