primer commit subida

PROYECTOS COSTOS/ipdir/ipprcs004_1.4gl

@@ -0,0 +1,180 @@
+{                                                            
+-------------------------------------------------------------------------------
+PROGRAMA           :  IPPRCS004
+OBJETIVO           :  Consulta Maestra de Productos con existencia y precios
+PROGRAMADOR        :  Ing. Juan F. Soto
+FECHA REALIZACION  :  Julio 18, 1996.
+-------------------------------------------------------------------------------
+}
+GLOBALS "ipprgb000.4gl"
+MAIN                
+   DEFER INTERRUPT
+   CALL ARG_VAL(1) RETURNING usuarios
+   CALL ARG_VAL(2) RETURNING clave
+   CALL ARG_VAL(3) RETURNING impresor 
+   CONNECT to "decomarmol" USER  usuarios USING clave
+
+   SELECT * INTO p_companias.* FROM companias
+   CALL ipprcs004()
+END MAIN
+
+FUNCTION ipprcs004()
+   DEFINE pcantidadconduce DEC(12,5),
+          chexistencia CHAR(2),
+          codigo,codigo1 VARCHAR(25),
+          progreso,noreg INT
+          
+
+   OPEN FORM ipfmcs004 FROM "ipfmcs004_1"
+   DISPLAY FORM ipfmcs004
+   CALL ui.Interface.LoadStyles("mbsStyle")
+  
+## Aqui se prepara el criterio de seleccion
+DIALOG ATTRIBUTES(FIELD ORDER FORM, UNBUFFERED)
+
+  INPUT BY NAME datos_cons.fech_fi,inventario,chexistencia
+  BEFORE INPUT
+    LET datos_cons.fech_fi = TODAY USING "dd/mm/yyyy"
+    DISPLAY BY NAME datos_cons.fech_fi
+    
+  AFTER INPUT
+    IF Inventario IS NULL THEN
+       CALL msg(16)
+       NEXT FIELD inventario
+    END IF
+    IF datos_cons.fech_fi IS NULL THEN
+       LET numero_msg = 16
+       CALL msg(numero_msg)
+       NEXT FIELD fech_fi
+    END IF
+   END INPUT
+
+  CONSTRUCT  criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp
+                    FROM cod_n,cod_grupo, cod_tipo,cod_sec,descrip_esp
+  END CONSTRUCT
+ 
+  ON ACTION buscar
+    IF inventario = "PRODUCTOS TERMINADOS" THEN     
+    LET SELEC = 
+   
+    "SELECT     a.cod_n, a.cod_grupo, a.cod_tipo, a.cod_sec, a.descrip_esp, a.unidad_med, '0', '0','0',b.descripcion, c.precio ",
+    "FROM vetb00061 AS b INNER JOIN ",
+    "                  vetb00025 AS c ON b.ventas = c.ventas RIGHT OUTER JOIN ",
+    "                  iptb00002 AS a ON c.cod_n = a.cod_n AND c.cod_grupo = a.cod_grupo AND c.cod_tipo = a.cod_tipo AND c.cod_sec = a.cod_sec ",
+    " WHERE     (a.status_t IS NULL) AND ",criterio CLIPPED,
+    " ORDER BY a.cod_n, a.cod_grupo, a.cod_tipo, a.cod_sec "
+
+    LET selec2= 
+    "SELECT    COUNT(*) ",
+    "FROM vetb00061 AS b INNER JOIN ",
+    "                  vetb00025 AS c ON b.ventas = c.ventas RIGHT OUTER JOIN ",
+    "                  iptb00002 AS a ON c.cod_n = a.cod_n AND c.cod_grupo = a.cod_grupo AND c.cod_tipo = a.cod_tipo AND c.cod_sec = a.cod_sec ",
+    " WHERE     (a.status_t IS NULL) AND ",criterio CLIPPED
+
+    
+    END IF
+
+    IF inventario = "MATERIA PRIMA" THEN     
+    LET SELEC = 
+    "SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,'0','0',a.descrip_esp,",
+    "       a.unidad_med,'0','0','0',a.descrip_ing ",
+    "FROM intb00001 a ",
+    "WHERE  a.status_t is null AND ",criterio CLIPPED,
+    " ORDER BY a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec "
+    END IF
+
+    PREPARE busca FROM selec
+    DECLARE accion CURSOR FOR busca 
+
+    PREPARE cuenta FROM selec2
+    EXECUTE cuenta INTO noreg
+    
+ ## Busca los registros con la condicion dada y verifica si el producto terminado
+## existe en el catalogo de bienes y servicios.
+
+   LET idx = 1
+   CALL prod11.clear()
+   LET codigo1 = 1
+   LET codigo = 2
+
+   LET progreso = 3
+   DISPLAY progreso TO progreso 
+   CALL ui.Interface.refresh()
+        
+   FOREACH accion INTO prod11[idx].*,descrip1
+        LET codigo = prod11[idx].cod_n1 USING "&&&&","-",
+                     prod11[idx].cod_grupo1 USING "&&&&","-",
+                     prod11[idx].cod_tipo1 USING "&&&&","-",
+                     prod11[idx].cod_sec1 USING "&&&&"
+
+                     
+# Busca La Existencia del Producto
+       LET prod11[idx].existencia=NULL
+       IF inventario = "PRODUCTOS TERMINADOS" THEN
+           IF codigo <> codigo1 THEN
+              LET codigo1 = prod11[idx].cod_n1 USING "&&&&","-",
+                           prod11[idx].cod_grupo1 USING "&&&&","-",
+                           prod11[idx].cod_tipo1 USING "&&&&","-",
+                           prod11[idx].cod_sec1 USING "&&&&"
+
+                            
+            
+             CALL disponibles(prod11[idx].cod_n1,prod11[idx].cod_grupo1,prod11[idx].cod_tipo1,prod11[idx].cod_sec1,datos_cons.fech_fi) 
+             RETURNING  prod11[idx].cantidad_ordenes,pcantidadConduce,prod11[idx].transito,prod11[idx].existencia,
+                        prod11[idx].reservado
+             
+             IF prod11[idx].existencia IS NULL THEN
+                LET prod11[idx].existencia = 0
+             END IF
+             LET prod11[idx].cantidad_ordenes = prod11[idx].cantidad_ordenes +
+                                                pcantidadConduce
+                                          
+             IF prod11[idx].cantidad_ordenes IS NULL THEN
+                LET prod11[idx].cantidad_ordenes=0
+             END IF
+             LET prod11[idx].pventas = prod11[idx].existencia - prod11[idx].cantidad_ordenes
+           
+             END IF
+           
+       END IF
+       IF inventario = "MATERIA PRIMA" THEN
+          IF chexistencia = 'SI' THEN
+          SELECT SUM(a.cantidad_2) INTO prod11[idx].existencia FROM intb00006 a
+          WHERE (a.cod_n = prod11[idx].cod_n1 AND 
+             a.cod_grupo=prod11[idx].cod_grupo1 AND
+             a.cod_tipo=prod11[idx].cod_tipo1 AND 
+             a.cod_sec=prod11[idx].cod_sec1) AND
+             (a.fecha <= datos_cons.fech_fi) AND
+             a.status_t IS NULL
+             END IF
+       END IF
+       
+     
+       LET idx = idx + 1
+
+       LET progreso = (idx /noreg )*100
+       DISPLAY progreso TO progreso 
+       CALL ui.Interface.refresh()
+   
+   END FOREACH
+
+   DISPLAY ARRAY prod11 TO consart.*
+    ON ACTION reservado
+       LET idx = arr_curr()
+       IF prod11[idx].reservado >0 THEN
+       CALL busca_reservas(prod11[idx].cod_n1,prod11[idx].cod_grupo1,prod11[idx].cod_tipo1,prod11[idx].cod_sec1)
+       ELSE
+         CALL fgl_winmessage("ERROR","PRODUCTO NO TIENE CANTIDAD RESERVADA","INFO")
+       END IF
+     ON ACTION bexistencia
+        LET idx = arr_curr()
+        CALL almacenes(prod11[idx].cod_n1,prod11[idx].cod_grupo1,prod11[idx].cod_tipo1,prod11[idx].cod_sec1)
+     AFTER DISPLAY
+       DISPLAY 0 TO progreso
+    END DISPLAY
+
+    ON ACTION CANCEL
+       LET INT_FLAG =FALSE
+       EXIT PROGRAM
+   END DIALOG
+END FUNCTION