Oracle 存储过程包

create or replace package body cuttoship_lots is

  procedure prod_run(p_w_day date) as
  begin
    delete cuttoship_lot;
    commit;
    prod_erp(p_w_day);
    prod_szbgerp(p_w_day);
    prod_shs(p_w_day);
    prod_subedit;
    prod_ins_rpt;
    prod_update_0;
  end;  
  
  procedure prod_erp(p_w_day date) as
  begin
    --panel qty
       for c in (select 'erp' as site,lotno,max(gen_date) w_day
                  from facd321
                  where gen_date>=trunc(p_w_day) and gen_date<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
       end loop;
       
       --trf to sewing qty
       for c in (select 'erp' as site,lotno,max(import_time) w_day
                  from facd512
                  where import_time>=trunc(p_w_day) and import_time<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
       end loop;
       
       --output qty
       for c in (select 'erp' as site,lotno,max(lrrq) w_day
                  from facd105
                  where lrrq>=trunc(p_w_day) and lrrq<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
       end loop;
       
       --leftover garments
       for c in (select 'erp' as site,lotno,max(lrrq) w_day
                  from facd550
                  where lrrq>=trunc(p_w_day) and lrrq<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
       end loop;
       
       --reason qty
       for c in (select 'erp' as site,lotno,max(lastupdate) w_day
                  from facd343
                  where lastupdate>=trunc(p_w_day) and lastupdate<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
       end loop;
       
       --log
       insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
       values
        ('Success',
         'cuttoship_lots',
         'prod_erp',
         trunc(p_w_day),
         SYSDATE,
         get_OS('OS_USER'));
       commit;
  exception
    when others then
      insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
      values
        ('Failure',
         'cuttoship_lots',
         'prod_erp',
         trunc(p_w_day),
         SYSDATE,
         get_OS('OS_USER'));
      commit;
  end; 
  
  procedure prod_szbgerp(p_w_day date) as
    p_ck number;
  begin
       p_ck:=0;
       --panel qty
       for c in (select 'szbgerp' as site,lotno,max(gen_date) w_day
                  from facd321@szbgerp
                  where gen_date>=trunc(p_w_day) and gen_date<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
         dbms_session.close_database_link('szbgerp');
         p_ck:=0;
       end if;
       
       --trf to sewing qty
       for c in (select 'szbgerp' as site,lotno,max(import_time) w_day
                  from facd512@szbgerp
                  where import_time>=trunc(p_w_day) and import_time<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
         dbms_session.close_database_link('szbgerp');
         p_ck:=0;
       end if;
       
       --output qty
       for c in (select 'szbgerp' as site,lotno,max(lrrq) w_day
                  from facd105@szbgerp
                  where lrrq>=trunc(p_w_day) and lrrq<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
         dbms_session.close_database_link('szbgerp');
         p_ck:=0;
       end if;
       
       --leftover garments
       for c in (select 'szbgerp' as site,lotno,max(w_day) w_day
                  from facd340@szbgerp
                  where w_day>=trunc(p_w_day) and w_day<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
         dbms_session.close_database_link('szbgerp');
         p_ck:=0;
       end if;
       
       --reason qty
       for c in (select 'szbgerp' as site,lotno,max(lastupdate) w_day
                  from facd343@szbgerp
                  where lastupdate>=trunc(p_w_day) and lastupdate<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
         dbms_session.close_database_link('szbgerp');
       end if;
       --log
       insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
       values
        ('Success',
         'cuttoship_lots',
         'prod_szbgerp',
         trunc(p_w_day),
         SYSDATE,
         get_OS('OS_USER'));
       commit;
  exception
    when others then
      insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
      values
        ('Failure',
         'cuttoship_lots',
         'prod_szbgerp',
         trunc(p_w_day),
         SYSDATE,
         get_OS('OS_USER'));
      commit;
  end; 
  
  procedure prod_shs(p_w_day date) as
    p_ck number;
  begin
       p_ck:=0;
       
       --panel qty
       for c in (select 'shs' as site,lotno,max(gen_date) w_day
                  from facd321@shs
                  where gen_date>=trunc(p_w_day) and gen_date<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
         dbms_session.close_database_link('shs');
         p_ck:=0;
       end if;
       
       
       --trf to sewing qty
       for c in (select 'shs' as site,lotno,max(import_time) w_day
                  from facd512@shs
                  where import_time>=trunc(p_w_day) and import_time<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
         dbms_session.close_database_link('shs');
         p_ck:=0;
       end if;
       
       
       --output qty
       for c in (select 'shs' as site,lotno,max(lrrq) w_day
                  from facd105@shs
                  where lrrq>=trunc(p_w_day) and lrrq<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
         dbms_session.close_database_link('shs');
         p_ck:=0;
       end if;
       
       --leftover garments
       for c in (select 'shs' as site,lotno,max(w_day) w_day
                  from facd340@shs
                  where w_day>=trunc(p_w_day) and w_day<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
         dbms_session.close_database_link('shs');
         p_ck:=0;
       end if;
       
       --reason qty
       for c in (select 'shs' as site,lotno,max(lastupdate) w_day
                  from facd343@shs
                  where lastupdate>=trunc(p_w_day) and lastupdate<trunc(p_w_day+1)
                  group by lotno) loop
           insert into cuttoship_lot
           values(c.site,c.lotno,c.w_day);
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
         dbms_session.close_database_link('shs');
       end if;
       
       --log
       insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
       values
        ('Success',
         'cuttoship_lots',
         'prod_shs',
         trunc(p_w_day),
         SYSDATE,
         get_OS('OS_USER'));
       commit;
  exception
    when others then
      insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
      values
        ('Failure',
         'cuttoship_lots',
         'prod_shs',
         trunc(p_w_day),
         SYSDATE,
         get_OS('OS_USER'));
      commit;
  end; 
  
  procedure prod_subedit as
    maxday date;
    p_ck number;
  begin
       --delete the smae lotno records
       for c in (select site,lotno,day
                  from cuttoship_lot
                  where site='erp') loop
           select count(0) into p_ck 
           from  cuttoship_lot
           where site='szbgerp' and lotno=c.lotno;
           if p_ck>0 then
             select day into maxday
             from  cuttoship_lot
             where site='szbgerp' and lotno=c.lotno;
             if maxday>c.day then
                delete cuttoship_lot where site=c.site and lotno=c.lotno;
             elsif maxday<c.day then
                delete cuttoship_lot where site='szbgerp' and lotno=c.lotno;
             end if;
           end if;
           commit;
       end loop;
       
       for c in (select site,lotno,day
                  from cuttoship_lot
                  where site in('erp','szbgerp')) loop
           select count(0) into p_ck 
           from  cuttoship_lot
           where site='shs' and lotno=c.lotno;
           if p_ck>0 then
             select day into maxday
             from  cuttoship_lot
             where site='shs' and lotno=c.lotno;
             if maxday>c.day then
                delete cuttoship_lot where site=c.site and lotno=c.lotno;
             elsif maxday<c.day then
                delete cuttoship_lot where site='shs' and lotno=c.lotno;
             end if;
           end if;
           commit;
       end loop;
       
       --log
       insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
       values
        ('Success',
         'cuttoship_lots',
         'prod_subedit',
         trunc(sysdate),
         sysdate,
         get_OS('OS_USER'));
       commit;
  exception
    when others then
      insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
      values
        ('Failure',
         'cuttoship_lots',
         'prod_subedit',
         trunc(sysdate),
         sysdate,
         get_OS('OS_USER'));
      commit;
  end; 
  
  procedure prod_ins_rpt as
  begin 
    prod_ins_rpt_erp;
    prod_ins_rpt_szbgerp;
    prod_ins_rpt_shs;
    prod_ins_rpt_protex;
  end; 

  procedure prod_ins_rpt_erp as
  begin
       --lot info
       for c1 in (select t1.lotno,lot_status,clot,wrk_no,customer,styleno,rmk_qty 
                 from facd101 t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='erp') t2 on t1.lotno=t2.lotno
                 ) loop
           update cuttoship set lotstatus=c1.lot_status, clot=c1.clot, workshop=c1.wrk_no, 
           customer=c1.customer, styleno=c1.styleno, vpoqty=c1.rmk_qty
           where lotno=c1.lotno;
           
           if sql%notfound then
             insert into cuttoship
             (lotno, lotstatus, clot, workshop, customer, styleno, vpoqty)
             values
             (c1.lotno,c1.lot_status,c1.clot,c1.wrk_no,c1.customer,c1.styleno,c1.rmk_qty);
           end if;
           commit;
       end loop;
       --Mfg. Order Qty
       for c2 in (select t1.lotno,sum(nvl(qty, 0)) mfgqty
                 from facd302 t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='erp') t2 on t1.lotno=t2.lotno
                 group by t1.lotno
                 ) loop
           update cuttoship 
           set mfgqty=c2.mfgqty
           where lotno=c2.lotno;
           commit;
       end loop;
       --Panel Qty 
       for c3 in (select t1.lotno,sum(nvl(qty, 0)) panelqty
                 from facd321 t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='erp') t2 on t1.lotno=t2.lotno
                 where gen_date is not null and nvl(isactive, '0') = '0'
                 group by t1.lotno
                 ) loop
           update cuttoship 
           set panelqty=c3.panelqty
           where lotno=c3.lotno;
           commit;
       end loop;
       --Trf to Sewing & Panel Received  
       for c4 in (select t1.lotno,sum(nvl(qty, 0)) trftosewingqty 
                 from facd512 t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='erp') t2 on t1.lotno=t2.lotno
                 where op='888'
                 group by t1.lotno
                 ) loop
           update cuttoship 
           set trftosewingqty=c4.trftosewingqty,panelreceived=c4.trftosewingqty
           where lotno=c4.lotno;
           commit;
       end loop;
       --Output Qty 
       for c5 in (select t1.lotno,sum(nvl(qty, 0)) outputqty 
                 from facd105 t1
                 inner join facd102 t2 on t1.lotno=t2.lotno and t1.operno=t2.lineno 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='erp') t3 on t1.lotno=t3.lotno
                 where t2.ch_po='FOF'
                 group by t1.lotno
                 ) loop
           update cuttoship 
           set outputqty=c5.outputqty
           where lotno=c5.lotno;
           commit;
       end loop;
       --Leftover Garments Stored in WH 
       --1.A Quality,2.B Quality 
       for c6 in (select A.lotno,(A.defect222-B.defect223) defectqty,A.deadqty
                  from
                   (select t1.lotno,sum(nvl(repqty,0)-nvl(rplqty,0)) defect222,sum(nvl(damqty, 0)) deadqty 
                 from facd550 t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='erp') t2 on t1.lotno=t2.lotno
                 where operno='222'
                 group by t1.lotno) A,
                  (select t1.lotno,sum(nvl(repqty,0)) defect223 
                 from facd550 t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='erp') t2 on t1.lotno=t2.lotno
                 where operno='223'
                 group by t1.lotno) B
                 where A.lotno=B.lotno(+)
                 ) loop
           update cuttoship 
           set defectqty=c6.defectqty,deadqty=c6.deadqty
           where lotno=c6.lotno;
           commit;
       end loop;
       --reason qty
       for c7 in (select distinct S.lotno,qwlqty,wlpzqty,zgpzqty,khyyqty,zlwtqty,ysqty
                  from
                 (SELECT t1.lotno from facd343 t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='erp') t3 on t1.lotno=t3.lotno)S,
                 (select t1.lotno,nvl(t1.qty,0) qwlqty 
                 from facd343 t1 
                 inner join facd343_rea t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='erp') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='A')A,
                 (select t1.lotno,nvl(t1.qty,0) wlpzqty 
                 from facd343 t1 
                 inner join facd343_rea t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='erp') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='B')B,
                 (select t1.lotno,nvl(t1.qty,0) zgpzqty 
                 from facd343 t1 
                 inner join facd343_rea t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='erp') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='C')C,
                 (select t1.lotno,nvl(t1.qty,0) khyyqty 
                 from facd343 t1 
                 inner join facd343_rea t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='erp') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='D')D,
                 (select t1.lotno,nvl(t1.qty,0) zlwtqty 
                 from facd343 t1 
                 inner join facd343_rea t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='erp') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='E')E,
                 (select t1.lotno,nvl(t1.qty,0) ysqty 
                 from facd343 t1 
                 inner join facd343_rea t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='erp') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='F')F
                 where S.lotno=A.lotno(+)
                 and S.lotno=B.lotno(+)
                 and S.lotno=C.lotno(+)
                 and S.lotno=D.lotno(+)
                 and S.lotno=E.lotno(+)
                 and S.lotno=F.lotno(+)
                 ) loop
           update cuttoship 
           set qwlqty=c7.qwlqty,wlpzqty=c7.wlpzqty,zgpzqty=c7.zgpzqty,khyyqty=c7.khyyqty,
           zlwtqty=c7.zlwtqty,ysqty=c7.ysqty,
           subqty=c7.qwlqty+c7.wlpzqty+c7.zgpzqty+c7.khyyqty+c7.zlwtqty+c7.ysqty
           where lotno=c7.lotno;
           commit;
       end loop;
       --log
       insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
       values
        ('Success',
         'cuttoship_lots',
         'prod_ins_rpt_erp',
         trunc(sysdate),
         sysdate,
         get_OS('OS_USER'));
       commit;
  exception
    when others then
      insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
      values
        ('Failure',
         'cuttoship_lots',
         'prod_ins_rpt_erp',
         trunc(sysdate),
         sysdate,
         get_OS('OS_USER'));
      commit;
  end;
  
  procedure prod_ins_rpt_szbgerp as
    p_ck number;
  begin
       p_ck:=0;
       
       --lot info
       for c1 in (select t1.lotno,lot_status,clot,wrk_no,customer,styleno,rmk_qty 
                 from facd101@szbgerp t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='szbgerp') t2 on t1.lotno=t2.lotno
                 ) loop
           update cuttoship set lotstatus=c1.lot_status, clot=c1.clot, workshop=c1.wrk_no, 
           customer=c1.customer, styleno=c1.styleno, vpoqty=c1.rmk_qty
           where lotno=c1.lotno;
           
           if sql%notfound then
             insert into cuttoship
             (lotno, lotstatus, clot, workshop, customer, styleno, vpoqty)
             values
             (c1.lotno,c1.lot_status,c1.clot,c1.wrk_no,c1.customer,c1.styleno,c1.rmk_qty);
           end if;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('szbgerp');
          p_ck:=0;
       end if;
       
       --Mfg. Order Qty
       for c2 in (select t1.lotno,sum(nvl(qty, 0)) mfgqty
                 from facd302@szbgerp t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='szbgerp') t2 on t1.lotno=t2.lotno
                 group by t1.lotno
                 ) loop
           update cuttoship 
           set mfgqty=c2.mfgqty
           where lotno=c2.lotno;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('szbgerp');
          p_ck:=0;
       end if;
       
       --Panel Qty 
       for c3 in (select t1.lotno,sum(nvl(qty, 0)) panelqty
                 from facd321@szbgerp t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='szbgerp') t2 on t1.lotno=t2.lotno
                 where gen_date is not null and nvl(isactive, '0') = '0'
                 group by t1.lotno
                 ) loop
           update cuttoship 
           set panelqty=c3.panelqty
           where lotno=c3.lotno;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('szbgerp');
          p_ck:=0;
       end if;
       
       --Trf to Sewing & Panel Received  
       for c4 in (select t1.lotno,sum(nvl(qty, 0)) trftosewingqty 
                 from facd512@szbgerp t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='szbgerp') t2 on t1.lotno=t2.lotno
                 where op='888'
                 group by t1.lotno
                 ) loop
           update cuttoship 
           set trftosewingqty=c4.trftosewingqty,panelreceived=c4.trftosewingqty
           where lotno=c4.lotno;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('szbgerp');
          p_ck:=0;
       end if;
       
       --Output Qty 
       for c5 in (select t1.lotno,sum(nvl(qty, 0)) outputqty 
                 from facd105@szbgerp t1
                 inner join facd102@szbgerp t2 on t1.lotno=t2.lotno and t1.operno=t2.lineno 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='szbgerp') t3 on t1.lotno=t3.lotno
                 where t2.ch_po='FOF'
                 group by t1.lotno
                 ) loop
           update cuttoship 
           set outputqty=c5.outputqty
           where lotno=c5.lotno;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('szbgerp');
          p_ck:=0;
       end if;
       
       --Leftover Garments 
       --1.A Quality,2.B Quality 
       for c6 in (select t1.lotno, sum(nvl(defect, 0)) defectqty, sum(nvl(dead, 0)) deadqty
                 from facd340@szbgerp t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='szbgerp') t2 on t1.lotno=t2.lotno
                 group by t1.lotno
                 ) loop
           update cuttoship 
           set defectqty=c6.defectqty,deadqty=c6.deadqty
           where lotno=c6.lotno;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('szbgerp');
          p_ck:=0;
       end if;
       
       --reason qty
       for c7 in (select distinct S.lotno,qwlqty,wlpzqty,zgpzqty,khyyqty,zlwtqty,ysqty
                  from
                 (SELECT t1.lotno from facd343@szbgerp t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='szbgerp') t3 on t1.lotno=t3.lotno)S,
                 (select t1.lotno,nvl(t1.qty,0) qwlqty 
                 from facd343@szbgerp t1 
                 inner join facd343_rea@szbgerp t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='szbgerp') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='A')A,
                 (select t1.lotno,nvl(t1.qty,0) wlpzqty 
                 from facd343@szbgerp t1 
                 inner join facd343_rea@szbgerp t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='szbgerp') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='B')B,
                 (select t1.lotno,nvl(t1.qty,0) zgpzqty 
                 from facd343@szbgerp t1 
                 inner join facd343_rea@szbgerp t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='szbgerp') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='C')C,
                 (select t1.lotno,nvl(t1.qty,0) khyyqty 
                 from facd343@szbgerp t1 
                 inner join facd343_rea@szbgerp t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='szbgerp') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='D')D,
                 (select t1.lotno,nvl(t1.qty,0) zlwtqty 
                 from facd343@szbgerp t1 
                 inner join facd343_rea@szbgerp t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='szbgerp') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='E')E,
                 (select t1.lotno,nvl(t1.qty,0) ysqty 
                 from facd343@szbgerp t1 
                 inner join facd343_rea@szbgerp t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='szbgerp') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='F')F
                 where S.lotno=A.lotno(+)
                 and S.lotno=B.lotno(+)
                 and S.lotno=C.lotno(+)
                 and S.lotno=D.lotno(+)
                 and S.lotno=E.lotno(+)
                 and S.lotno=F.lotno(+)
                 ) loop
           update cuttoship 
           set qwlqty=c7.qwlqty,wlpzqty=c7.wlpzqty,zgpzqty=c7.zgpzqty,khyyqty=c7.khyyqty,
           zlwtqty=c7.zlwtqty,ysqty=c7.ysqty,
           subqty=c7.qwlqty+c7.wlpzqty+c7.zgpzqty+c7.khyyqty+c7.zlwtqty+c7.ysqty
           where lotno=c7.lotno;
           commit;
           p_ck:=p_ck+1;
       end loop;
       /**/
       --must have data before close database link!
       if p_ck>0 then
          dbms_session.close_database_link('szbgerp');
       end if;
       --log
       insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
       values
        ('Success',
         'cuttoship_lots',
         'prod_ins_rpt_szbgerp',
         trunc(sysdate),
         sysdate,
         get_OS('OS_USER'));
       commit;
  exception
    when others then
      insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
      values
        ('Failure',
         'cuttoship_lots',
         'prod_ins_rpt_szbgerp',
         trunc(sysdate),
         sysdate,
         get_OS('OS_USER'));
      commit;
  end;
  
  procedure prod_ins_rpt_shs as
    p_ck number;
  begin
       p_ck:=0;
       --lot info
       for c1 in (select t1.lotno,lot_status,clot,wrk_no,customer,styleno,rmk_qty 
                 from facd101@shs t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='shs') t2 on t1.lotno=t2.lotno
                 ) loop
           update cuttoship set lotstatus=c1.lot_status, clot=c1.clot, workshop=c1.wrk_no, 
           customer=c1.customer, styleno=c1.styleno, vpoqty=c1.rmk_qty
           where lotno=c1.lotno;
           
           if sql%notfound then
             insert into cuttoship
             (lotno, lotstatus, clot, workshop, customer, styleno, vpoqty)
             values
             (c1.lotno,c1.lot_status,c1.clot,c1.wrk_no,c1.customer,c1.styleno,c1.rmk_qty);
           end if;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('shs');
          p_ck:=0;
       end if;
       --Mfg. Order Qty
       for c2 in (select t1.lotno,sum(nvl(qty, 0)) mfgqty
                 from facd302@shs t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='shs') t2 on t1.lotno=t2.lotno
                 group by t1.lotno
                 ) loop
           update cuttoship 
           set mfgqty=c2.mfgqty
           where lotno=c2.lotno;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('shs');
          p_ck:=0;
       end if;
       --Panel Qty 
       for c3 in (select t1.lotno,sum(nvl(qty, 0)) panelqty
                 from facd321@shs t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='shs') t2 on t1.lotno=t2.lotno
                 where gen_date is not null and nvl(isactive, '0') = '0'
                 group by t1.lotno
                 ) loop
           update cuttoship 
           set panelqty=c3.panelqty
           where lotno=c3.lotno;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('shs');
          p_ck:=0;
       end if;
       --Trf to Sewing & Panel Received  
       for c4 in (select t1.lotno,sum(nvl(qty, 0)) trftosewingqty 
                 from facd512@shs t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='shs') t2 on t1.lotno=t2.lotno
                 where op='888'
                 group by t1.lotno
                 ) loop
           update cuttoship 
           set trftosewingqty=c4.trftosewingqty,panelreceived=c4.trftosewingqty
           where lotno=c4.lotno;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('shs');
          p_ck:=0;
       end if;
       --Output Qty 
       for c5 in (select t1.lotno,sum(nvl(qty, 0)) outputqty 
                 from facd105@shs t1
                 inner join facd102@shs t2 on t1.lotno=t2.lotno and t1.operno=t2.lineno 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='shs') t3 on t1.lotno=t3.lotno
                 where t2.ch_po='FOF'
                 group by t1.lotno
                 ) loop
           update cuttoship 
           set outputqty=c5.outputqty
           where lotno=c5.lotno;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('shs');
          p_ck:=0;
       end if;
       --Leftover Garments 
       --1.A Quality,2.B Quality 
       for c6 in (select t1.lotno, sum(nvl(defect, 0)) defectqty, sum(nvl(dead, 0)) deadqty
                 from facd340@shs t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='shs') t2 on t1.lotno=t2.lotno
                 group by t1.lotno
                 ) loop
           update cuttoship 
           set defectqty=c6.defectqty,deadqty=c6.deadqty
           where lotno=c6.lotno;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('shs');
          p_ck:=0;
       end if;
       --reason qty
       for c7 in (select distinct S.lotno,qwlqty,wlpzqty,zgpzqty,khyyqty,zlwtqty,ysqty
                  from
                 (SELECT t1.lotno from facd343@shs t1
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='shs') t3 on t1.lotno=t3.lotno)S,
                 (select t1.lotno,nvl(t1.qty,0) qwlqty 
                 from facd343@shs t1 
                 inner join facd343_rea@shs t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='shs') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='A')A,
                 (select t1.lotno,nvl(t1.qty,0) wlpzqty 
                 from facd343@shs t1 
                 inner join facd343_rea@shs t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='shs') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='B')B,
                 (select t1.lotno,nvl(t1.qty,0) zgpzqty 
                 from facd343@shs t1 
                 inner join facd343_rea@shs t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='shs') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='C')C,
                 (select t1.lotno,nvl(t1.qty,0) khyyqty 
                 from facd343@shs t1 
                 inner join facd343_rea@shs t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='shs') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='D')D,
                 (select t1.lotno,nvl(t1.qty,0) zlwtqty 
                 from facd343@shs t1 
                 inner join facd343_rea@shs t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='shs') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='E')E,
                 (select t1.lotno,nvl(t1.qty,0) ysqty 
                 from facd343@shs t1 
                 inner join facd343_rea@shs t2 on t1.reasoncode=t2.reasoncode 
                 inner join (select distinct site,lotno
                 from cuttoship_lot
                 where site='shs') t3 on t1.lotno=t3.lotno
                 where t1.isconfirm='Y' and t1.reasoncode='F')F
                 where S.lotno=A.lotno(+)
                 and S.lotno=B.lotno(+)
                 and S.lotno=C.lotno(+)
                 and S.lotno=D.lotno(+)
                 and S.lotno=E.lotno(+)
                 and S.lotno=F.lotno(+)
                 ) loop
           update cuttoship 
           set qwlqty=c7.qwlqty,wlpzqty=c7.wlpzqty,zgpzqty=c7.zgpzqty,khyyqty=c7.khyyqty,
           zlwtqty=c7.zlwtqty,ysqty=c7.ysqty,
           subqty=c7.qwlqty+c7.wlpzqty+c7.zgpzqty+c7.khyyqty+c7.zlwtqty+c7.ysqty
           where lotno=c7.lotno;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('shs');
       end if;
       --log
       insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
       values
        ('Success',
         'cuttoship_lots',
         'prod_ins_rpt_shs',
         trunc(sysdate),
         sysdate,
         get_OS('OS_USER'));
       commit;
  exception
    when others then
      insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
      values
        ('Failure',
         'cuttoship_lots',
         'prod_ins_rpt_shs',
         trunc(sysdate),
         sysdate,
         get_OS('OS_USER'));
      commit;
  end;
  
  procedure prod_ins_rpt_protex as
    p_ck number;
  begin
       p_ck:=0;
       --shipmentdate
       for c1 in (select t2.cstord,max(t1.plcomn),to_date(cast(DT#5Y as nvarchar2(4))||'-'||cast(DT#5M as nvarchar2(2))||'-'||cast(DT#5D as nvarchar2(2))) shipmentdate
                 from proda201.ORFPLCA@db2gzbg t1
                 left join proda201.ORFPLFB@db2gzbg t2 on t1.plcomn=t2.plcomn
                 inner join (select distinct lotno from cuttoship_lot) t3 on t2.cstord=t3.lotno
                 group by t2.cstord,DT#5Y,DT#5M,DT#5D  
                 ) loop
           update cuttoship 
           set shipmentdate=c1.shipmentdate
           where lotno=c1.cstord;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('db2gzbg');
          p_ck:=0;
       end if;
       --sample qty
       /*
       for c2 in (select t1.cstord,nvl(sum(qty),0) sampleqty
                 from proda201.orforbc@db2gzbg t1
                 inner join (select distinct lotno from cuttoship_lot) t2 on t1.cstord=t2.lotno
                 group by t1.cstord 
                 ) loop
           update cuttoship 
           set sampleqty=c2.sampleqty
           where lotno=c2.cstord;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('db2gzbg');
          p_ck:=0;
       end if;
       */
       --shipped qty
       for c3 in (select t1.cstord,nvl(sum(qtypck),0) shippedqty
                 from proda201.orfplfb@db2gzbg t1
                 inner join (select distinct lotno from cuttoship_lot) t2 on t1.cstord=t2.lotno
                 group by t1.cstord 
                 ) loop
           update cuttoship 
           set shippedqty=c3.shippedqty
           where lotno=c3.cstord;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('db2gzbg');
          p_ck:=0;
       end if;
       --Leftover Garments Stored in WH 
       --1.A Quality,2.B Quality 
       for c4 in (select S.cstord,astq,bstq
                  from
                  (select t1.cstord
                 from proda201.fgfstka@db2gzbg t1
                 inner join (select distinct lotno from cuttoship_lot) t2 on t1.cstord=t2.lotno
                  ) S,
                  (select t1.cstord,nvl(sum(stq),0) astq
                 from proda201.fgfstka@db2gzbg t1
                 inner join (select distinct lotno from cuttoship_lot) t2 on t1.cstord=t2.lotno
                 group by t1.cstord) A, 
                  (select t1.cstord,nvl(sum(stq),0) bstq
                 from proda201.fgfstka@db2gzbg t1
                 inner join (select distinct lotno from cuttoship_lot) t2 on t1.cstord=t2.lotno
                 group by t1.cstord) B
                  where S.cstord=A.cstord(+)
                  and S.cstord=B.cstord(+)
                 ) loop
           update cuttoship 
           set astq=c4.astq,bstq=c4.bstq
           where lotno=c4.cstord;
           commit;
           p_ck:=p_ck+1;
       end loop;
       if p_ck>0 then
          dbms_session.close_database_link('db2gzbg');
       end if;
       --radio,balabce,variance
       update cuttoship 
       set radio=decode(vpoqty,0,0,round(1-shippedqty/vpoqty,4)),
       balance=panelreceived-sampleqty-shippedqty-astq-bstq,
       variance=panelqty-sampleqty-shippedqty-astq-bstq;
       commit;
       --log
       insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
       values
        ('Success',
         'cuttoship_lots',
         'prod_ins_rpt_protex',
         trunc(sysdate),
         sysdate,
         get_OS('OS_USER'));
       commit;
  exception
    when others then
      insert into facd610
        (op_type, info_type, prod_name, w_day, op_date, os_user)
      values
        ('Failure',
         'cuttoship_lots',
         'prod_ins_rpt_protex',
         trunc(sysdate),
         sysdate,
         get_OS('OS_USER'));
      commit;
  end;
  
  procedure prod_update_0 as
  begin
    update cuttoship set vpoqty=0 where vpoqty is null;
    update cuttoship set mfgqty=0 where mfgqty is null;
    update cuttoship set panelqty=0 where panelqty is null;
    update cuttoship set trftosewingqty=0 where trftosewingqty is null;
    update cuttoship set panelreceived=0 where panelreceived is null;
    update cuttoship set sampleqty=0 where sampleqty is null;
    update cuttoship set outputqty=0 where outputqty is null;
    update cuttoship set defectqty=0 where defectqty is null;
    update cuttoship set deadqty=0 where deadqty is null;
    update cuttoship set shippedqty=0 where shippedqty is null;
    update cuttoship set radio=0 where radio is null;
    update cuttoship set balance=0 where balance is null;
    update cuttoship set astq=0 where astq is null;
    update cuttoship set bstq=0 where bstq is null;
    update cuttoship set variance=0 where variance is null;
    update cuttoship set qwlqty=0 where qwlqty is null;
    update cuttoship set wlpzqty=0 where wlpzqty is null;
    update cuttoship set zgpzqty=0 where zgpzqty is null;
    update cuttoship set khyyqty=0 where khyyqty is null;
    update cuttoship set zlwtqty=0 where zlwtqty is null;
    update cuttoship set ysqty=0 where ysqty is null;
    update cuttoship set subqty=0 where subqty is null;
    commit;
  end; 
end cuttoship_lots;