67 lines
2.5 KiB
Plaintext
67 lines
2.5 KiB
Plaintext
{
|
|
-----------------------------------------------------------------------
|
|
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 |