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,266 @@
+{
+ PROGRAMA          : INPRCS006
+ OBJETIVO          : Programa Consulta Balances    Materia Prima.
+ PROGRAMADOR       : Juan Fco. Soto (Johnny)
+ FECHA REALIZACION : Agosto 18,1992. 
+}
+GLOBALS
+  "inprgb000.4gl"
+   DEFINE xbodega SMALLINT  
+ MAIN                
+   DEFER INTERRUPT
+   CALL ARG_VAL(1) RETURNING usuarios
+   CALL ARG_VAL(2) RETURNING clave
+   CALL ARG_VAL(3) RETURNING impresor 
+   #let usuarios = "jsoto"
+   #let clave = "lmmjvsd2009"
+   
+   CONNECT to "smarmotech" USER  usuarios USING clave
+
+   SELECT * INTO p_companias.* FROM companias
+   CALL inprcs006()
+ END MAIN
+
+FUNCTION inprcs006()
+  DEFINE fecha1 char(8)
+  DEFINE hora1 char(5)
+  DEFINE balance_in DECIMAL(12,2),
+         query1,mensaje_ini STRING
+  
+  LET fecha1 = today using "dd/mm/yy"
+  LET hora1 = time
+  LET int_flag = false
+  LET bandera = 0
+  
+  #WHENEVER ERROR CONTINUE
+
+  CLEAR SCREEN
+  OPTIONS
+    ERROR LINE 24,
+    FORM LINE 4,
+    COMMENT LINE 22,
+    PROMPT LINE 23
+    
+  
+  OPEN FORM infmcs006 FROM "infmcs006"
+  DISPLAY FORM infmcs006
+  call ui.Interface.loadStyles("formularios") 
+  
+
+ DIALOG ATTRIBUTE(UNBUFFERED)
+ INPUT BY NAME datos_cons.*   
+    BEFORE INPUT
+       INITIALIZE datos_gen.* TO NULL
+       LET balance = 0
+       CALL bodegas('1') 
+      BEFORE FIELD fech_in
+       LET datos_cons.fech_in = today using "dd/mm/yyyy"
+       DISPLAY BY NAME datos_cons.fech_in
+
+      BEFORE FIELD fech_fi
+        LET datos_cons.fech_fi = today using "dd/mm/yyyy"
+        DISPLAY BY NAME datos_cons.fech_fi
+
+      AFTER FIELD cod_sec
+
+          SELECT descrip_esp,unidad_med 
+          INTO datos_cons.descrip_esp,articulos.unidad_med
+          FROM intb00001
+          WHERE cod_n   = datos_cons.cod_n and cod_grupo = datos_cons.cod_grupo and
+                cod_tipo = datos_cons.cod_tipo and cod_sec = datos_cons.cod_sec and
+                status_t is null
+
+          IF STATUS = NOTFOUND THEN
+             LET numero_msg = 3
+             CALL msg(numero_msg)
+             CLEAR FORM
+             NEXT FIELD cod_n  
+          END IF
+          DISPLAY BY NAME datos_cons.descrip_esp,articulos.unidad_med
+
+
+       AFTER FIELD fech_fi
+
+          IF datos_cons.fech_fi IS NULL THEN
+             LET numero_msg = 16
+             CALL msg(numero_msg)
+             NEXT FIELD fech_in
+          END IF
+
+          IF datos_cons.fech_in IS NULL THEN
+             LET numero_msg = 16
+             CALL msg(numero_msg)
+             NEXT FIELD fech_in
+          END IF
+
+          IF datos_cons.fech_in > datos_cons.fech_fi THEN
+             LET numero_msg = 86
+             CALL msg(numero_msg)
+             NEXT FIELD fech_in
+          END IF
+
+  END INPUT
+
+  CONSTRUCT  criterio ON p.bodega FROM bodega
+    BEFORE CONSTRUCT
+      CALL bodegas('1')
+    ON ACTION buscar ATTRIBUTE(TEXT="Ejecuta Busqueda",IMAGE="find")
+       
+       IF datos_cons.fech_fi IS NULL THEN
+          CALL msg(16)
+          NEXT FIELD fecha_in
+       END IF
+  LET query1 =
+       "SELECT ISNULL(SUM(p.cantidad_2),0)  FROM intb00006 p 
+           WHERE ", criterio clipped," and p.cod_n = ? and p.cod_grupo = ? and
+                 p.cod_tipo = ? and p.cod_sec  = ? AND
+                 p.fecha < ? and p.status_t is null 
+ "
+
+  PREPARE balanceini FROM query1
+  EXECUTE balanceini USING datos_cons.cod_n,datos_cons.cod_grupo,datos_cons.cod_tipo,datos_cons.cod_sec, datos_cons.fech_in
+          INTO balance
+  LET balance_in = balance
+
+  LET mensaje_ini = "Blance Inicial: ",balance_in using "---,---,---.##"
+  DISPLAY BY NAME mensaje_ini  
+
+      
+  LET query1 = 
+   "SELECT   p.num_doc,convert(char(10),p.fecha,103),sum(p.cantidad_2),p.cod_mov,b.descripcion + '('+cast(p.bodega as char(2))+')',p.bodega ",
+  " FROM intb00006 p,intb00009 b ",
+  " WHERE ", criterio CLIPPED," AND p.cod_n = ? and p.cod_grupo = ? and ",
+        " p.cod_tipo = ? and p.cod_sec = ? and  ",
+        " p.bodega = b.cod_bodega and ",
+        " p.status_t is null and p.fecha between ? and ?  ",
+        " GROUP BY p.num_doc,p.fecha,p.cod_mov,b.descripcion,p.bodega ",
+  " ORDER BY p.fecha "
+  
+  PREPARE comando FROM query1
+  DECLARE jhonn_1  CURSOR FOR comando
+
+  CALL csmov1.clear()
+  OPEN jhonn_1 USING datos_cons.cod_n,datos_cons.cod_grupo,datos_cons.cod_tipo,
+  datos_cons.cod_sec,datos_cons.fech_in,datos_cons.fech_fi
+
+  CALL csmov2.clear()
+  LET idx = 1
+  LET csmov2[1].parent_id = NULL
+  FOREACH  jhonn_1  INTO csmov.*,xbodega
+   CALL integridad()
+   IF bandera = 1 THEN
+      LET bandera = 0  
+      RETURN
+   END IF
+   
+   LET balance = balance + csmov.cantidad_2
+   LET csmov2[idx].fecha_2 = csmov.fecha_1
+   LET csmov2[idx].balance = balance USING "---,---,---.##"
+   LET csmov2[idx].num_doc = "(",csmov.cod_mov using "&&",")"," ",
+                             csmov.num_doc USING "&&&&&&"
+    LET csmov2[idx].bodega1 = csmov.bodega1 
+    IF csmov.cantidad_2 < 0 THEN
+       LET csmov2[idx].entrada = null
+       LET csmov2[idx].salida     = csmov.cantidad_2 USING "---,---,---.##"
+    ELSE 
+       LET csmov2[idx].salida  = null
+       LET csmov2[idx].entrada    = csmov.cantidad_2 USING "###,###,###.##"
+    END IF
+    LET csmov2[idx].chield_id = idx USING "<<<"
+   #   DISPLAY csmov2[idx].num_doc," ",csmov2[idx].fecha_2," ",csmov2[idx].entrada," p ",csmov2[idx].parent_id," c ",csmov2[idx].chield_id
+  
+    CALL llenahijos(idx,datos_cons.cod_n,datos_cons.cod_grupo,datos_cons.cod_tipo,datos_cons.cod_sec,csmov.num_doc,csmov.cod_mov,xbodega)
+  
+    LET idx = idx + 1
+    LET csmov2[idx].parent_id = null   
+    
+ END FOREACH
+  
+  {
+  LET csmov2[1].parent_id = NULL
+  LET csmov2[1].chield_id = 1
+  LET csmov2[1].num_doc = '2020'
+  LET csmov2[1].fecha_2 = '28/11/2023'
+  LET csmov2[1].entrada = '1'
+
+  LET csmov2[2].parent_id = '1'
+  LET csmov2[2].chield_id = '1.1'
+  LET csmov2[2].num_doc = '1.20'
+  LET csmov2[2].fecha_2 = '2.20'
+  LET csmov2[2].salida = '2'
+
+  
+  LET csmov2[3].parent_id = null
+  LET csmov2[3].chield_id = '2'
+  LET csmov2[3].num_doc = '4040'
+  LET csmov2[3].fecha_2 = '29/11/2023'
+  LET csmov2[3].salida = '3'
+
+  
+  LET csmov2[4].parent_id = 2
+  LET csmov2[4].chield_id = '2.1'
+  LET csmov2[4].num_doc = '1.24'
+  LET csmov2[4].fecha_2 = '2.24'
+  LET csmov2[4].salida = '4'
+
+  }
+ # FOR idx = 1 TO csmov2.getLength()
+ #   DISPLAY csmov2[idx].num_doc," ",csmov2[idx].fecha_2," ",csmov2[idx].entrada," p ",csmov2[idx].parent_id," c ",csmov2[idx].chield_id
+ # END FOR
+   END CONSTRUCT
+   
+   DISPLAY ARRAY csmov2 TO s_csmov.*
+   END DISPLAY
+   
+   ON ACTION CANCEL
+     LET numero_msg = 2
+     CALL msg(numero_msg)
+     LET int_flag = FALSE
+     EXIT PROGRAM
+ END DIALOG  
+
+ 
+END FUNCTION
+FUNCTION llenahijos(i1,pcodn,pcodgrupo,pcodtipo,pcodsec,pnumdoc,pcodmov,pbodega)
+  DEFINE i1,i2,i3,pcodn,pcodgrupo,pcodtipo,pcodsec,pnumdoc,pbodega,pcodmov INT,
+   xcodigo_bloque VARCHAR(30),
+   
+   xancho1,xlargo1,xespesor1,xancho2,xlargo2,xespesor2,xmedida1,xmedida2 DEC(12,5)
+
+  
+  
+  DECLARE busca_desglose CURSOR FOR
+        SELECT a.codigo_bloque,a.ancho1,a.largo1,a.espesor1,SUM(a.medida1)
+            INTO   xcodigo_bloque,xancho1,xlargo1,xespesor1,xmedida1
+            FROM intb00018 a
+            WHERE a.cod_n = pcodn and 
+                  a.cod_grupo = pcodgrupo and
+                  a.cod_tipo = pcodtipo and
+                  a.cod_Sec = pcodSec and
+                  a.documento =pnumdoc and
+                  a.cod_mov = pcodmov AND
+                  a.bodega = pbodega
+            GROUP BY a.codigo_bloque,a.ancho1,a.largo1,a.espesor1      
+#DISPLAY "datos1: ",pcodn,pcodgrupo,pcodtipo,pcodsec," d ",pnumdoc," m ",pcodmov,"b ",pbodega
+ 
+ LET i2 = i1 +1
+ LET i3 =1
+#LET csmov2[i2].chield_id = i1 USING "<<<"
+
+ FOREACH busca_desglose
+  LET csmov2[i2].parent_id = i1 USING "<<<"
+
+    LET csmov2[i2].num_doc = xcodigo_bloque CLIPPED
+    LET CSMOV2[I2].fecha_2 = xancho1 USING "<<.<<<<<"," X "
+    LET CSMOV2[I2].entrada = xlargo1 USING "<<.<<<<<"," X "
+    LET csmov2[i2].salida = xespesor1 USING "<<.<<<<<"
+    LET csmov2[i2].balance = xmedida1 USING "<<.<<<<<"
+
+    LET csmov2[i2].chield_id = i1 USING "<<<",".",i3 USING "<<<"
+   # DISPLAY csmov2[i2].num_doc," ",csmov2[i2].fecha_2," ",csmov2[i2].entrada," p ",csmov2[i2].parent_id," c ",csmov2[i2].chield_id
+    LET i2 = i2 + 1
+    LET i3 = i3 +1
+ END FOREACH
+ LET idx = i2 -1
+
+END FUNCTION