36 lines
1.4 KiB
Plaintext
36 lines
1.4 KiB
Plaintext
{
|
|
-----------------------------------------------------------------------
|
|
PROGRAMA : PRPRMT012
|
|
OBJETIVO : ACTUALIZACION TABLA VWPRODUCCION, ESTO ES PARA ANALISIS
|
|
DE LAS ORDENES DE PRODUCCION DIARIA.
|
|
PROGRAMADOR : JUAN SOTO
|
|
FECHA REALIZACION : JUNIO 3, 2008
|
|
-----------------------------------------------------------------------
|
|
}
|
|
GLOBALS "prprgb000.4gl"
|
|
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL prprmt011()
|
|
END MAIN
|
|
|
|
FUNCTION prprmt011()
|
|
|
|
DISPLAY "EN PROCESO PRODUCCION DIARIA, FAVOR ESPERE...." AT 10,10
|
|
INSERT INTO prtb00021
|
|
SELECT f.ano,h.descripcion,k.descrip,p.descripcion,C.FECHA,c.num_doc,a.cod_prod,a.descripcion,
|
|
a.unidad_med,b.departamento,b.nom_dpto,d.num_emp,d.nom1_emp,apell1_emp,c.h_directa,h_indirecta,
|
|
e_directa,e_indirecta,c.cantidad,c.codigo_bloque, '0',s.nom_dpto,'0'
|
|
FROM cttb00001 a,adtb00001 b,adtb00003 d,cttb00003 c,prdtable f,mestable k,diatable h,prtb00002 p,chequeo s
|
|
WHERE a.cod_prod = c.cod_prod AND
|
|
c.departamento = b.departamento AND
|
|
c.departamento = s.departamento AND
|
|
c.emp_no = d.num_emp AND
|
|
c.fecha BETWEEN f.fecha_inicio AND f.fecha_corte AND
|
|
f.mes = k.mes AND F.ANO > "2007" AND
|
|
p.ano = f.ano and p.mes = f.mes AND
|
|
WEEKDAY(c.fecha) = h.dia AND
|
|
c.status_t IS NULL
|
|
|
|
DECLARE
|
|
END FUNCTION |