{
-----------------------------------------------------------------------
 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