CREATE OR REPLACE procedure SYSTEXTILRPT.SPGET_PCP_CNTRLAVANUP5_P(
p_fecha_inicio date default null,
p_fecha_fin date default null,
p_pedido_inicio number default null,
p_pedido_fin number default null,
p_fecha_inicio_ficha date default null,
p_fecha_fin_ficha date default null,
p_ficha_inicio number default null,
p_ficha_fin number default null,
p_grupo_planea varchar2 default null,
p_codcancelamiento number default null,
p_pedidoin number default null,
--p_cancelado int default null,
-- p_empresa number default null,
pcursor out sys_refcursor)
-- *********************************************************
-- TMP
-- *********************************************************
is
/* Detalle: CONTROL DE AVANCE UPDATE
Versión: 001
Autor: GIAN CARLOS ALMEYDA AMORETTI
Fecha: 25/07/2018
*/
-- Declaramos variables por cada parámetro
v_fecha_inicio date := to_date(p_fecha_inicio,'dd/mm/rrrr');
v_fecha_fin date := to_date(p_fecha_fin,'dd/mm/rrrr');
v_pedido_inicio number := p_pedido_inicio;
v_pedido_fin number := p_pedido_fin;
v_fecha_inicio_ficha date := to_date(p_fecha_inicio_ficha,'dd/mm/rrrr');
v_fecha_fin_ficha date := to_date(p_fecha_fin_ficha,'dd/mm/rrrr');
v_ficha_inicio number := p_ficha_inicio;
v_ficah_fin number := p_ficha_fin;
v_grupo_planea varchar2(10) := p_grupo_planea ;
v_contador number := 0;
v_bloquedo number(1) :=0;
vpartida varchar2(50):='';
vfechaobjetivo date := null;
vdesctipprenda varchar2(250):='';
vcantprogramada number;
vcantxcortar number;
vccanrcant1era number;
vccanrcant2da number;
vccanrcant3era number;
vfechacorte date;
vfechacorte2 date;
ving_corte_pda_incompleta number;
vsal_corte_pda_incompleta number;
vnumerado_1ra number;
vnumerado_2da number;
vnumerado_recuperacion number;
vnumerado_perdida number;
vfecha_de_lavado_de_panos date;
vstock_panos number;
vfecha_estampado_pieza date;
vstock_estampado_pieza number;
vfecha_bordado_pieza date;
vstock_bordado_pieza number;
vfecha_despacho_costura date;
vfecha_despacho_app date;
vfecha_retorno_a_chincha date;
vstock_app_piezas number;
vmodulo_costura varchar2(100);
vcanti_estanteria number;
vlinea_costura date;
ving number;
vstock_costura number;
vavance_sal_prenda_costura number;
vnombre_servicio varchar2(200);
vstock_servicio_lima number;
vstock_servicio number;
vfecha_ingr_app date;
vstock_appprendasc number;
vtransito_chincha number;
vtransito_lima number;
v_embolsado_r number;
v_encajado_r number;
v_embolsado_r_cant number;
v_encajado_r_cant number;
---------AGREGADO 11/02/2020
v_i_cant_conge_corte_r number;
v_i_stock_reestru_acab_r number;
v_i_stock_prepack_acab_r number;
v_i_cant_conge_corte_cant number;
v_i_stock_reestru_acab_cant number;
v_i_stock_prepack_acab_cant number;
---------PARTE 1------------------------
---------------------------------
vstock_app2_pza number;
vstock_app2_pda number;
vservicios_especiales number;
vfecha_ingr_bordado date;
vstock_bordado number;
vfecha_ingr_estampado date;
vstock_estampado number;
vfecha_ingr_lavanderia date;
vstock_lavanderia number;
vfecha_ingr_cost_final date;
vstock_cost_final number;
vfecha_ingr_transito_acabc date;
vingtransitoacabchin number;
v1 number;
v2 number;
v3 number;
v4 number;
vstock_transito_ch number;
vfecha_ingr_acabados_c date;
x1 number;
x2 number;
x3 number;
vingreso_acabados_chin number;
vingreso_acabados_11_chin number;
y1 number;
y2 number;
vingreso_acabados_12_chin number;
b1 number;
b2 number;
vstock_acabados_primerasc number;
vstock_acabados_segundac number;
vstock_acabados_tercerasc number;
vstock_servicio_acabados_chin number;
vqtd_21055 number;
vlocalidad varchar2(200);
vsrvacbchn_ih number;
vfecha_ingr_transito_acabl date;
c1 number;
c2 number;
vingtransitoacablim number;
vstock_transito_lim number;
vfecha_ingreso_acab_lim date;
a1 number;
a2 number;
a3 number;
vingreso_acabados_lim number;
vingreso_acabados_38_lim number;
a4 number;
a5 number;
vingreso_acabados_39_lim number;
a6 number;
a7 number;
vstock_acabados_primerasl number;
vstock_acabados_segundal number;
vstock_acabados_tercerasl number;
vstock_servicio_lim number;
---------PARTE 2------------------------
---------------------------------
vingresoaptchinch date;
vstock1rasapt number;
vstock2dasapt number;
vstock3rasapt number;
vkg_prog number;
vusuario_canc varchar2(200);
vtipo_pedido varchar2(200);
vtipo_ficha varchar2(200);
a8 number;
vestado_ruta varchar2(200);
vstock_corte number;
vstockreestru number;
v1rasaptfichas number;
v2dasaptfichas number;
v3rasaptfichas number;
vdespachocomercial number;
vsalidaxperdida number;
vexportado number;
a9 number;
a10 number;
vcodcliente number;
vfechaex date;
vi_cantidad_zonaprepack number;
vi_cantidad_cuarentena number;
vfechacorten date;
vhoracorten varchar(20);
vfechareal_corte_costura date;
vhorareal_corte_costura varchar(20);
vhoradespacho_corte_apppzas varchar(20);
vestatus_pedido varchar(20);
---------PARTE 3------------------------
---------------------------------
vf_despcort_costu date; --1
vq_despcort_costu number; --2
vf_devcostu_cort date; --3
vq_devcostu_cort number; --4
vq_netodespcort_costu number; --5
vf_despcort_apppza date;--6
vq_despcort_apppza number;--7
vf_devapppza_corte date;--8
vq_devapppza_corte number;--9
vq_netodespcorte_apppza number;--10
vf_despapppza_costuinhouse date;--11
vq_despapppza_costu_inhouse number;--12
vf_devcostuinhouse_apppza date;--13
vq_devcostuinhouse_apppza number;--14
vq_netodespapppza_costuinhouse number;--15
------------------PARTE 4----------------
-----------------------------------------
vf_desapppza_costext date; --16
vq_depsapppza_costext number; --17
vf_devcostext_apppza date; --18
vq_devcostext_apppza number; --19
vq_netodespapppza_costuext number; --20
vf_despapppzachincha_apppzalim date; --21
vq_despapppzachincha_apppzalim number; --22
vf_devapppzalima_apppzachincha date; --23
vq_devapppzalima_apppzachincha number;--24
vq_netodespapppzachi_apppzalim number;--25
vf_despapppzalima_costplanlima date; --26
vq_despapppzalima_costplanlima number;--27
vf_devcostplanlima_apppzalima date; --28
vq_devcostplanlima_apppzalima number;--29
vq_netdespapppzali_costplanli number;--30
vf_despapppzali_costuinholim date; --31
vq_despapppzali_costuinholi number;--32
vf_devcostuinholi_apppzali date; --33
vq_devcostuinholi_apppzali number;--34
vq_netodespapppzali_costinholi number;--35
vf_despapppzalima_costuextlima date; --36
vq_despapppzalima_costuextlima number;--37
vf_devcostuextlima_apppzalima date; --38
vq_devcostuextlima_apppzalima number;--39
vq_netodespapppzali_costuextli number;--40
vq_ingresocostura number;
vubicacion varchar2(100);
vtransito_corte_costura_lima number;
vcostura_lima number;
vstock_srv_esta_lima number;--- PRENDAS
vcant_depurada number;
vi_serv_corte_completo number;
vi_transito_corte_lima number;
vi_serv_corte_lima number;
vi_stock_fileteo number;
vi_stock_lavado number;
vi_slavpdalim number;
vstraspdalim number;
vi_servreprcost number;
vi_servreprcostlma number;
vdt_fechacierre date;
vi_kilosdesp number;
vStock_Srv_Esta_Lima_Pza number;
vi_ajuste_ingcbo_ped number;
vi_ajuste_salcbo_ped number;
vi_ingxcbest number;
vi_salxcbest number;
------
vcant1 number;
vcant2 number;
vcant3 number;
vcant4 number;
vcant5 number;
vcant6 number;
vcant7 number;
vcant8 number;
vcant9 number;
vcant10 number;
vcant11 number;
vcant12 number;
VI_SALVTALOCAL number;
--VARIABLES CONTADORES
VCANTSLVTA NUMBER;
-- AGREGADO
v_SRVBORDADOPDALIM NUMBER;
begin
begin
declare
nsql clob;
curingreso sys_refcursor;
type inst is record
(
pedido number default 0,
data_emis_venda date,
data_entr_venda date,
pocliente varchar2(30) ,
cod_cliente varchar2(50) ,
via varchar2(20) ,
cd_it_pe_nivel99 varchar2(2) ,
estilotsc varchar2(5) ,
ficha number,
data_programacao date,
alternativa_prenda number,
ruta_prenda number,
codigo_color varchar2(6) ,
descricolor varchar2(250) ,
grupo_planeamiento varchar2(10) ,
partida varchar2(20) ,
cliente varchar2(250) ,
destino varchar2(250) ,
estilo_cliente varchar2(30) ,
descripcion_articulo varchar2(250) ,
ruta varchar2(350) ,
codigo_tela varchar2(150) ,
minutospremda_corte number(9,4) default 0,
minutospremda_costura number(9,4) default 0,
minutospremda_acabados number(9,4) default 0,
narrativa varchar2(255) ,
fecha_anulacion date ,
mov_baja varchar2(255) ,
canticolores number default 0
);
type vinst is table of inst;
vsx vinst;
begin
-- dinamic query
nsql :='
select
tbl.pedido_venda ,tbl.data_emis_venda ,tbl.data_entr_venda ,tbl.cod_ped_cliente
,tbl.cod_cliente ,tbl.via ,tbl.cd_it_pe_nivel99 ,tbl.referencia_peca
,tbl.ordem_producao ,tbl.data_programacao ,tbl.alternativa ,tbl.roterio
,tbl.cod_color ,tbl.desc_color ,tbl.grupo_planejamento ,tbl.partida
,tbl.nome_cliente ,tbl.nome_pais ,tbl.produto_cliente ,tbl.descr_referencia
,tbl.ruta ,tbl.codigo_tela ,tbl.minutospremda_costura ,tbl.minutospremda_corte
,tbl.minutospremda_acabados ,t2.narrativa ,tbl.fecha_baja ,tbl.motivo_baja
,tbl.cantidadcolores
from
(
select
t1.pedido_venda ,
t2.data_emis_venda ,
t2.data_entr_venda ,
t2.cod_ped_cliente,
t2.cli_ped_cgc_cli9 ||''.''||
t2.cli_ped_cgc_cli4 ||''.''||
t2.cli_ped_cgc_cli2 cod_cliente ,
upper
(
decode (t2.cod_via_transp,
1, ''terrestre'',
2, ''aéreo'',
3, ''maritimo'',
4, ''ferroviario'',
5, ''fluvial'')
) via ,
1 cd_it_pe_nivel99,
t1.referencia_peca,
t1.ordem_producao,
t1.data_programacao,
t1.alternativa_peca alternativa,
t1.roteiro_peca roterio,
(
select distinct sortimento from pcpc_021
where ordem_producao = t1.ordem_producao
) cod_color,
(
select distinct substr(t5.descricao_15,0,30)
from basi_010 t5
where t5.nivel_estrutura = 1
and t5.grupo_estrutura = t1.referencia_peca
and t5.item_estrutura in
(
select distinct sortimento from pcpc_021
where ordem_producao = t1.ordem_producao
)
) desc_color,
t4.grupo_planejamento,
usystex.fx_plan_paridasfichas(t1.ordem_producao) partida,
t3.nome_cliente ,
t11.nome_pais,
t12.produto_cliente,
t13.descr_referencia,
(select systextilrpt.fx_rutasprenda(''1'',t1.referencia_peca ,decode (t1.alternativa_peca, 0, 1, t1.alternativa_peca),decode (t1.roteiro_peca, 0, 1, t1.roteiro_peca)) from dual) ruta,
((
select USYSTEX.FX_PLAN_TELAPRINCIPALPEDIDO(t1.pedido_venda , (select distinct sortimento from pcpc_021
where ordem_producao = t1.ordem_producao) )codigo_tela from dual
)
) codigo_tela,
(
select sum (tmp.minutos_homem)
from mqop_050 tmp
where tmp.nivel_estrutura = ''1''
and tmp.grupo_estrutura = t1.referencia_peca
and tmp.numero_alternati =
decode (t1.alternativa_peca, 0, 1, t1.alternativa_peca)
and tmp.numero_roteiro =
decode (t1.roteiro_peca, 0, 1, t1.roteiro_peca)
and tmp.codigo_estagio in (1, 10, 13)
)
minutospremda_corte ,
(
select sum (tmp.minutos_homem)
from mqop_050 tmp --> TABLA DE OPERACIONES
where tmp.nivel_estrutura = ''1''
and tmp.grupo_estrutura = t1.referencia_peca
and tmp.numero_alternati =
decode (t1.alternativa_peca, 0, 1, t1.alternativa_peca)
and tmp.numero_roteiro =
decode ( t1.roteiro_peca, 0, 1, t1.roteiro_peca)
and tmp.codigo_estagio in(2,14,17, 21)
)
minutospremda_costura,
(
select sum (tmp.minutos_homem)
from mqop_050 tmp --> TABLA DE OPERACIONES
where tmp.nivel_estrutura = ''1''
and tmp.grupo_estrutura = t1.referencia_peca
and tmp.numero_alternati =
decode (t1.alternativa_peca, 0, 1, t1.alternativa_peca)
and tmp.numero_roteiro =
decode (t1.roteiro_peca, 0, 1, t1.roteiro_peca)
and tmp.codigo_estagio = 6
)
minutospremda_acabados,
t1.dt_cancelamento fecha_baja,
t16.descricao motivo_baja,
0 cantidadcolores
from pcpc_020 t1
inner join pedi_100 t2
on t1.pedido_venda = t2.pedido_venda
inner join pedi_010 t3
on t3.cgc_9 = t2.cli_ped_cgc_cli9
and t3.cgc_4 = t2.cli_ped_cgc_cli4
and t3.cgc_2 = t2.cli_ped_cgc_cli2
left join systextilrpt.vw_grupo_planeamentto t4
on t4.pedido_venda = t1.pedido_venda
left join pedi_150 t9 --> TAbla de pedido alternativa
on t9.cd_cli_cgc_cli9 = t2.cli_ped_cgc_cli9
and t9.cd_cli_cgc_cli4 = t2.cli_ped_cgc_cli4
and t9.cd_cli_cgc_cli2 = t2.cli_ped_cgc_cli2
and t9.seq_endereco = t2.seq_end_entrega
left join basi_160 t10
on t10.cod_cidade = t9.cid_entr_cobr
left join basi_165 t11
on t11.codigo_pais = t10.codigo_pais
left join basi_001 t12 --> tabla de Proyecto
on t12.nivel_produto = 1
and t12.grupo_produto = t1.referencia_peca
left join basi_030 t13
on t13.nivel_estrutura = 1
and t13.referencia = t1.referencia_peca
left join pcpt_050 t16
on t16.cod_cancelamento = t1.cod_cancelamento
where
(t1.ordem_mestre <> 0 or t1.tipo_ordem = 3 or t1.tipo_ordem = 2)
and t2.status_pedido <> ''5''
' ;
-- filtro por fecha
if v_fecha_inicio is not null then
nsql := nsql ||' and TO_DATE(t2.data_emis_venda,''DD/MM/RRRR'') between to_date('''||v_fecha_inicio||''',''DD/MM/RRRR'') and to_date('''||v_fecha_fin||''',''DD/MM/RRRR'')'; end if;
--filtro por pedidos
if v_pedido_inicio is not null then
nsql := nsql ||' and t1.pedido_venda between '|| v_pedido_inicio ||' and ' || v_pedido_fin ;
end if;
-- AGREGADO
--filtro por pedidos
if p_pedidoin = 1 then
nsql := nsql ||' and t1.pedido_venda in (select distinct pedido from SYSTEXTILRPT.TMP_JULIO)';
end if;
--filtro por fecha de fichas
if v_fecha_inicio_ficha is not null then
nsql := nsql ||' and TO_DATE(t1.data_programacao,''DD/MM/RRRR'') between to_date('''||v_fecha_inicio_ficha||''',''DD/MM/RRRR'') and to_date('''||v_fecha_fin_ficha||''',''DD/MM/RRRR'')'; end if;
--filtro por fichas
if v_ficha_inicio is not null then
nsql := nsql ||' and t1.ordem_producao between ' || v_ficha_inicio ||' and ' || v_ficah_fin ;
end if;
if p_codcancelamiento is not null then
--NO MUESTRA LOS CANCELADOS
if p_codcancelamiento = 10 then
nsql := nsql ||' and t1.cod_cancelamento = 0 ';
else
nsql := nsql ||' and t1.codigo_motivo = ' || p_codcancelamiento ;
end if;
end if;
-- and t3.codigo_motivo = nvl(p_codcancelamiento,t3.codigo_motivo)
nsql :=nsql|| ')
tbl
left join basi_010 t2
on
(t2.nivel_estrutura||''.''||t2.grupo_estrutura||''.''||t2.subgru_estrutura ||''.''||t2.item_estrutura)
=
tbl.codigo_tela';
open curingreso for nsql;
loop
fetch curingreso bulk collect into vsx limit 1000;
exit when vsx.count = 0;
--modificando la tabla
for x in 1 .. vsx.count loop
begin
select systextilrpt.fx_obpartida(vsx(x).ficha) into vpartida from dual;
exception when others then
vpartida := '';
end;
begin
select distinct fecha into vfechaobjetivo from plan_fecobjplan
where pedido = vsx(x).pedido;
exception when others then
vfechaobjetivo := null;
end;
begin
select descricao into vdesctipprenda
from systextilrpt.vw_pcp_tipo
where grupo_produto = vsx(x).estilotsc;
exception when others then
vdesctipprenda := null;
end;
begin
select systextilrpt.fx_canregprodxetapas (vsx(x).ficha,1,4)into vcantprogramada from dual;
select systextilrpt.fx_canregprodxetapas (vsx(x).ficha,1,1)into vccanrcant1era from dual;
select systextilrpt.fx_canregprodxetapas (vsx(x).ficha,1,2)into vccanrcant2da from dual;
select systextilrpt.fx_canregprodxetapas (vsx(x).ficha,1,3)into vccanrcant3era from dual;
vcantxcortar := vcantprogramada - (nvl(vccanrcant1era,0) + nvl(vccanrcant2da,0) + nvl(vccanrcant3era,0) );
exception when others then
vcantprogramada := 0 ;
vccanrcant1era :=0;
vccanrcant2da :=0;
vccanrcant3era :=0;
vcantprogramada := 0;
end;
begin
if vccanrcant1era = 0 then
vfechacorte :=null;
else
select min (t1.data_producao) into vfechacorte from pcpc_045 t1
where t1.pcpc040_estconf = 1
and t1.ordem_producao = vsx(x).ficha;
end if;
exception when others then
vfechacorte :=null;
end;
begin
select min (t1.data_producao) into vfechacorte2 from pcpc_045 t1
where t1.pcpc040_estconf = 1
and t1.ordem_producao = vsx(x).ficha;
exception when others then
vfechacorte2 :=null;
end;
begin
select systextilrpt.fx_cantmovxalma80 (vsx(x).ficha,31,141,'E', vsx(x).codigo_color) into ving_corte_pda_incompleta from dual;
select systextilrpt.fx_cantmovxalma80 (vsx(x).ficha,31,141,'S', vsx(x).codigo_color) into vsal_corte_pda_incompleta from dual;
select systextilrpt.fx_canregprodxetapas (vsx(x).ficha,8,1) into vnumerado_1ra from dual;
select systextilrpt.fx_canregprodxetapas (vsx(x).ficha,8,2) into vnumerado_2da from dual;
select systextilrpt.fx_canregprodxetapas (vsx(x).ficha,8,5) into vnumerado_recuperacion from dual;
select systextilrpt.fx_canregprodxetapas (vsx(x).ficha,8,2) into vnumerado_perdida from dual;
exception when others then
ving_corte_pda_incompleta :=0;
vsal_corte_pda_incompleta :=0;
vnumerado_1ra :=0;
vnumerado_2da :=0;
vnumerado_recuperacion :=0;
vnumerado_perdida :=0;
end;
begin
select min (t1.data_producao) into vfecha_de_lavado_de_panos
from pcpc_045 t1
where t1.pcpc040_estconf = 5
and t1.ordem_producao = vsx(x).ficha ;
exception when others then
vfecha_de_lavado_de_panos :=null;
end;
begin
select systextilrpt.fx_cantxalmacena80(vsx(x).ficha,vsx(x).estilotsc,vsx(x).codigo_color,5) into vstock_panos from dual;
select systextilrpt.fx_fechxregproda80 (vsx(x).ficha,6) into vfecha_estampado_pieza from dual;
select systextilrpt.fx_cantxalmacena80(vsx(x).ficha,vsx(x).estilotsc,vsx(x).codigo_color,6) into vstock_estampado_pieza from dual;
select systextilrpt.fx_fechxregproda80 (vsx(x).ficha,7) into vfecha_bordado_pieza from dual;
select systextilrpt.fx_cantxalmacena80(vsx(x).ficha,vsx(x).estilotsc,vsx(x).codigo_color,7) into vstock_bordado_pieza from dual;
select systextilrpt.fx_ultima_fecha_corte_2(vsx(x).ficha,'1',vsx(x).estilotsc,null,vsx(x).codigo_color) into vfecha_despacho_costura from dual;
select fx_ultima_fecha_corte_app(vsx(x).ficha,'1',vsx(x).estilotsc,null,vsx(x).codigo_color) into vfecha_despacho_app from dual;
select fx_ultima_retorno_corte_app_x(vsx(x).ficha,'1',vsx(x).estilotsc,null,vsx(x).codigo_color) into vfecha_retorno_a_chincha from dual;
select systextilrpt.fx_cantxalmacena80(vsx(x).ficha,vsx(x).estilotsc,vsx(x).codigo_color,8) into vstock_app_piezas from dual;
exception when others then
vstock_panos :=0;
vfecha_estampado_pieza :=null;
vstock_estampado_pieza :=0;
vfecha_bordado_pieza :=null;
vstock_bordado_pieza :=0;
vfecha_despacho_costura :=null;
vfecha_despacho_app :=null;
vfecha_retorno_a_chincha :=null;
vstock_app_piezas :=0;
end;
begin
select descricao into vmodulo_costura from vw_modulo_costuraf
where
grupo_estrutura = vsx(x).estilotsc
and item_estrutura = vsx(x).codigo_color
and numero_lote = vsx(x).ficha ;
exception when others then
vmodulo_costura := '';
end;
begin
select nvl(sum(t1.qtde_estoque_atu),0) into vcanti_estanteria from estq_040 t1
where
t1.cditem_nivel99 = '1'
and t1.lote_acomp = vsx(x).ficha
and t1.deposito between 401 and 499
and t1.qtde_estoque_atu != 0;
exception when others then
vcanti_estanteria :=0;
end;
begin
select min (tmp.data_movimento) into vlinea_costura
from estq_300_estq_310 tmp
where tmp.nivel_estrutura = '1'
and tmp.numero_lote = vsx(x).ficha
and tmp.codigo_transacao = 55
and tmp.entrada_saida = 'E'
and tmp.codigo_deposito in (301,302,303,304,305,306,307,308,309,310,311,312,313,314,315,316,317,318,319,320,330,350,46);
exception when others then
vlinea_costura :=null;
end;
begin
select sum (t1.quantidade) into ving from estq_300_estq_310 t1
where
t1.codigo_deposito between 301 and 320
and t1.numero_lote = vsx(x).ficha
and t1.codigo_transacao in (55);
exception when others then
ving :=0;
end;
begin
select sum(t1.qtde_estoque_atu) into vstock_costura from estq_040 t1
where
t1.cditem_nivel99 = '1'
and t1.lote_acomp = vsx(x).ficha
and t1.deposito in(301,302,303,304,305,306,307,308,309,310,311,312,313,314,315,316,317,318,319,320)
and t1.qtde_estoque_atu >0 ;
exception when others then
vstock_costura :=0;
end;
begin
select sum (t1.quantidade) into vavance_sal_prenda_costura
from estq_300_estq_310 t1
where
t1.numero_lote = vsx(x).ficha
and t1.codigo_transacao in (54)
and t1.codigo_deposito between 301 and 320 ;
exception when others then
vavance_sal_prenda_costura :=0;
end;
begin
select fx_servicio_nombre (vsx(x).ficha) into vnombre_servicio from dual;
select systextilrpt.fx_stock_serv_stockapplima1f(vsx(x).ficha) into vstock_servicio_lima from dual;
select systextilrpt.fx_stock_serv_stockapp1f(vsx(x).ficha) into vstock_servicio from dual;
select systextilrpt.fx_fechxregproda80(vsx(x).ficha,324) into vfecha_ingr_app from dual;
select systextilrpt.fx_cantxalmacena80(vsx(x).ficha,vsx(x).estilotsc,vsx(x).codigo_color,324) into vstock_appprendasc from dual;
select fx_stock_servicio_chincha(vsx(x).ficha) into vtransito_chincha from dual;
select fx_stock_servicio_lima(vsx(x).ficha) into vtransito_lima from dual;
select systextilrpt.fx_cantxalmacena80(vsx(x).ficha,vsx(x).estilotsc,vsx(x).codigo_color,34) into vstock_app2_pza from dual;
select systextilrpt.fx_cantxalmacena80(vsx(x).ficha,vsx(x).estilotsc,vsx(x).codigo_color,35) into vstock_app2_pda from dual;
select fx_stock_servicio_especiales (vsx(x).ficha) into vservicios_especiales from dual;
select systextilrpt.fx_fechxregproda80(vsx(x).ficha,322) into vfecha_ingr_bordado from dual;
select systextilrpt.fx_cantxalmacena80(vsx(x).ficha,vsx(x).estilotsc,vsx(x).codigo_color,322) into vstock_bordado from dual;
select systextilrpt.fx_fechxregproda80(vsx(x).ficha,323) into vfecha_ingr_estampado from dual;
select systextilrpt.fx_cantxalmacena80(vsx(x).ficha,vsx(x).estilotsc,vsx(x).codigo_color,323) into vstock_estampado from dual;
select systextilrpt.fx_fechxregproda80(vsx(x).ficha,321) into vfecha_ingr_lavanderia from dual;
select systextilrpt.fx_cantxalmacena80(vsx(x).ficha,vsx(x).estilotsc,vsx(x).codigo_color,321) into vstock_lavanderia from dual;
select systextilrpt.fx_fechxregproda80(vsx(x).ficha,9) into vfecha_ingr_cost_final from dual;
select systextilrpt.fx_cantxalmacena80(vsx(x).ficha,vsx(x).estilotsc,vsx(x).codigo_color,9) into vstock_cost_final from dual;
select systextilrpt.fx_fechxregproda80(vsx(x).ficha,26) into vfecha_ingr_transito_acabc from dual;
exception when others then
vstock_servicio_lima :=0;
vstock_servicio :=0;
vnombre_servicio :='';
vfecha_ingr_app :=null;
vstock_appprendasc :=0;
vtransito_chincha :=0;
vtransito_lima :=0;
vstock_app2_pza :=0;
vstock_app2_pda :=0;
vservicios_especiales :=0;
vfecha_ingr_bordado :=null;
vstock_bordado :=0;
vfecha_ingr_estampado :=null;
vstock_estampado :=0;
vfecha_ingr_lavanderia := null;
vstock_lavanderia :=0;
vfecha_ingr_cost_final:= null;
vstock_cost_final :=0;
vfecha_ingr_transito_acabc := null;
end;
begin
select nvl(sum(t1.quantidade),0) into v1 from estq_300_estq_310 t1
where t1.codigo_deposito in(11,12,210)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(62,55,57)
and t1.entrada_saida = 'E';
select nvl(sum(t1.quantidade),0) into v2 from estq_300_estq_310 t1
where t1.codigo_deposito in(11,12,210)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(61,56)
and t1.entrada_saida = 'S';
select nvl(sum(t1.quantidade),0) into v3 from estq_300_estq_310 t1
where t1.codigo_deposito in(210)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(54)
and t1.entrada_saida = 'S';
select nvl(sum(t1.qtde_estoque_atu),0) into v4 from estq_040 t1
where t1.lote_acomp = vsx(x).ficha
and t1.cditem_nivel99 = '1'
and t1.cditem_grupo = vsx(x).estilotsc
and t1.cditem_item = vsx(x).codigo_color
and t1.deposito in(26);
vingtransitoacabchin := (v1 - (v2+v3)) + v4;
exception when others then
vingtransitoacabchin :=0;
end;
begin
select systextilrpt.fx_cantxalmacena80(vsx(x).ficha,vsx(x).estilotsc,vsx(x).codigo_color,26) into vstock_transito_ch from dual;
select systextilrpt.fx_fechxregproda80(vsx(x).ficha,210) into vfecha_ingr_acabados_c from dual;
exception when others then
vstock_transito_ch :=0;
vfecha_ingr_acabados_c :=null;
end;
begin
select nvl(sum(t1.quantidade),0) into x1 from estq_300_estq_310 t1
where t1.codigo_deposito in(210)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(55,62,147)
and t1.entrada_saida = 'E';
select nvl(sum(t1.quantidade),0) into x2 from estq_300_estq_310 t1
where t1.codigo_deposito in(210)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(56,61,54)
and t1.entrada_saida = 'S';
select nvl(sum(t1.quantidade),0) into x3 from estq_300_estq_310 t1
where t1.codigo_deposito in(210)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(148);
vingreso_acabados_chin := (x1-x2) - x3 ;
exception when others then
vingreso_acabados_chin :=0;
end;
begin
select nvl(sum(t1.quantidade),0)into y1 from estq_300_estq_310 t1
where t1.codigo_deposito in(11)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura =vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(62,55)
and t1.entrada_saida = 'E';
select nvl(sum(t1.quantidade),0) into y2 from estq_300_estq_310 t1
where t1.codigo_deposito in(11)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(61,56)
and t1.entrada_saida = 'S';
vingreso_acabados_11_chin := y1-y2;
exception when others then
vingreso_acabados_11_chin :=0;
end;
begin
select nvl(sum(t1.quantidade),0)into b1 from estq_300_estq_310 t1
where t1.codigo_deposito in(12)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura =vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(62,55)
and t1.entrada_saida = 'E';
select nvl(sum(t1.quantidade),0) into b2 from estq_300_estq_310 t1
where t1.codigo_deposito in(12)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(61,56)
and t1.entrada_saida = 'S';
vingreso_acabados_12_chin := b1-b2;
exception when others then
vingreso_acabados_12_chin :=0;
end;
begin
select nvl(sum(nvl(stock_acabados_primerasc,0)),0) into vcant10 from TMP_CRTLAVUPDATE_VS3
where
pedido = vsx(x).pedido
and codigo_color = vsx(x).codigo_color;
if vcant10 > 0 then
vstock_acabados_primerasc :=0;
else
select systextilrpt.fx_cantxalmacena80(vsx(x).pedido,vsx(x).estilotsc,vsx(x).codigo_color,210) into vstock_acabados_primerasc from dual;
end if;
select nvl(sum(nvl(stock_acabados_segundac,0)),0) into vcant11 from TMP_CRTLAVUPDATE_VS3
where
pedido = vsx(x).pedido
and codigo_color = vsx(x).codigo_color;
if vcant11 > 0 then
vstock_acabados_segundac :=0;
else
select systextilrpt.fx_cantxalmacena80(vsx(x).pedido,vsx(x).estilotsc,vsx(x).codigo_color,11) into vstock_acabados_segundac from dual;
end if;
select nvl(sum(nvl(stock_acabados_tercerasc,0)),0) into vcant12 from TMP_CRTLAVUPDATE_VS3
where
pedido = vsx(x).pedido
and codigo_color = vsx(x).codigo_color;
if vcant12 > 0 then
vstock_acabados_tercerasc :=0;
else
select systextilrpt.fx_cantxalmacena80(vsx(x).pedido,vsx(x).estilotsc,vsx(x).codigo_color,12) into vstock_acabados_tercerasc from dual;
end if;
exception when others then
vcant10 :=0;
vcant11 :=0;
vcant12 :=0;
vstock_acabados_primerasc :=0;
vstock_acabados_segundac :=0;
vstock_acabados_tercerasc :=0;
end;
begin
--> SERVICIO ACABADOS CHN - IN HOUSE -- Mostrar los despachos guía del tránsito de acabados (26) o acabados (210) con operación 55 DESPACHO SERVICIO ACABADO, menos los retornos al acabados 1ra 210 con operación 054 - RECEPCION SERVICIO ACABADO.
vlocalidad := '';
vlocalidad := usystex.inter_fn_localidad(vsx(x).ficha,210,55);
vqtd_21055 := usystex.inter_fn_desp_guia(vsx(x).ficha,210,55) - nvl(usystex.inter_fn_ing_guia(vsx(x).ficha,210,54),0) ;
vsrvacbchn_ih := 0;
vstock_servicio_acabados_chin := 0;
if vlocalidad = 'CHINCHA/INHOUSE' then
vsrvacbchn_ih := vqtd_21055;
else
vstock_servicio_acabados_chin := 0;
end if;
if vlocalidad = 'CHINCHA/EXTERNO' then
vstock_servicio_acabados_chin := vqtd_21055;
else
vsrvacbchn_ih := 0;
end if;
exception when others then
vstock_servicio_acabados_chin :=0;
end;
begin
select systextilrpt.fx_fechxregproda80(vsx(x).ficha,36) into vfecha_ingr_transito_acabl from dual;
select nvl(sum(t1.quantidade),0)into c1 from estq_300_estq_310 t1
where
t1.codigo_deposito in(36,37,38,39)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura =vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(62,55,57)
and t1.entrada_saida = 'E';
select nvl(sum(t1.quantidade),0) into c2 from estq_300_estq_310 t1
where
t1.codigo_deposito in(36,37,38,39)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(61,56)
and t1.entrada_saida = 'S';
vingtransitoacablim := c1 - c2;
exception when others then
vfecha_ingr_transito_acabl :=null;
end;
begin
select systextilrpt.fx_cantxalmacena80(vsx(x).ficha,vsx(x).estilotsc,vsx(x).codigo_color,36) into vstock_transito_lim from dual;
select systextilrpt.fx_fechxregproda80(vsx(x).ficha,37) into vfecha_ingreso_acab_lim from dual;
exception when others then
vstock_transito_lim :=0;
vfecha_ingreso_acab_lim :=null;
end;
begin
select nvl(sum(t1.quantidade),0) into a1 from estq_300_estq_310 t1
where t1.codigo_deposito in(37)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(55,62,165)
and t1.entrada_saida = 'E';
select nvl(sum(t1.quantidade),0) into a2 from estq_300_estq_310 t1
where t1.codigo_deposito in(37)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(56,61)
and t1.entrada_saida = 'S';
select nvl(sum(t1.quantidade),0) into a3 from estq_300_estq_310 t1
where t1.codigo_deposito in(37)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(166);
vingreso_acabados_lim := (a1-a2) -a3;
exception when others then
vingreso_acabados_lim :=0;
a1 :=0;
a2 :=0;
a3 :=0;
end;
begin
select nvl(sum(t1.quantidade),0) into a4 from estq_300_estq_310 t1
where t1.codigo_deposito in(38)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(62,55)
and t1.entrada_saida = 'E';
select nvl(sum(t1.quantidade),0) into a5 from estq_300_estq_310 t1
where t1.codigo_deposito in(38)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(61,56)
and t1.entrada_saida = 'S';
vingreso_acabados_38_lim := a4-a5;
exception when others then
vingreso_acabados_38_lim :=0;
a4 :=0;
a5 :=0;
end;
begin
select nvl(sum(t1.quantidade),0) into a6 from estq_300_estq_310 t1
where t1.codigo_deposito in(39)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(62,55)
and t1.entrada_saida = 'E';
select nvl(sum(t1.quantidade),0) into a7 from estq_300_estq_310 t1
where t1.codigo_deposito in(39)
and t1.numero_lote = vsx(x).ficha
and t1.nivel_estrutura = '1'
and t1.grupo_estrutura = vsx(x).estilotsc
and t1.item_estrutura = vsx(x).codigo_color
and t1.codigo_transacao in(61,56)
and t1.entrada_saida = 'S';
vingreso_acabados_39_lim := a6-a7;
exception when others then
vingreso_acabados_39_lim :=0;
a6 :=0;
a7 :=0;
end;
begin
select nvl(sum(nvl(stock_acabados_primerasl,0)),0) into vcant1 from TMP_CRTLAVUPDATE_VS3
where
pedido = vsx(x).pedido
and codigo_color = vsx(x).codigo_color
--and mov_baja <>'.'
;
if vcant1 > 0 then
vstock_acabados_primerasl :=0;
else
select systextilrpt.fx_cantxalmacena80(vsx(x).pedido,vsx(x).estilotsc,vsx(x).codigo_color,37) into vstock_acabados_primerasl from dual;
end if;
exception when others then
vstock_acabados_primerasl :=0;
vcant1 :=0;
end;
begin
select nvl(sum(nvl(stock_acabados_segundal,0)),0) into vcant2 from TMP_CRTLAVUPDATE_VS3
where
pedido = vsx(x).pedido
and codigo_color = vsx(x).codigo_color
--and mov_baja <>'.'
;
if vcant2 > 0 then
vstock_acabados_segundal :=0;
else
select systextilrpt.fx_cantxalmacena80(vsx(x).pedido,vsx(x).estilotsc,vsx(x).codigo_color,38) into vstock_acabados_segundal from dual;
end if;
exception when others then
vstock_acabados_segundal :=0;
vcant2 :=0;
end;
begin
select nvl(sum(nvl(stock_acabados_tercerasl,0)),0) into vcant3 from TMP_CRTLAVUPDATE_VS3
where
pedido = vsx(x).pedido
and codigo_color = vsx(x).codigo_color
--and mov_baja <>'.'
;
if vcant3 > 0 then
vstock_acabados_tercerasl :=0;
else
select systextilrpt.fx_cantxalmacena80(vsx(x).pedido,vsx(x).estilotsc,vsx(x).codigo_color,39) into vstock_acabados_tercerasl from dual;
end if;
exception when others then
vstock_acabados_tercerasl :=0;
vcant3 :=0;
end;
begin
select systextilrpt.fx_stockf_serv_stockacablim(vsx(x).ficha,'1',vsx(x).estilotsc,vsx(x).codigo_color) into vstock_servicio_lim from dual;
select systextilrpt.fx_fechxregprodxpedia80(vsx(x).pedido,vsx(x).codigo_color,211) into vingresoaptchinch from dual;
exception when others then
vstock_servicio_lim :=0;
vingresoaptchinch :=null;
end;
begin
select nvl(sum(nvl(stock1rasapt,0)),0) into vcant4 from TMP_CRTLAVUPDATE_VS3
where
pedido = vsx(x).pedido
and codigo_color = vsx(x).codigo_color;
if vcant4 >0 then
vstock1rasapt :=0;
else
select systextilrpt.fx_cantxalmacena80(vsx(x).pedido,vsx(x).estilotsc,vsx(x).codigo_color,211) +
systextilrpt.fx_cantxalmacena80(vsx(x).pedido,vsx(x).estilotsc,vsx(x).codigo_color,40) into vstock1rasapt from dual;
end if;
exception when others then
vstock1rasapt :=0;
vcant4 :=0;
end;
begin
select nvl(sum(nvl(stock2dasapt,0)),0) into vcant5 from TMP_CRTLAVUPDATE_VS3
where
pedido = vsx(x).pedido
and codigo_color = vsx(x).codigo_color;
if vcant5 >0 then
vstock2dasapt :=0;
else
select systextilrpt.fx_cantxalmacena80(vsx(x).pedido,vsx(x).estilotsc,vsx(x).codigo_color,213) +
systextilrpt.fx_cantxalmacena80(vsx(x).pedido,vsx(x).estilotsc,vsx(x).codigo_color,42) into vstock2dasapt from dual;
end if;
exception when others then
vstock2dasapt :=0;
vcant5 :=0;
end;
--------------------------------RESULTADO DE ENCAJADO Y EMBOLSADO 20/01/2019
begin
select nvl(sum(nvl(I_EMBOLSADO_R,0)),0) into v_embolsado_r from TMP_CRTLAVUPDATE_VS3
where
pedido = vsx(x).pedido
and codigo_color = vsx(x).codigo_color;
if v_embolsado_r >0 then
v_embolsado_r_cant :=0;
else
select SYSTEXTILRPT.FX_CANTXREGISTRO_ACABADOS(vsx(x).pedido,vsx(x).codigo_color,'EMBOLSADO') into v_embolsado_r_cant from dual;
end if;
exception when others then
v_embolsado_r_cant :=0;
v_embolsado_r :=0;
end;
---------
begin
select nvl(sum(nvl(I_ENCAJADO_R,0)),0) into v_encajado_r from TMP_CRTLAVUPDATE_VS3 x1
where
pedido = vsx(x).pedido
and codigo_color = vsx(x).codigo_color;
if v_encajado_r >0 then
v_encajado_r_cant :=0;
else
select SYSTEXTILRPT.FX_CANTXREGISTRO_ACABADOS(vsx(x).pedido,vsx(x).codigo_color,'ENCAJADO') into v_encajado_r_cant from dual;
end if;
exception when others then
v_encajado_r_cant :=0;
v_encajado_r :=0;
end;
---modificacion 11/02/2020
---------CANTIDAD PROGRAMA
begin
select nvl(sum(nvl(I_CON_PROG,0)),0) into v_i_cant_conge_corte_r from TMP_CRTLAVUPDATE_VS3 x1
where
pedido = vsx(x).pedido
and codigo_color = vsx(x).codigo_color;
if v_i_cant_conge_corte_r >0 then
v_i_cant_conge_corte_cant :=0;
else
select sum(pcpc_021_log.QUANTIDADE) into v_i_cant_conge_corte_cant from pcpc_021_log
Where PCPC_021_LOG.ORDEM_PRODUCAO = vsx(x).ficha ;
end if;
exception when others then
v_i_cant_conge_corte_cant :=0;
v_i_cant_conge_corte_r :=0;
end;
---------------------ZONA PREPACK
begin
select nvl(sum(nvl(I_PREPACK_ACAB,0)),0) into v_i_stock_prepack_acab_r from TMP_CRTLAVUPDATE_VS3
where
pedido = vsx(x).pedido
and codigo_color = vsx(x).codigo_color;
if v_i_stock_prepack_acab_r >0 then
v_i_stock_prepack_acab_cant :=0;
else
select systextilrpt.fx_cantxalmacena80(vsx(x).pedido,vsx(x).estilotsc,vsx(x).codigo_color,63) into v_i_stock_prepack_acab_cant from dual;
end if;
exception when others then
v_i_stock_prepack_acab_cant :=0;
v_i_stock_prepack_acab_r :=0;
end;
-------ZONA DE REESTRU
begin
select nvl(sum(nvl(I_RESTRU_ACAB,0)),0) into v_i_stock_reestru_acab_r from TMP_CRTLAVUPDATE_VS3
where
pedido = vsx(x).pedido
and codigo_color = vsx(x).codigo_color;
if v_i_stock_reestru_acab_r >0 then
v_i_stock_reestru_acab_cant :=0;
else
select systextilrpt.fx_cantxalmacena80(vsx(x).pedido,vsx(x).estilotsc,vsx(x).codigo_color,27) into v_i_stock_reestru_acab_cant from dual;
end if;
exception when others then
v_i_stock_reestru_acab_cant :=0;
v_i_stock_reestru_acab_r :=0;
end;
-------------------------RESULTADO DE ENCAJADO Y EMBOLSADO
begin
select nvl(sum(nvl(stock3rasapt,0)),0) into vcant6 from TMP_CRTLAVUPDATE_VS3
where
pedido = vsx(x).pedido
and codigo_color = vsx(x).codigo_color;
if vcant6 >0 then
vstock3rasapt :=0;
else
select systextilrpt.fx_cantxalmacena80(vsx(x).pedido,vsx(x).estilotsc,vsx(x).codigo_color,214) +
systextilrpt.fx_cantxalmacena80(vsx(x).pedido,vsx(x).estilotsc,vsx(x).codigo_color,43) into vstock3rasapt from dual;
end if;
exception when others then
vstock3rasapt :=0;
vcant6 :=0;
end;
begin
select kg into vkg_prog from vw_pcp_kg_ficha where pcpc0302_orprocor= vsx(x).ficha;
select usuario into vusuario_canc from vw_pcpc_usu
Crear cuenta
Comentarios sobre la versión: 1 (0)
No hay comentarios