464 lines
14 KiB
Plaintext
464 lines
14 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------------
|
|
PROGRAMA : INPRRP013
|
|
OBJETIVO : REPORTE DIAS DE INVENTARIOS
|
|
PROGRAMADOR : Ing. Juan Francisco Soto
|
|
FECHA REALIZACION : Agosto 19, 1992
|
|
MODIFICADO POR : Ing. Juan Fco. Soto
|
|
FECHA ULT. MODIFICA : Julio 19, 1993.
|
|
DESCRIPCION : Agregar Columna Costo Standard para cantidades mayores a
|
|
una cantidad de dias especificada.
|
|
-------------------------------------------------------------------------------
|
|
}
|
|
GLOBALS "ipprgb000.4gl"
|
|
|
|
DEFINE sale CHAR(1)
|
|
DEFINE p_ano CHAR(4)
|
|
DEFINE fecha2 DATE
|
|
DEFINE dias1 SMALLINT,
|
|
m_meses SMALLINT,
|
|
conmes,valor1 DECIMAL(12,2)
|
|
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
|
|
CONNECT to "decomarmol" USER usuarios USING clave
|
|
SELECT a.* INTO p_companias.* FROM companias a
|
|
|
|
CALL ipprrp013()
|
|
END MAIN
|
|
FUNCTION ipprrp013()
|
|
|
|
# Variable que toma el valor de los dias que se va a valorar el reporte
|
|
DEFINE c_dias INTEGER
|
|
|
|
# Variables varias para el control de busqueda de las informaciones
|
|
DEFINE selec1,select_bal CHAR(1000)
|
|
|
|
# Record para el consumo de los materiales
|
|
DEFINE consume RECORD
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
existe DECIMAL(14,2)
|
|
END RECORD
|
|
|
|
# Record para la impresion del reporte, estas variables se validan con el
|
|
# select que esta en la variable selec
|
|
|
|
DEFINE estadis RECORD
|
|
cod_n LIKE intb00001.cod_n,
|
|
cod_grupo LIKE intb00001.cod_grupo,
|
|
cod_tipo LIKE intb00001.cod_tipo,
|
|
cod_sec LIKE intb00001.cod_sec,
|
|
descrip_esp LIKE intb00001.descrip_esp,
|
|
consumo LIKE iptb00006.cantidad_2,
|
|
grupo CHAR(30),
|
|
tipo CHAR(30),
|
|
fecha date,
|
|
existe DEC(12,4),
|
|
valor DECIMAL(12,4),
|
|
costo DECIMAL(12,4),
|
|
dias INTEGER,
|
|
pcodigo char(25),
|
|
cantidad_orden,pcantidadConduce,transito,existencia,reservado,disponible DEC(12,2)
|
|
END RECORD
|
|
DEFINE handler om.SaxDocumentHandler, -- return value from fgl_report_commitCurrentSettings()
|
|
r_filename STRING, -- filename of Report Design Document including .4rp extension
|
|
r_output STRING, -- output format option
|
|
preview INTEGER -- TRUE/FALSE, to set preview option
|
|
# WHENEVER ERROR CONTINUE
|
|
|
|
OPTIONS
|
|
FORM LINE 8,
|
|
ERROR LINE 23,
|
|
COMMENT LINE 21
|
|
|
|
OPEN FORM ipfmrp013 FROM "ipfmrp013"
|
|
DISPLAY FORM ipfmrp013
|
|
#CALL pantalla()
|
|
DISPLAY "ipprrp013" AT 4,3 ATTRIBUTE(RED)
|
|
DISPLAY "Dias de Inventarios" AT 6,33 ATTRIBUTE(BLACK)
|
|
LET tipo_papel = 2
|
|
CALL msgrp000(tipo_papel)
|
|
|
|
|
|
INPUT BY NAME fecha1,fecha2,c_dias,m_meses
|
|
|
|
AFTER FIELD c_dias
|
|
IF c_dias is null THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD c_dias
|
|
END IF
|
|
|
|
AFTER FIELD fecha1
|
|
IF fecha1 IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD fecha1
|
|
END IF
|
|
|
|
AFTER FIELD fecha2
|
|
IF fecha2 IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD fecha2
|
|
END IF
|
|
|
|
AFTER FIELD m_meses
|
|
IF m_meses IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD m_meses
|
|
END IF
|
|
END INPUT
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
|
|
CALL seleccionarSalida() RETURNING r_output
|
|
LET dias1 = fecha2 - fecha1
|
|
LET dias1 = dias1 + 1
|
|
|
|
SELECT MAX(a.ano) INTO p_ano
|
|
FROM prdtable a
|
|
WHERE a.fecha_corte <= fecha2
|
|
|
|
#LET p_ano = "2001"
|
|
#LET p_ano1 = "2002"
|
|
|
|
display p_ano
|
|
|
|
#LET p_ano = year(fecha2)
|
|
|
|
CONSTRUCT criterio ON a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec
|
|
FROM cod_n,cod_grupo,cod_tipo,cod_sec
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
|
|
LET select_bal =
|
|
"SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_Sec,a.descrip_esp,SUM(b.cantidad_2),",
|
|
"d.descripcion,f.descripcion ",
|
|
"FROM iptb00002 a LEFT OUTER JOIN iptb00006 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 ",
|
|
",iptb00029 d,iptb00024 f",
|
|
" WHERE b.cod_mov in (30,31,55,56) AND ",
|
|
criterio CLIPPED,
|
|
" AND CONVERT(DATE,b.fecha,101) between ? AND ? AND ",
|
|
" a.cod_grupo = d.cod_grupo and",
|
|
" a.cod_tipo = f.cod_tipo and",
|
|
" b.status_t IS NULL AND ",
|
|
" a.status_t is null ",
|
|
" GROUP BY a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_Sec,a.descrip_esp,",
|
|
" f.descripcion,d.descripcion ",
|
|
"ORDER BY a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_Sec"
|
|
|
|
|
|
|
|
PREPARE comando2 FROM select_bal
|
|
DECLARE accion CURSOR FOR comando2
|
|
OPEN accion USING fecha1,fecha2
|
|
|
|
# Busqueda de los costos de los materiales
|
|
LET selec1 =
|
|
"SELECT max(a.mes_ini),max(a.mes_fin),a.cod_n,a.cod_grupo,a.cod_tipo,",
|
|
" a.cod_sec,SUM(a.material+a.labor+a.gastos) ",
|
|
"FROM iptb00004 a ",
|
|
"WHERE ",
|
|
" a.ano = ? AND ", criterio CLIPPED,
|
|
"GROUP BY a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec ORDER BY 3,4,5,6"
|
|
|
|
DISPLAY "<< Estoy Buscando Costos... Espere >>"
|
|
AT 19,14 ATTRIBUTE (REVERSE,BOLD)
|
|
|
|
PREPARE comando FROM selec1
|
|
DECLARE busca3 SCROLL CURSOR FOR comando
|
|
OPEN busca3 USING p_ano
|
|
|
|
LET select_bal =
|
|
"SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,sum(a.cantidad_2) ",
|
|
"FROM iptb00006 a WHERE ",
|
|
" a.status_t is null and a.fecha <= ? AND ",criterio CLIPPED," GROUP BY a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec ORDER BY 1,2,3,4"
|
|
|
|
DISPLAY "<< Estoy Buscando Balances Iniciales >>"
|
|
AT 19,14 ATTRIBUTE (REVERSE,BOLD)
|
|
|
|
PREPARE busca_balan FROM select_bal
|
|
DECLARE consu SCROLL CURSOR FOR busca_balan
|
|
OPEN consu USING fecha2
|
|
|
|
LET r_filename = "ipprrp013.4rp"
|
|
iF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
|
|
# LET r_output='SVG'
|
|
LET preview=1
|
|
CALL fgl_report_selectDevice(r_output) -- changing default
|
|
CALL fgl_report_selectPreview(preview) -- changing default
|
|
LET handler = fgl_report_commitCurrentSettings() -- commit changes
|
|
ELSE
|
|
EXIT PROGRAM
|
|
END IF
|
|
--run the report
|
|
IF handler IS NOT NULL THEN -- report engine was configured ok
|
|
START REPORT estadistica TO XML HANDLER handler
|
|
|
|
# Loop principal para la busqueda de la materia prima y el consumo
|
|
{LET idx = 1
|
|
LET idx_b = 1
|
|
LET salir = "N"
|
|
WHILE salir != "S"
|
|
FETCH accion INTO estadis.*
|
|
IF status = notfound THEN
|
|
LET salir = "S"
|
|
EXIT WHILE
|
|
END IF
|
|
display "cosa ", estadis.cod_n USING "&","-",estadis.cod_grupo USING "&","-",
|
|
estadis.cod_tipo USING "&&","-",estadis.cod_sec USING "&&&"
|
|
}
|
|
|
|
|
|
FOREACH accion INTO estadis.*
|
|
|
|
LET estadis.pcodigo = estadis.cod_n USING "&&","-",
|
|
estadis.cod_grupo using "&&","-",
|
|
estadis.cod_tipo using "&&&","-",
|
|
estadis.cod_sec using "&&&"
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = FALSE
|
|
LET estadis.consumo = 0
|
|
LET estadis.existe = 0
|
|
# Busca el consumo de los materiales
|
|
LET sale = "N"
|
|
RETURN
|
|
END IF
|
|
|
|
LET sale = "N"
|
|
WHILE sale != "S"
|
|
FETCH consu INTO consume.*
|
|
IF status = notfound THEN
|
|
LET sale = "S"
|
|
LET STATUS = 0
|
|
EXIT WHILE
|
|
END IF
|
|
|
|
|
|
IF consume.cod_n = estadis.cod_n AND
|
|
consume.cod_grupo = estadis.cod_grupo AND
|
|
consume.cod_Tipo = estadis.cod_tipo AND
|
|
consume.cod_sec = estadis.cod_sec THEN
|
|
|
|
LET estadis.existe = consume.existe
|
|
LET sale = "S"
|
|
EXIT WHILE
|
|
END IF
|
|
END WHILE
|
|
{
|
|
# Busqueda del costo del material
|
|
LET salir = "N"
|
|
LET idx_1 = 1
|
|
WHILE salir != "S"
|
|
FETCH ABSOLUTE idx_1 busca3 INTO costo.*
|
|
IF status = notfound THEN
|
|
LET idx_1 = 1
|
|
LET salir = "S"
|
|
LET STATUS = 0
|
|
EXIT WHILE
|
|
END IF
|
|
|
|
LET idx_1 = idx_1 + 1
|
|
|
|
|
|
|
|
IF costo.cod_n = estadis.cod_n AND
|
|
costo.cod_grupo = estadis.cod_grupo AND
|
|
costo.cod_tipo = estadis.cod_tipo AND
|
|
costo.cod_sec = estadis.cod_sec THEN
|
|
|
|
LET estadis.costo = costo.costo_st
|
|
|
|
DISPLAY estadis.cod_grupo at 3,20
|
|
DISPLAY estadis.cod_tipo at 3,30
|
|
DISPLAY estadis.cod_sec at 3,40
|
|
DISPLAY estadis.costo at 3, 50
|
|
|
|
LET idx_1 = 1
|
|
EXIT WHILE
|
|
|
|
END IF
|
|
END WHILE
|
|
|
|
}
|
|
# Se multiplica por -1 por que el movimiento 36 es negativo
|
|
LET estadis.consumo = estadis.consumo * -1
|
|
CALL disponibles(estadis.cod_n,estadis.cod_grupo,estadis.cod_tipo,estadis.cod_sec,fecha2)
|
|
RETURNING estadis.cantidad_orden,estadis.pcantidadConduce,estadis.transito,estadis.existencia,estadis.reservado
|
|
|
|
# Calculo para los dias de produccion
|
|
IF estadis.consumo > 0 THEN
|
|
LET estadis.disponible=estadis.existe-estadis.cantidad_orden
|
|
LET estadis.dias = (estadis.disponible / estadis.consumo) * dias1
|
|
END IF
|
|
|
|
# Calculo para el exedente de la existencia apartir de los dias de exeso
|
|
# especificado
|
|
|
|
LET estadis.valor = 0
|
|
IF estadis.dias >= c_dias THEN
|
|
IF estadis.dias > 0 THEN
|
|
LET valor1 = (estadis.existe * c_dias)/estadis.dias
|
|
LET estadis.valor = (estadis.existe - valor1) * estadis.costo
|
|
ELSE
|
|
LET estadis.valor = 0
|
|
END IF
|
|
END IF
|
|
|
|
|
|
OUTPUT TO REPORT estadistica(estadis.*,dias1,c_dias)
|
|
|
|
LET estadis.consumo = 0
|
|
LET estadis.existe = 0
|
|
END foreach
|
|
|
|
FINISH REPORT estadistica
|
|
#RUN imprime
|
|
|
|
CLEAR SCREEN
|
|
END IF
|
|
END FUNCTION
|
|
|
|
REPORT estadistica(x,dias2,c_dias)
|
|
DEFINE x RECORD
|
|
cod_n LIKE intb00001.cod_n,
|
|
cod_grupo LIKE intb00001.cod_grupo,
|
|
cod_tipo LIKE intb00001.cod_tipo,
|
|
cod_sec LIKE intb00001.cod_sec,
|
|
descrip_esp LIKE intb00001.descrip_esp,
|
|
consumo LIKE iptb00006.cantidad_1,
|
|
grupo CHAR(30),
|
|
tipo CHAR(30),
|
|
fecha date,
|
|
existe DEC(12,4),
|
|
valor DECIMAL(12,3),
|
|
costo DECIMAL(12,4),
|
|
dias INTEGER,
|
|
pcodigo char(25),
|
|
cantidad_orden,pcantidadConduce,transito,existencia,reservado,disponible DEC(12,2)
|
|
END RECORD,
|
|
cantidad_rec,cantidad_or,tcantidad DEC(12,4),
|
|
fecha_v,fecha_oc DATE
|
|
|
|
DEFINE c_dias SMALLINT,
|
|
dias_oc INTEGER
|
|
DEFINE m_total DECIMAL(10,2)
|
|
DEFINE dias2 SMALLINT
|
|
DEFINE hora CHAR(5)
|
|
DEFINE t_total,t_valor DECIMAL(12,2),
|
|
chorden STRING,
|
|
porden INTEGER,
|
|
fecha DATE,
|
|
pcosto dec(12,4),
|
|
total_registros smallint,
|
|
total_grupo smallint,
|
|
nombre CHAR(50)
|
|
|
|
FORMAT
|
|
FIRST PAGE HEADER
|
|
LET hora = time
|
|
LET fecha = today
|
|
LET total_registros = 0
|
|
LET tcantidad = 0
|
|
LET fecha_v = NULL
|
|
LET fecha_oc = NULL
|
|
|
|
BEFORE GROUP OF x.cod_grupo
|
|
let total_grupo = 0
|
|
BEFORE GROUP OF x.cod_tipo
|
|
|
|
LET hora = time
|
|
SELECT a.* INTO p_companias.* FROM companias a WHERE a.cod_comp = 1
|
|
LET lj = (120 - LENGTH(p_companias.nombre CLIPPED))/2
|
|
|
|
|
|
|
|
|
|
ON EVERY ROW
|
|
LET total_registros = total_registros +1
|
|
LET total_grupo = total_grupo +1
|
|
LET nombre_ant = nombre
|
|
|
|
# BUSCA ULTIMA FECHA DE COMPRA Y VENTA DEL PRODUCTO
|
|
LET fecha_v = NULL
|
|
SELECT convert(char(10),MAX(a.fecha_factura),103) INTO fecha_v
|
|
FROM vetb00003 d,vetb00002 a
|
|
WHERE d.factura = a.factura AND
|
|
d.cod_n=x.cod_n AND d.cod_grupo=x.cod_grupo AND
|
|
d.cod_tipo = x.cod_tipo AND d.cod_sec = x.cod_sec AND
|
|
a.status_t is NULL
|
|
LET fecha_oc = NULL
|
|
SELECT ISNULL(convert(char(10),MAX(a.fech_oc),103)," ") INTO fecha_oc
|
|
FROM cotb00015 d,cotb00014 a
|
|
WHERE d.num_oc = a.num_oc AND
|
|
d.cod_n=x.cod_n AND d.cod_grupo=x.cod_grupo AND
|
|
d.cod_tipo = x.cod_tipo AND d.cod_sec = x.cod_sec AND
|
|
a.fech_oc >= fecha1 AND
|
|
d.status_t is NULL
|
|
|
|
LET conmes = 0
|
|
|
|
IF t_total IS NULL THEN
|
|
LET t_total = 0
|
|
END IF
|
|
IF t_valor is null THEN
|
|
LET t_valor = 0
|
|
END IF
|
|
|
|
DECLARE busca_oc CURSOR FOR
|
|
SELECT a.num_oc,a.cantidad FROM cotb00015 a, cotb00014 b
|
|
WHERE a.num_oc = b.num_oc AND
|
|
a.cod_n = x.cod_n AND
|
|
a.cod_grupo = x.cod_grupo AND
|
|
a.cod_tipo = x.cod_tipo AND
|
|
a.cod_sec = x.cod_sec AND
|
|
b.cierre = "N" AND
|
|
b.fech_oc <= fecha2 AND
|
|
b.status_T IS NULL
|
|
|
|
LET chorden = NULL
|
|
LET tcantidad = 0
|
|
FOREACH busca_oc INTO porden,cantidad_rec
|
|
IF cantidad_rec IS NULL THEN
|
|
LET cantidad_rec = 0
|
|
END IF
|
|
|
|
LET tcantidad = tcantidad + cantidad_Rec
|
|
LET chorden = porden using "<<<<<<",", ",chorden CLIPPED
|
|
|
|
END FOREACH
|
|
|
|
LET m_total = x.existe * x.costo
|
|
LET cantidad_or = tcantidad + x.existe
|
|
|
|
IF x.consumo > 0 THEN
|
|
LET dias_oc = (cantidad_or/x.consumo) * dias1
|
|
END IF
|
|
|
|
LET conmes = x.consumo / m_meses
|
|
|
|
PRINTX x.*,fecha,hora,fecha1,fecha2,fecha_oc,chorden,tcantidad,
|
|
p_companias.*,pcosto,total_registros,total_grupo,fecha_v
|
|
END REPORT |