{
-----------------------------------------------------------------------
 PROGRAMA          : PRPRMT011
 OBJETIVO          : ACTUALIZACION TABLA VWORDENS, ESTO ES PARA ANALISIS
                     DE LAS ORDENES DE PEDIDOS.
 PROGRAMADOR       : JUAN SOTO
 FECHA REALIZACION : MAYO 9, 2008
-----------------------------------------------------------------------
}
GLOBALS "prprgb000.4gl"

MAIN                
   DEFER INTERRUPT
   CALL prprmt011()
END MAIN    

FUNCTION prprmt011()

   DISPLAY "EN PROCESO, FAVOR ESPERE...." AT 10,10


DELETE FROM vwordenes;
INSERT INTO vwordenes
SELECT 
   e.ano,f.descrip,a.fecha_oc,a.fecha_entrega,g.num_doc,a.num_oc,L.PRODUCTO,m.descripcion,b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,n.descrip_esp,n.unidad_med,
   SUM(b.cantidad),g.cantidad_2,g.cantidad_1,a.tipo_cliente,a.sec_cliente,c.nombre,k.nom1_emp,k.apell1_emp,g.fecha,o.descrip_mov,a.cerrada,' '
   
FROM   prtb00012 a,prtb00013 b,vetb00004 c,vetb00028 d,prdtable e,mestable f,adtb00003 k,iptb00020 L,iptb00022 m,iptb00002 n,
  OUTER (iptb00006 g, iptb00005 o)
WHERE 
 (a.num_oc =b.num_oc) and
  a.fecha_oc BETWEEN e.fecha_inicio AND e.fecha_corte AND
   e.mes = f.mes and
 (a.tipo_cliente = c.tipo_cliente) AND
 (a.sec_cliente = c.sec_cliente) AND
 (c.tipo_cliente = d.tipo_cliente) AND
 (c.sec_cliente = d.sec_cliente) AND
 (d.sec_vend = k.num_emp) AND
 (b.cod_n = n.cod_n) AND
 (b.cod_grupo = n.cod_grupo) AND
(b.cod_tipo = n.cod_tipo) AND
(b.cod_sec = n.cod_sec) AND
(n.cod_cia = m.cod_cia) AND
(L.COD_N = N.COD_N) AND
e.ano > "2005" and
 (n.cod_n = G.cod_n) AND
 (n.cod_grupo = G.cod_grupo) AND
(n.cod_tipo = G.cod_tipo) AND
(n.cod_sec = G.cod_sec) AND
 (b.cod_n = G.cod_n) AND
 (b.cod_grupo = G.cod_grupo) AND
(b.cod_tipo = G.cod_tipo) AND
(b.cod_sec = G.cod_sec) AND
(g.conduce_no = a.num_oc) and
(g.cod_mov = o.cod_mov) and g.cod_mov in (30,31,55,70,71,72,12,13,43)  and
(g.cod_sp = c.tipo_cliente and g.cod_sp_sec = c.sec_cliente) and 
g.status_t is null  and
a.status_t is null
GROUP BY e.ano,f.descrip,a.fecha_oc,a.fecha_entrega,g.num_doc,a.num_oc,L.PRODUCTO,m.descripcion,b.cod_n,b.cod_grupo,b.cod_tipo,b.cod_sec,n.descrip_esp,n.unidad_med,
         g.cantidad_2,g.cantidad_1,a.tipo_cliente,a.sec_cliente,c.nombre,k.nom1_emp,k.apell1_emp,g.fecha,o.descrip_mov,a.cerrada

UPDATE vwordenes SET estado = "CERRADA" WHERE estado = "S"
UPDATE vwordenes SET estado = "ABIERTA" WHERE estado = "N"
UPDATE vwordenes SET fechaActualizacion = current


END FUNCTION