201 lines
6.9 KiB
Plaintext
201 lines
6.9 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------------
|
|
PROGRAMA : IPPRCS004
|
|
OBJETIVO : Consulta Maestra de Productos con existencia
|
|
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 "smarmotech" USER usuarios USING clave
|
|
|
|
SELECT * INTO p_companias.* FROM companias
|
|
CALL ipprcs004()
|
|
END MAIN
|
|
|
|
FUNCTION ipprcs004()
|
|
DEFINE pcantidadconduce DEC(12,5),
|
|
chexistencia,chordenes CHAR(2),
|
|
pbodega smallint
|
|
|
|
OPTIONS
|
|
FORM LINE 7,
|
|
ERROR LINE 24,
|
|
COMMENT LINE 23
|
|
|
|
OPEN FORM ipfmcs004 FROM "ipfmcs004_1"
|
|
DISPLAY FORM ipfmcs004
|
|
CALL ui.Interface.LoadStyles("mbsStyle")
|
|
|
|
## Aqui se prepara el criterio de seleccion
|
|
LABEL volver:
|
|
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 int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
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
|
|
EXIT INPUT
|
|
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
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
|
|
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' AS Expr1, '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 "
|
|
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
|
|
|
|
## 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()
|
|
FOREACH accion INTO prod11[idx].*,descrip1
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
RETURN
|
|
END IF
|
|
|
|
# Busca La Existencia del Producto
|
|
LET prod11[idx].existencia = 0
|
|
IF inventario = "PRODUCTOS TERMINADOS" THEN
|
|
IF chexistencia = 'SI' THEN
|
|
|
|
SELECT SUM(a.cantidad_2) INTO prod11[idx].existencia FROM iptb00006 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
|
|
# QUERY PARA BUSCAR LAS CANTIDADES EN ORDENES
|
|
# IF chordenes= 'SI' THEN
|
|
|
|
LET prod11[idx].cantidad_ordenes = 0
|
|
SELECT SUM(a.cantidad) INTO prod11[idx].cantidad_ordenes
|
|
FROM prtb00013 a,prtb00012 b
|
|
WHERE a.num_oc = b.num_oc AND
|
|
b.cerrada = 'N' AND
|
|
b.status_t IS NULL AND
|
|
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
|
|
|
|
LET pcantidadConduce = 0
|
|
SELECT SUM(c.cantidad_2) INTO pcantidadConduce
|
|
FROM prtb00013 a,prtb00012 b,iptb00006 c,iptb00005 d
|
|
WHERE a.num_oc = b.num_oc AND
|
|
b.cerrada = 'N' AND
|
|
b.status_t IS NULL AND
|
|
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.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 AND
|
|
c.cod_mov = d.cod_mov AND
|
|
(d.control_despacho = 'SI' OR d.control_devolucion = 'SI') AND
|
|
a.num_oc = c.num_oc AND
|
|
c.status_t IS NULL
|
|
|
|
LET prod11[idx].cantidad_ordenes = prod11[idx].cantidad_ordenes +
|
|
pcantidadConduce
|
|
IF prod11[idx].existencia IS NULL THEN
|
|
LET prod11[idx].existencia=0
|
|
END IF
|
|
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
|
|
|
|
IF prod11[idx].existencia IS NULL THEN
|
|
LET prod11[idx].existencia = 0
|
|
END IF
|
|
|
|
LET prod11[idx].descrip_esp1 =prod11[idx].descrip_esp1 CLIPPED
|
|
|
|
LET idx = idx + 1
|
|
|
|
END FOREACH
|
|
|
|
|
|
CALL set_count (idx-1)
|
|
DISPLAY ARRAY prod11 TO consart.*
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
ELSE
|
|
CALL prod11.clear()
|
|
GOTO volver
|
|
|
|
END IF
|
|
END FUNCTION
|