jsoto/MBS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
f216a7acfa05e8ddbff1df6acb5b669dbf86d18a
MBS/PROYECTO/indir/inprrp042.4gl
T
jpeguero efdf8953dd Reorganiza MATERIA PRIMA a PROYECTO y avanza inprmt002/005/013/046 
- Mueve todo el contenido de PROYECTOS/indir y varias funciones
  compartidas de PROYECTOS/otrodir hacia PROYECTO, siguiendo
  instruccion de Johnny (PROYECTOS se va a eliminar).
- inprmt002: agrega campo Desglose faltante, corrige typo "eLiminar".
- inprmt005: agrega formulario y 3 campos faltantes (Consumo,
  Requiere Autorizacion, Requisiciones), corrige typo "eLiminar".
- inprmt013: agrega formulario, titulo, corrige typo "eLiminar".
- inprmt046: agrega formulario y varias funciones/dependencias
  faltantes (cincodmov, clasf_bloque, medidas, defecto,
  buscaEmp, consultaTransportista, busca_departamento);
  corrige nombres de campo desalineados con el codigo
  (depto_a, bodega) y los convierte a ComboBox donde el
  codigo lo requiere.
- Corrige dependencia faltante de FORMULARIOS_IN a la libreria
  Database (bloqueaba todo el modulo de MATERIA PRIMA).
2026-08-26 13:31:09 -04:00

850 lines
29 KiB
Plaintext
Raw Blame History

{
-------------------------------------------------------------------------------
PROGRAMA : INPRRP042
OBJETIVO : REPORTE DIAS DE PRODUCCION CON ORDENES
PROGRAMADOR : Ing. Juan Francisco Soto
FECHA REALIZACION : Febrero 11, 1997
-------------------------------------------------------------------------------
}
GLOBALS "inprgb000.4gl"
DEFINE sale CHAR(1)
DEFINE p_ano CHAR(4)
DEFINE codigo_act CHAR(10)
DEFINE cons_prom_k,cons_prom,costo_e DECIMAL(12,4)
# Variable que se incrementa para imprimir el arreglo
DEFINE i SMALLINT
# Arreglo Para los equivalentes
DEFINE equivalentes ARRAY[1000] OF RECORD
codigo_p CHAR(10),
descrip_p CHAR(30),
unidad_p CHAR(3),
existe_p DECIMAL(12,2),
consumo_p DECIMAL(12,2),
dia_llegada_p SMALLINT,
fecha_p DATE,
num_oc_p INTEGER,
cantidad_p DECIMAL(12,2),
costo_p DECIMAL(12,4),
codigo_e CHAR(10),
descrip_e CHAR(30),
unidad_e CHAR(4),
existe_e DECIMAL(12,2),
consumo_e DECIMAL(12,2),
dia_llegada_e SMALLINT,
costo_e DECIMAL(12,4),
fecha_e DATE,
num_oc_e INTEGER,
cantidad_e DECIMAL(12,2)
END RECORD
DEFINE valor1 DECIMAL(12,2)
FUNCTION inprrp042()
# Variable que toma el valor de los dias que se va a valorar el reporte
# Variables varias para el control de busqueda de las informaciones
DEFINE selec1,selec2,selec3,select_bal CHAR(1000)
DEFINE mes CHAR(2)
DEFINE tiene,salir,primera CHAR(1)
DEFINE idx_3,idx_1,idx_b SMALLINT
DEFINE dias1 SMALLINT
# Record para la validacion de los equivalente
DEFINE equivale 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,
cod_n_e LIKE intb00001.cod_n,
cod_grupo_e LIKE intb00001.cod_grupo,
cod_tipo_e LIKE intb00001.cod_tipo,
cod_sec_e LIKE intb00001.cod_sec,
descrip_e LIKE intb00001.descrip_esp,
unidad_e CHAR(34),
existe_e DECIMAL(12,2),
consumo_e DECIMAL(12,2),
dia_llegada_e INTEGER
END RECORD
# Record para la validacion de los costos del material
DEFINE costo RECORD
mes1 CHAR(2),
mes2 CHAR(2),
cod_n LIKE intb00001.cod_n,
cod_grupo LIKE intb00001.cod_grupo,
cod_tipo LIKE intb00001.cod_tipo,
cod_sec LIKE intb00001.cod_sec,
costo_st LIKE intb00013.costo_st
END RECORD
# Record para el consumo de los materiales
DEFINE consume 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,
consumo 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,
unidad_med LIKE intb00001.unidad_med,
dia_llegada LIKE intb00002.dia_llegada,
consumo LIKE intb00006.cantidad_1,
existe LIKE intb00002.existencia,
valor DECIMAL(12,4),
costo DECIMAL(12,4),
dias INTEGER ,
fecha_llegada DATE,
cantidad DECIMAL(12,2),
num_oc INTEGER,
p_cons_prom DECIMAL(12,2)
END RECORD
# Record para las existencia de la materia prima
DEFINE balances RECORD
cod_n SMALLINT,
cod_grupo SMALLINT,
cod_tipo SMALLINT,
cod_sec SMALLINT,
balance LIKE intb00006.cantidad_2
END RECORD
# WHENEVER ERROR CONTINUE
OPTIONS
FORM LINE 8,
ERROR LINE 23,
COMMENT LINE 21
OPEN FORM infmrp042 FROM "infmrp004"
DISPLAY FORM infmrp042
CALL pantalla()
DISPLAY "inprrp042" AT 4,3
DISPLAY "Dias de Produccion " AT 6,30
LET tipo_papel = 1
CALL msgrp000(tipo_papel)
INPUT BY NAME datos_cons.fech_in,datos_cons.fech_fi
AFTER FIELD fech_in
IF datos_cons.fech_in IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD fech_in
END IF
AFTER FIELD fech_fi
IF datos_cons.fech_fi IS NULL THEN
LET numero_msg = 16
CALL msg(numero_msg)
NEXT FIELD fech_fi
END IF
END INPUT
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = false
RETURN
END IF
LET dias1 = datos_cons.fech_fi - datos_cons.fech_in
LET dias1 = dias1 + 1
LET p_ano = year(datos_cons.fech_fi)
CONSTRUCT criterio ON b.cod_n,b.cod_grupo,b.cod_tipo,b.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
# Busqueda de los equivalentes
LET selec2 =
"SELECT b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,b.cod_n_e,b.cod_grupo_e,",
" b.cod_tipo_e,b.cod_sec_e ",
"FROM intb00004 b ",
"WHERE b.status_t is null and ",criterio clipped,
"UNION ",
"SELECT b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,b.cod_n_s,b.cod_grupo_s,",
" b.cod_tipo_s,b.cod_sec_s ",
"FROM intb00003 b ",
"WHERE b.status_t is null and ",criterio clipped," ORDER BY 1,2,3,4 "
DISPLAY "<< Estoy Buscando Equivalentes... Espere>>" AT 19,14
PREPARE comando1 FROM selec2
DECLARE busca1 SCROLL CURSOR FOR comando1
OPEN busca1
# Busqueda de los costos de los materiales
LET selec1 =
"SELECT b.mes_ini,max(b.mes_fin),b.cod_n,b.cod_grupo,b.cod_tipo, ",
" b.cod_sec,b.costo_st ",
"FROM intb00013 b ",
"WHERE ",criterio clipped," and ano = ? ",
"GROUP BY 1,3,4,5,6,7 ORDER BY 3,4,5,6"
DISPLAY "<< Estoy Buscando Costos... Espere >>" AT 19,14
PREPARE comando FROM selec1
DECLARE busca3 SCROLL CURSOR FOR comando
OPEN busca3 USING p_ano
LET select_bal =
"SELECT b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,sum(b.cantidad_2) ",
"FROM intb00006 b ",
"WHERE ", criterio clipped," and b.status_t is null and b.fecha <= ? ",
"GROUP BY 1,2,3,4 ORDER BY 1,2,3,4"
DISPLAY "<< Estoy Buscando Balances Iniciales >>" AT 19,14
PREPARE busca_balan FROM select_bal
DECLARE material_bal SCROLL CURSOR FOR busca_balan
OPEN material_bal USING datos_cons.fech_fi
LET SELEC =
"SELECT a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,a.descrip_esp, ",
" a.unidad_med,b.dia_llegada ",
"FROM intb00001 a,intb00002 b ",
"WHERE ",criterio clipped," AND 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 AND a.status_t is null ",
"GROUP BY 1,2,3,4,5,6,7 ORDER BY 1,2,3,4"
PREPARE busca FROM selec
DECLARE accion CURSOR FOR busca
OPEN accion
LET selec3 =
"SELECT b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,sum(b.cantidad_2) ",
"FROM intb00006 b ",
"WHERE ",criterio clipped," AND b.status_t is null AND ",
" b.fecha between ? AND ? AND b.cod_mov = 36 ",
"GROUP BY 1,2,3,4 ORDER BY 1,2,3,4"
DISPLAY "<< Buscando Consumo Material... Por Favor Espere >>"
AT 19,14 ATTRIBUTE (REVERSE)
PREPARE comando2 FROM selec3
DECLARE consu SCROLL CURSOR FOR comando2
OPEN consu USING datos_cons.fech_in,datos_cons.fech_fi
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE)
START REPORT estadis_oc TO "C:\\archivo"
# Loop principal para la busqueda de la materia prima y el consumo
LET idx = 1
LET salir = "N"
WHILE salir != "S"
FETCH accion INTO estadis.*
IF status = notfound THEN
LET salir = "S"
EXIT WHILE
END IF
IF int_flag THEN
LET numero_msg = 2
CALL msg(numero_msg)
LET int_flag = false
RETURN
END IF
LET estadis.consumo = 0
LET estadis.existe = 0
LET estadis.valor = 0
LET estadis.costo = 0
# Busca el primer registro del record consume
#FETCH FIRST consu INTO consume.*
LET idx_b = 1
LET sale = "N"
WHILE sale != "S"
FETCH ABSOLUTE idx_b consu INTO consume.*
IF status = notfound THEN
LET sale = "S"
EXIT WHILE
END IF
LET idx_b = idx_b + 1
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.consumo = consume.consumo
LET sale = "S"
LET idx_b = 1
EXIT WHILE
END IF
END WHILE
# Chequea que el codigo buscado no este como equivalente en el arreglo
LET codigo_act = estadis.cod_n using "&","-",
estadis.cod_grupo using "&","-",
estadis.cod_tipo using "&&","-",
estadis.cod_sec using "&&&"
IF estadis.consumo IS NULL THEN
LET estadis.consumo = 0
END IF
LET tiene = "N"
FOR i = 1 TO idx
IF codigo_act = equivalentes[i].codigo_e THEN
LET tiene = "N"
CONTINUE WHILE
END IF
END FOR
# Loop para busqueda del balance de la materia prima
LET salir = "N"
LET Idx_b = 1
WHILE salir != "S"
FETCH ABSOLUTE idx_b material_bal INTO balances.*
IF status = notfound THEN
LET idx_b = 1
LET salir = "S"
EXIT WHILE
END IF
LET idx_b = idx_b + 1
IF balances.cod_n = estadis.cod_n AND
balances.cod_grupo = estadis.cod_grupo AND
balances.cod_tipo = estadis.cod_tipo AND
balances.cod_sec = estadis.cod_sec THEN
IF balances.balance IS NULL THEN
LET balances.balance = 0
END IF
LET estadis.existe = balances.balance
LET salir = "S"
LET idx_b = 1
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"
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
LET idx_1 = 1
LET salir = "S"
EXIT WHILE
END IF
END WHILE
# Busqueda de los equivalentes
LET salir = "N"
LET idx_3 = 1
WHILE salir != "S"
FETCH ABSOLUTE idx_3 busca1 INTO equivale.*
IF status = notfound THEN
LET idx_3 = 1
LET salir = "S"
EXIT WHILE
END IF
LET idx_3 = idx_3 + 1
LET equivale.descrip_e = null
LET equivale.unidad_e = null
LET equivale.consumo_e = 0
LET equivale.existe_e = 0
LET costo_e = 0
DISPLAY estadis.cod_grupo at 20,20
DISPLAY estadis.cod_tipo at 20,30
DISPLAY estadis.cod_sec at 20,40
DISPLAY equivale.cod_grupo at 21,20
DISPLAY equivale.cod_tipo at 21,30
DISPLAY equivale.cod_sec at 21,40
#sleep 4
IF equivale.cod_n = estadis.cod_n AND
equivale.cod_grupo = estadis.cod_grupo AND
equivale.cod_tipo = estadis.cod_tipo AND
equivale.cod_sec = estadis.cod_sec THEN
SELECT a.descrip_esp,a.unidad_med,b.dia_llegada
INTO equivale.descrip_e,equivale.unidad_e,equivale.dia_llegada_e
FROM intb00001 a,intb00002 b
WHERE a.cod_n=equivale.cod_n_e and a.cod_grupo=equivale.cod_grupo_e and
a.cod_tipo=equivale.cod_tipo_e and a.cod_sec=equivale.cod_sec_e and
b.cod_n=equivale.cod_n_e and b.cod_grupo=equivale.cod_grupo_e and
b.cod_tipo=equivale.cod_tipo_e and b.cod_sec=equivale.cod_sec_e and
b.status_t is null
SELECT SUM(cantidad_2) INTO equivale.consumo_e FROM intb00006
WHERE cod_n = equivale.cod_n_e and cod_grupo = equivale.cod_grupo_e and
cod_tipo=equivale.cod_tipo_e and cod_sec=equivale.cod_sec_e and
status_t is null and cod_mov = 36 and
fecha between datos_cons.fech_in and datos_cons.fech_fi
SELECT SUM(cantidad_2) INTO equivale.existe_e FROM intb00006
WHERE cod_n=equivale.cod_n_e and cod_grupo=equivale.cod_grupo_e and
cod_tipo=equivale.cod_tipo_e and cod_sec=equivale.cod_sec_e and
status_t is null and fecha <= datos_cons.fech_fi
# Busca el costo del equivalente
SELECT costo_st INTO costo_e FROM intb00013
WHERE cod_n = equivale.cod_n_e and cod_grupo = equivale.cod_grupo_e and
cod_tipo=equivale.cod_tipo_e and cod_sec=equivale.cod_sec_e and
status_t is null and ano = p_ano
IF status = notfound THEN
LET status = 0
END IF
LET equivalentes[idx].codigo_p = estadis.cod_n using "&","-",
estadis.cod_grupo using "&","-",
estadis.cod_tipo using "&&","-",
estadis.cod_sec using "&&&"
LET equivalentes[idx].codigo_e = equivale.cod_n_e using "&","-",
equivale.cod_grupo_e using "&","-",
equivale.cod_tipo_e using "&&","-",
equivale.cod_sec_e using "&&&"
LET estadis.fecha_llegada = null
LET estadis.num_oc = null
LET estadis.cantidad = null
SELECT MIN(a.fech_ent)
INTO estadis.fecha_llegada
FROM cotb00025 a,cotb00014 b
WHERE a.cod_n = equivale.cod_n_e AND
a.cod_grupo = equivale.cod_grupo_e AND
a.cod_tipo = equivale.cod_tipo_e AND
a.cod_sec = equivale.cod_sec_e AND
a.fech_ent >= TODAY and a.status_t is null AND
a.num_oc = b.num_oc AND b.cierre = "N"
SELECT MIN(a.num_oc)
INTO estadis.num_oc
FROM cotb00025 a,cotb00014 b
WHERE a.cod_n = equivale.cod_n_e AND
a.cod_grupo = equivale.cod_grupo_e AND
a.cod_tipo = equivale.cod_tipo_e AND
a.cod_sec = equivale.cod_sec_e AND
a.fech_ent = estadis.fecha_llegada and a.status_t is null AND
a.num_oc = b.num_oc AND b.cierre = "N"
LET estadis.cantidad = 0
SELECT AVG(a.cantidad)
INTO estadis.cantidad
FROM cotb00025 a
WHERE a.cod_n = equivale.cod_n_e AND
a.cod_grupo = equivale.cod_grupo_e AND
a.cod_tipo = equivale.cod_tipo_e AND
a.cod_sec = equivale.cod_sec_e AND
a.fech_ent = estadis.fecha_llegada AND
a.num_oc = estadis.num_oc and a.status_t is null
IF estadis.cantidad = 0 THEN
LET estadis.num_oc = null
LET estadis.fecha_llegada = null
END IF
LET equivalentes[idx].fecha_e = estadis.fecha_llegada
LET equivalentes[idx].num_oc_e = estadis.num_oc
LET equivalentes[idx].cantidad_e = estadis.cantidad
LET estadis.fecha_llegada = null
LET estadis.num_oc = null
LET estadis.cantidad = null
SELECT MIN(a.fech_ent)
INTO estadis.fecha_llegada
FROM cotb00025 a,cotb00014 b
WHERE a.cod_n = estadis.cod_n AND
a.cod_grupo = estadis.cod_grupo AND
a.cod_tipo = estadis.cod_tipo AND
a.cod_sec = estadis.cod_sec AND
a.fech_ent >= TODAY and a.status_t is null AND
a.num_oc = b.num_oc AND b.cierre = "N"
SELECT MIN(a.num_oc)
INTO estadis.num_oc
FROM cotb00025 a,cotb00014 b
WHERE a.cod_n = estadis.cod_n AND
a.cod_grupo = estadis.cod_grupo AND
a.cod_tipo = estadis.cod_tipo AND
a.cod_sec = estadis.cod_sec AND
a.fech_ent = estadis.fecha_llegada and a.status_t is null AND
a.num_oc = b.num_oc AND b.cierre = "N"
LET estadis.cantidad = 0
SELECT AVG(a.cantidad)
INTO estadis.cantidad
FROM cotb00025 a
WHERE a.cod_n = estadis.cod_n AND
a.cod_grupo = estadis.cod_grupo AND
a.cod_tipo = estadis.cod_tipo AND
a.cod_sec = estadis.cod_sec AND
a.fech_ent = estadis.fecha_llegada AND
a.num_oc = estadis.num_oc and a.status_t is null
IF estadis.cantidad = 0 THEN
LET estadis.num_oc = null
LET estadis.fecha_llegada = null
END IF
LET equivalentes[idx].fecha_p = estadis.fecha_llegada
LET equivalentes[idx].num_oc_p = estadis.num_oc
LET equivalentes[idx].cantidad_p = estadis.cantidad
LET equivalentes[idx].descrip_p = estadis.descrip_esp
LET equivalentes[idx].unidad_p = estadis.unidad_med
LET equivalentes[idx].existe_p = estadis.existe
LET equivalentes[idx].consumo_p = estadis.consumo
LET equivalentes[idx].dia_llegada_p = estadis.dia_llegada
LET equivalentes[idx].costo_p = estadis.costo
LET equivalentes[idx].descrip_e = equivale.descrip_e
LET equivalentes[idx].unidad_e = equivale.unidad_e
LET equivalentes[idx].existe_e = equivale.existe_e
LET equivalentes[idx].consumo_e = equivale.consumo_e
LET equivalentes[idx].dia_llegada_e = equivale.dia_llegada_e
LET equivalentes[idx].costo_e = costo_e
LET tiene = "S"
LET idx = idx + 1
#EXIT WHILE
END IF
END WHILE
# Se multiplica por -1 por que el movimiento 36 es negativo
IF estadis.consumo IS NULL THEN
LET estadis.consumo = 0
END IF
LET estadis.consumo = estadis.consumo * -1
# Calculo para los dias de produccion
LET cons_prom = 0
IF estadis.consumo > 0 THEN
LET cons_prom = estadis.consumo / dias1
LET estadis.dias = (estadis.existe / estadis.consumo) * dias1
END IF
# Calculo para el exedente de la existencia apartir de los dias de exeso
# especificado
# Control para salir el material, si: tiene = "S" es equivalente
# tiene = "N" es principal
LET estadis.fecha_llegada = null
LET estadis.num_oc = null
LET estadis.cantidad = null
IF tiene = "N" THEN
SELECT MIN(a.fech_ent)
INTO estadis.fecha_llegada
FROM cotb00025 a,cotb00014 b
WHERE a.cod_n = estadis.cod_n AND
a.cod_grupo = estadis.cod_grupo AND
a.cod_tipo = estadis.cod_tipo AND
a.cod_sec = estadis.cod_sec AND
a.fech_ent >= TODAY and
a.status_t is null AND
a.num_oc = b.num_oc AND b.cierre = "N"
SELECT MIN(a.num_oc)
INTO estadis.num_oc
FROM cotb00025 a,cotb00014 b
WHERE a.cod_n = estadis.cod_n AND
a.cod_grupo = estadis.cod_grupo AND
a.cod_tipo = estadis.cod_tipo AND
a.cod_sec = estadis.cod_sec AND
a.fech_ent = estadis.fecha_llegada and
a.status_t is null AND
a.num_oc = b.num_oc AND b.cierre = "N"
SELECT AVG(a.cantidad)
INTO estadis.cantidad
FROM cotb00025 a
WHERE a.cod_n = estadis.cod_n AND
a.cod_grupo = estadis.cod_grupo AND
a.cod_tipo = estadis.cod_tipo AND
a.cod_sec = estadis.cod_sec AND
a.fech_ent= estadis.fecha_llegada AND
a.num_oc = estadis.num_oc and
a.status_t is null
IF estadis.cantidad = 0 THEN
LET estadis.num_oc = null
LET estadis.fecha_llegada = null
END IF
LET estadis.p_cons_prom = cons_prom * 30
OUTPUT TO REPORT estadis_oc(estadis.*,dias1)
LET estadis.p_cons_prom = 0
END IF
LET tiene = "N"
LET salir = "N"
END WHILE
FINISH REPORT estadis_oc
CLEAR SCREEN
RUN "type C:\\archivo > %USPRINT%" END FUNCTION
REPORT estadis_oc(x,dias2)
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,
unidad_med LIKE intb00001.unidad_med,
dia_llegada LIKE intb00002.dia_llegada,
consumo LIKE intb00006.cantidad_1,
existe LIKE intb00002.existencia,
valor DECIMAL(12,3),
costo DECIMAL(12,4),
dias INTEGER ,
fecha_llegada DATE,
cantidad DECIMAL(12,2),
num_oc INTEGER,
p_cons_prom DECIMAL(12,2)
END RECORD
DEFINE primera CHAR(1)
DEFINE codigo_ant CHAR(10)
DEFINE consume DECIMAL (12,2)
DEFINE normal,dsiete,negra,doble,doble_off,borra,comp_off CHAR(2)
DEFINE promedio DECIMAL(10,2)
DEFINE doce,comp CHAR(3)
DEFINE dias,no_r SMALLINT
DEFINE dias4,dias5,dias3,dias2 SMALLINT
DEFINE hora CHAR(5)
DEFINE t_valor,existe_p,consumo_p DECIMAL(12,2)
OUTPUT
LEFT MARGIN 1
FORMAT
PAGE HEADER
IF no_r is null THEN
LET no_r = 0
END IF
LET doble = ASCII 14
LET doble_off = ASCII 20
LET negra = ASCII 27, ASCII 69
LET borra = ASCII 27, ASCII 70
LET comp = ASCII 15
LET dsiete = ASCII 17
LET comp_off = ASCII 18
LET doce = ASCII 030
LET normal = ASCII 27, ASCII 80
LET hora = time
LET lj = (126 - LENGTH(p_companias.nombre CLIPPED))/2
PRINT COLUMN 1, comp
PRINT COLUMN 1, "inprrp042",
COLUMN lj, p_companias.nombre CLIPPED,
COLUMN 119, "Pag. ", pageno USING "###"
PRINT COLUMN 40, " Sistema de Inventario de Materia Prima",
COLUMN 119, today using "dd/mm/yyyy"
PRINT COLUMN 40, " Dias De Produccion",
COLUMN 122, hora
SKIP 1 LINES
PRINT COLUMN 1, "Desde ",datos_cons.fech_in using "dd/mm/yyyy",
COLUMN 20, "Hasta ", datos_cons.fech_fi using "dd/mm/yyyy"
PRINT COLUMN 1, "--------------------------------------------------",
"--------------------------------------------------",
"-------------------------------------------"
PRINT COLUMN 50, "Consumo",
COLUMN 64, "Consumo",
COLUMN 90, "Dias de" ,
COLUMN 107, "Dias de",
COLUMN 115, "Fecha",
COLUMN 138, "Numero"
PRINT COLUMN 1, "Codigo",
COLUMN 14, "Descripcion",
COLUMN 50, "Del Periodo",
COLUMN 64, "De 30 Dias",
COLUMN 79, "Existencia",
COLUMN 90, "Inventario",
COLUMN 107, "Llegada",
COLUMN 115, "Llegada",
COLUMN 128, "Cantidad",
COLUMN 138, "Orden"
PRINT COLUMN 1, "--------------------------------------------------",
"--------------------------------------------------",
"-------------------------------------------"
skip 1 line
ON EVERY ROW
LET dias3 = x.fecha_llegada - TODAY
IF x.consumo = 0 THEN
LET x.dias = 0
END IF
IF x.cantidad = 0 OR
x.cantidad IS NULL THEN
LET x.fecha_llegada = null
LET x.num_oc = null
LET dias3 = 0
END IF
PRINT COLUMN 1, x.cod_n USING "&","-",x.cod_grupo USING "&","-",
x.cod_tipo USING "&&","-",x.cod_sec USING "&&&",
COLUMN 14, x.descrip_esp,
COLUMN 45, x.unidad_med,
COLUMN 48, x.consumo USING "##,###,###.##",
COLUMN 62, x.p_cons_prom USING "#,###,###.##",
COLUMN 75, x.existe USING "---,---,---.##",
COLUMN 90, x.dias USING "######" ,
COLUMN 107, dias3 using "###",
COLUMN 114, x.fecha_llegada USING "DD/MM/YY",
COLUMN 124, x.cantidad USING "##,###,###.##",
COLUMN 138, x.num_oc USING "&&&&&&"
LET no_r = no_r + 1
LET consumo_p = 0
LET existe_p = 0
ON LAST ROW
SKIP 2 LINES
PRINT COLUMN 1, "==================================================",
"==================================================",
"======================================"
PRINT COLUMN 50, "EQUIVALENTES / SUSTITUTOS"
SKIP 1 LINE
LET x.dias = 0
LET existe_p = 0
LET consumo_p = 0
FOR i = 1 TO idx
IF equivalentes[i].codigo_p is not null THEN
IF codigo_ant != equivalentes[i].codigo_p THEN
LET codigo_ant = equivalentes[i].codigo_p
LET primera = "S"
END IF
IF equivalentes[i].consumo_p is null THEN
LET equivalentes[i].consumo_p = 0
END IF
IF equivalentes[i].consumo_e is null THEN
LET equivalentes[i].consumo_e = 0
END IF
IF equivalentes[i].existe_p is null THEN
LET equivalentes[i].existe_p = 0
END IF
IF equivalentes[i].existe_e is null THEN
LET equivalentes[i].existe_e = 0
END IF
LET existe_p = equivalentes[i].existe_p +
equivalentes[i].existe_e
LET consumo_p = equivalentes[i].consumo_p +
equivalentes[i].consumo_e
# Calculo para los dias de produccion
IF consumo_p < 0 THEN
LET consumo_p = consumo_p * -1
END IF
LET cons_prom_k = 0
IF consumo_p > 0 THEN
LET cons_prom = consumo_p / dias2
LET x.dias = (existe_p /
consumo_p) * dias2
LET cons_prom_k = cons_prom * 30
END IF
# Calculo para el exedente de la existencia apartir de los dias de exeso
# especificado
LET dias4 = equivalentes[i].fecha_p - TODAY
LET dias5 = equivalentes[i].fecha_e - TODAY
IF equivalentes[i].cantidad_p IS NULL OR
equivalentes[i].cantidad_p = 0 THEN
LET equivalentes[i].num_oc_p = null
LET equivalentes[i].fecha_p = null
LET dias4 = 0
END IF
PRINT COLUMN 1, equivalentes[i].codigo_p,
COLUMN 14, equivalentes[i].descrip_p,
COLUMN 45, equivalentes[i].unidad_p,
COLUMN 48, equivalentes[i].consumo_p using "##,###,###.##",
COLUMN 75, equivalentes[i].existe_p using "--,---,---.##",
COLUMN 107, dias4 using "####",
COLUMN 114, equivalentes[i].fecha_p USING "DD/MM/YY",
COLUMN 124, equivalentes[i].cantidad_p USING "##,###,###.##",
COLUMN 138, equivalentes[i].num_oc_p USING "&&&&&&"
IF equivalentes[i].cantidad_e IS NULL OR
equivalentes[i].cantidad_e = 0 THEN
LET equivalentes[i].num_oc_e = null
LET equivalentes[i].fecha_e = null
LET dias5 = 0
END IF
PRINT COLUMN 1, equivalentes[i].codigo_e,
COLUMN 14, equivalentes[i].descrip_e,
COLUMN 45, equivalentes[i].unidad_e,
COLUMN 48, equivalentes[i].consumo_e using "##,###,###.##",
COLUMN 75, equivalentes[i].existe_e using "--,---,---.##",
COLUMN 107, dias5 using "####",
COLUMN 114, equivalentes[i].fecha_e USING "DD/MM/YY",
COLUMN 124, equivalentes[i].cantidad_e USING "##,###,###.##",
COLUMN 138, equivalentes[i].num_oc_e USING "&&&&&&"
PRINT COLUMN 48, "--------------",
COLUMN 64, "--------------"
PRINT COLUMN 48, consumo_p using "##,###,###.##",
COLUMN 64, cons_prom_k USING "#,###,###.##",
COLUMN 75, existe_p using "--,---,---.##",
COLUMN 90, x.dias using "####"
SKIP 1 LINE
LET no_r = no_r + 2
END IF
END FOR
PRINT COLUMN 4, "Total Registros Impresos =", no_r USING "<<<<"
PRINT COLUMN 1, normal
LET t_valor = 0
LET no_r = 0
END REPORT
Reference in New Issue View Git Blame Copy Permalink