//create or replace PROCEDURE "CS_PACKCARTON"
//-- =============================================
//-- Author:    <XIAOST>
//-- Create date: <2017-09-23>
//-- Description:  <装卡通箱
//--                1、 支持自动生成箱号,
//--                2、 支持转入已存在箱号,
//--                3、 标准装箱需要产品和箱号的包装规则一致 包含:按合同 SALE,按订单 MAKE ,按产品 PROD,混合 MIX
//--                4、 特殊装箱,无需考虑装箱规则等限制
//--               >
//-- =============================================
//(  /*
//    参数:输入 -- SN号,箱号,是否自动生成,装箱类型,岗位资源,操作人编号
//         输出  --箱号,异常信息
//   */
//    v_i_sncode in varchar2, --SN
//    v_i_outboxcode in varchar2, --卡通箱号
//    v_i_autonew in varchar2 default 'N', --默认否
//    v_i_type    in varchar2 ,-- 装箱类型,标准或者特殊,默认标准
//    v_i_sourcecode  in varchar2,  --岗位资源编号
//    v_i_usercode  in varchar2,  --人员编号
//    v_i_standardqty in number,  --标准容量
//    v_i_inorout in varchar2,  ---装箱或取消装箱入或者出 IN, OUT
//    v_o_outboxcode out varchar2,   --输出卡通箱号
//    v_o_errmsg out varchar2      ---输入异常信息
//) as   
//    v_pr_packrule product.pr_packrule%type;  --产品包装规则
//v_pr_outboxinnerqty  product.pr_outboxinnerqty%type;--装箱容量
//v_pa_packtype        varchar2(20);  --卡通箱装箱类型
//v_pa_standardqty     number;   ---标准容量
//v_pa_currentqty      number; 
//    v_pa_prodcode varchar2(50);
//v_pa_makecode varchar2(50);
//v_pa_salecode varchar2(50);
//v_pa_downstatus number; --是否下地
//v_pa_id              number;
//    v_pa_status number;
//v_pa_checkno varchar2(30);
//v_pa_currentstep varchar2(60);
//v_pa_mothercode varchar2(50);
//v_pa_outno varchar2(50);
//v_ob_status varchar2(20);
//v_outboxcode varchar2(30);

//v_ms_prodcode varchar2(50);
//v_ms_makecode make.ma_code%type;
//v_ms_id makeserial.ms_id%type;
//v_ms_outboxcode varchar2(50);
//v_ms_craftcode varchar2(50);
//v_ms_salecode varchar2(50);
//v_ms_downstatus number; --是否下地

//v_currentstep       varchar2(50);
//v_linecode varchar2(50);
//v_scstatuscode varchar2(50);
//v_stepname varchar2(100);
//v_wccode varchar2(30);

//v_count int;
//    v_new int:=0; ---0表示否,-1 需要新增箱号

//BEGIN
//          --初始化输出参数值
//          v_o_errmsg:=null;
//          v_o_outboxcode:=null;
//          --判定岗位资源
//          select sc_statuscode,sc_stepcode,sc_linecode,sc_stepname,sc_wccode into v_scstatuscode,v_currentstep,v_linecode,v_stepname ,v_wccode from source where sc_code=v_i_sourcecode;
//          IF v_scstatuscode<>'AUDITED' or v_scstatuscode is null THEN
//              v_o_errmsg:='岗位资源不存在或者未审核';
//RETURN;
//          END IF;
          
//          --获取序列号
//          select max(ms_id) into v_ms_id from makeserial where ms_sncode = v_i_sncode;
//          IF(v_ms_id>0)THEN
//              select ms_outboxcode,ms_prodcode,ms_salecode,ms_makecode,pr_packrule,ms_craftcode,pr_outboxinnerqty,nvl(ms_downstatus,0) into v_ms_outboxcode, v_ms_prodcode, v_ms_salecode, v_ms_makecode, v_pr_packrule, v_ms_craftcode, v_pr_outboxinnerqty, v_ms_downstatus from makeserial left join product on pr_code=ms_prodcode where ms_id=v_ms_id;
//          ELSE
//              v_o_errmsg:='序列号:'||v_i_sncode||'不存在';
//              RETURN;
//          END IF;
          
//          --判断是否下地
//          IF(v_ms_downstatus<>0)THEN
//              v_o_errmsg:='序列号:'||v_i_sncode||'不允许采集,下地状态不允许采集';
//              RETURN;
//          END IF;
          
//          --装箱
//          IF('IN'=v_i_inorout)THEN
//             --必须是未装箱,如果是已装箱提示
//             IF(NVL(v_ms_outboxcode,' ')<>' ')THEN
//                 IF(v_ms_outboxcode= v_i_outboxcode)THEN
//                      v_o_errmsg:='序列号:'||v_i_sncode||'已在箱内';
//                     RETURN;
//                 ELSE
//                     v_o_errmsg:='序列号:'||v_i_sncode||'不允许采集,已装入箱号:'||v_ms_outboxcode;
//                     RETURN;
//                 END IF;
//END IF;
//             --判断有传入需装箱号
//             IF(nvl(v_i_outboxcode,' ')<>' ')THEN
//                v_outboxcode :=v_i_outboxcode;
//              BEGIN
//                 select pa_id,pa_prodcode,pa_salecode,pa_maKEcode,pa_packtype,pa_standardqty,nvl(pa_currentqty,0),pa_status,pa_downstatus into v_pa_id,v_pa_prodcode,v_pa_salecode,v_pa_makecode,v_pa_packtype,v_pa_standardqty,v_pa_currentqty,v_pa_status,v_pa_downstatus from package where pa_outboxcode=v_i_outboxcode and pa_type=1;
//                 IF(NVL(v_pa_downstatus,0)<>0)THEN
//                     v_o_errmsg:='箱号:'||v_i_outboxcode||'处于下地状态,不允许操作!';
//                     RETURN;
//                 END IF;
//EXCEPTION
//WHEN OTHERS THEN   --需要新增箱号
//        v_new := -1;
//              END;
//            ELSE   --没有传入箱号,并且也没有勾选自动生成箱号
//               IF(NVL(v_i_autonew,'N')='N')THEN
//                   v_o_errmsg:='无装箱箱号,请输入装箱箱号或者勾选自动生成箱号!';
//                   RETURN;
//               ELSE --生成新箱号
//                  v_new := -1;
//                  SP_GETPACKORPALLETCODE('PACKAGE', v_ms_makecode, v_ms_prodcode, v_linecode, v_outboxcode);
//END IF;
//END IF;


//            IF(v_i_type= '标准')THEN--标准装箱
//                IF(v_new= -1)THEN
//                     ---页面传了标准容量
//                     /*IF(v_i_standardqty<=0)THEN
//                         IF(v_pr_outboxinnerqty>0)THEN
//                            v_pa_standardqty:=v_pr_outboxinnerqty;
//                         ELSE
//                             v_outboxcode:=null;
//                             v_o_errmsg:='请维护箱标准容量或者维护产品资料中的包装容量!';
//                             RETURN;
//                         END IF;
//                     ELSE
//                        v_pa_standardqty:=v_i_standardqty;
//                     END IF;*/
//                     IF(v_pr_outboxinnerqty>0)THEN
//                           v_pa_standardqty:=v_pr_outboxinnerqty;
//                     ELSE
//                          v_outboxcode:=null;
//                          v_o_errmsg:='请维护箱标准容量或者维护产品资料中的包装容量!';
//                          RETURN;
//                     END IF;
//v_pa_id := package_seq.nextval;    
//                    insert into package(PA_ID, PA_OUTBOXCODE, PA_PRODCODE, PA_LEVEL, PA_PACKAGEQTY, PA_TOTALQTY,
//                    PA_MAKECODE, PA_STATUS, PA_INDATE, PA_SALECODE, PA_TYPE, PA_CURRENTQTY, PA_PACKTYPE, PA_STANDARDQTY, PA_SCCODE)
//                    values(v_pa_id, v_outboxcode,case when nvl(v_pr_packrule,' ')<>'MIX' then v_ms_prodcode ELSE''END,3,0,0,case when v_pr_packrule = 'MAKE' THEN v_ms_makecode ELSE '' END,
//                    0,SYSDATE,case when v_pr_packrule = 'SALE' then v_ms_salecode else ''end,1,0,v_pr_packrule,v_pa_standardqty,v_i_sourcecode);
//               ELSE  --无需新增箱号
//                   --判断箱是否已装满
//                   IF(v_pa_currentqty= v_pa_standardqty)THEN
//                        v_o_errmsg:='箱号:'||v_outboxcode||'已经满箱,请输入新箱号或勾选自动生成箱号!';
//                        RETURN;
//                   ELSIF(nvl(v_pa_status,0)<>0)THEN
//                        v_o_errmsg:='箱号:'||v_outboxcode||'已经封箱,请输入新箱号或勾选自动生成箱号!';
//                        RETURN;
//                   END IF;
                   
//                   --判断序列号包装规则与箱内规则一致
//                   --IF(v_pa_currentqty= 0 or (v_pa_currentqty>0 and v_pr_packrule = v_pa_packtype))THEN
//                        IF(v_pa_currentqty>0 and v_pr_packrule = v_pa_packtype)THEN
//                           IF(v_pr_packrule= 'SALE' AND v_ms_salecode<>v_pa_salecode)THEN
//                               v_o_errmsg:='包装规则为:合同,序列号和卡通箱合同号不一致,不能装入该箱';
//                         RETURN;
//                      ELSIF(v_pr_packrule= 'SALE' AND v_ms_prodcode<>v_pa_prodcode)THEN
//                         v_o_errmsg:='包装规则为:合同,序列号产品编号'||v_ms_prodcode||'和箱的产品编号'||v_pa_prodcode||'不一致,不能装入该箱';
//                         RETURN;
//                      ELSIF(v_pr_packrule= 'MAKE' AND v_ms_makecode<>v_pa_makecode)THEN
//                          v_o_errmsg:='包装规则为:工单,序列号和卡通箱工单号不一致,不能装入该箱';
//                         RETURN;
//                      ELSIF(NVL(v_pr_packrule,'PROD')='PROD' AND v_ms_prodcode<>v_pa_prodcode)THEN
//                         v_o_errmsg:='序列号:'||v_i_sncode||'产品编号和卡通箱产品编号不一致,不能装入该箱';
//                         RETURN;
//                      END IF;
//                   ELSIF(v_pa_currentqty>0 and NVL(v_pr_packrule,' ')<>NVL(v_pa_packtype,' '))THEN
//                     v_o_errmsg:='序列号:'||v_i_sncode||'对应产品的包装规则与箱号的包装规则不一致,不能装入同一箱';
//                      RETURN;
//                   END IF;
//END IF;
//ELSE  --特殊装箱
//   v_pr_packrule:='SPEC';
//               IF(v_new= -1)THEN
//                     ---页面必须传标准容量
//                     IF(v_i_standardqty<=0)THEN
//                         v_outboxcode:=null;
//                         v_o_errmsg:='请维护箱标准容量!';
//                         RETURN;                        
//                     END IF;
//v_pa_id := package_seq.nextval;    
//                    insert into package(PA_ID, PA_OUTBOXCODE, PA_PRODCODE, PA_LEVEL, PA_PACKAGEQTY, PA_TOTALQTY,
//                    PA_MAKECODE, PA_STATUS, PA_INDATE, PA_SALECODE, PA_TYPE, PA_CURRENTQTY, PA_PACKTYPE, PA_STANDARDQTY, PA_SCCODE)
//                    values(v_pa_id, v_outboxcode, v_ms_prodcode,3,0,0,'',0, SYSDATE,'',1,0, v_pr_packrule, v_i_standardqty, v_i_sourcecode);
//ELSE  --无需新增箱号
//                   --判断箱是否已装满
//                   IF(v_pa_currentqty= v_pa_standardqty)THEN
//                        v_o_errmsg:='箱号:'||v_outboxcode||'已经满箱,请输入新箱号或勾选自动生成箱号!';
//                        RETURN;
//                -- ELSIF(nvl(v_pa_status,0)<>0)THEN
//                --      v_o_errmsg:='箱号:'||v_outboxcode||'已经封箱,请输入新箱号或勾选自动生成箱号!';
//                --      RETURN;
//                   END IF;
//END IF;
//END IF;  
//            --装明细
//            insert into packagedetail(PD_ID, PD_PAID, PD_OUTBOXCODE, PD_INNERQTY, PD_BARCODE, PD_MAKECODE, PD_PRODCODE, PD_BUILDDATE, PD_YMD)
//            VALUES(packagedetail_seq.NEXTVAL, v_pa_id, v_outboxcode,1, v_i_sncode, v_ms_makecode, v_ms_prodcode, sysdate, to_char(sysdate,'yyyymmdd'));
//            --更新序列号所在箱号
//            update makeserial set ms_outboxcode=v_outboxcode,ms_currentstepcode=v_currentstep where ms_id=v_ms_id;
//               --更新装箱规则 pa_currentqty = 0
//            update package set pa_packtype = v_pr_packrule, PA_SCCODE = v_i_sourcecode, pa_salecode =case when v_pr_packrule = 'SALE' then v_ms_salecode else ''end,pa_makecode=case when v_pr_packrule = 'MAKE' THEN v_ms_makecode ELSE '' END,pa_prodcode=case when v_pr_packrule<>'MIX' then v_ms_prodcode ELSE''END where pa_outboxcode= v_outboxcode and pa_currentqty = 0;
//update package set pa_currentqty = nvl(pa_currentqty, 0) + 1, pa_totalqty = nvl(pa_totalqty, 0) + 1, pa_packageqty = nvl(pa_packageqty, 0) + 1 where pa_outboxcode = v_outboxcode;
//          --取消装箱
//          ELSIF('OUT'=v_i_inorout)THEN
//             IF(NVL(v_ms_outboxcode,' ')=' ')THEN
//                  v_o_errmsg:='序列号没有装箱,无需取消装箱';
//                  RETURN;
//             END IF;
//             --取消装箱必须有箱号v_i_outboxcode
//             IF(NVL(v_i_outboxcode,' ')=' ' OR v_i_outboxcode = NULL)then
//                   v_o_errmsg:='请选择需要取消装箱的箱号';
//                 RETURN;
//             END IF;


//             IF(v_i_outboxcode<> v_ms_outboxcode)THEN
//                  v_o_errmsg:='序列号不在箱号:'||v_i_outboxcode||',无法取消装箱';
//                 RETURN;
//             END IF;
//             --箱号未封装,允许取消
//             select count(1) into v_count from packagedetail where pd_outboxcode = v_i_outboxcode and pd_barcode = v_i_sncode;
//             IF(v_count= 0)THEN
//                  v_o_errmsg:='序列号不在箱号:'||v_i_outboxcode||',无法取消装箱';
//                 RETURN;
//             END IF;
//select pa_id, pa_prodcode, pa_status, pa_checkno, pa_currentqty, pa_downstatus into v_pa_id, v_pa_prodcode, v_pa_status, v_pa_checkno, v_pa_currentqty, v_pa_downstatus from package where pa_outboxcode = v_i_outboxcode and pa_type = 1;
//             IF(NVL(v_pa_downstatus,0)<>0)THEN
//                   v_o_errmsg:='箱号:'||v_i_outboxcode||'处于下地状态,不允许操作!';
//                   RETURN;
//              END IF;

//delete from packagedetail where pd_outboxcode=v_i_outboxcode and pd_barcode=v_i_sncode; 
//              --更新序列号所在箱号
//              update makeserial set ms_outboxcode='',ms_currentstepcode=null where ms_id = v_ms_id;
//              --更新数量,抽检批次号,更新未封箱
//              update package set pa_currentqty=pa_currentqty-1,pa_totalqty=pa_totalqty-1,pa_packageqty=pa_packageqty-1,pa_status=0 where pa_outboxcode = v_i_outboxcode;
//update package set pa_packtype = null, pa_sccode = null, pa_checkno = null, pa_salecode = null, pa_makecode = null, pa_prodcode = null where pa_outboxcode = v_i_outboxcode and pa_currentqty = 0;
//              IF(nvl(v_pa_checkno,' ')<>' ')THEN
//                  --未断批直接移除,更新数量
//                 select MAX(OB_STATUS) INTO v_ob_status from oqcbatch where ob_checkno = v_pa_checkno;
//                 IF(NVL(v_ob_status,' ')=' ' or v_ob_status = 'ENTERING')THEN
//                   --更新序列号抽检批次号
//                    update makeserial set ms_checkno=null where ms_id = v_ms_id;
//                    --删除oqcbatchdetail
//                    delete from oqcbatchdetail where obd_checkno = v_pa_checkno and obd_sncode = v_i_sncode;
//                    --更新OQCBATCH 数量
//                    update OQCBATCH set ob_nowcheckqty = ob_nowcheckqty - 1 where ob_checkno = v_pa_checkno;
//END IF;
//END IF;
//              --如果序列号已有抽检批次号,
//            /* IF(nvl(v_pa_checkno,' ')<>' ')THEN
//                 --未断批直接移除,更新数量
//                 select MAX(OB_STATUS) INTO v_ob_status from oqcbatch where ob_checkno=v_pa_checkno;
//                 IF(NVL(v_ob_status,' ')=' ' or v_ob_status='ENTERING')THEN
//                     --取消装箱
//                     delete from packagedetail where pd_outboxcode=v_i_outboxcode and pd_barcode=v_i_sncode; 
//                     --更新序列号所在箱号
//                     update makeserial set ms_outboxcode='',ms_checkno='',ms_currentstepcode=null where ms_id=v_ms_id;
//                     --更新数量,抽检批次号,更新未封箱
//                     update package set pa_currentqty=pa_currentqty-1,pa_status=0 where pa_outboxcode=v_i_outboxcode;
//                     update package set pa_packtype='',pa_checkno='',pa_sccode='' where pa_outboxcode=v_i_outboxcode and pa_currentqty=0;
//                     --删除oqcbatchdetail
//                     delete from oqcbatchdetail where obd_checkno=v_pa_checkno and obd_sncode=v_i_sncode;
//                     --更新OQCBATCH 数量
//                     update OQCBATCH set ob_nowcheckqty=ob_nowcheckqty-1 where ob_checkno=v_pa_checkno;
//                 ELSE
//                     v_o_errmsg:='序列号对应的抽检批次号已经断批.不允许取消装箱';
//                     RETURN;
//                 END IF;  
//             ELSE  --无送检批次号
//                  delete from packagedetail where pd_outboxcode=v_i_outboxcode and pd_barcode=v_i_sncode; 
//                  --更新序列号所在箱号
//                  update makeserial set ms_outboxcode='',ms_currentstepcode=null where ms_id=v_ms_id;
//                  --更新数量,抽检批次号,更新未封箱
//                  update package set pa_currentqty=pa_currentqty-1,pa_status=0 where pa_outboxcode=v_i_outboxcode;
//                  update package set pa_packtype='',pa_sccode='' where pa_outboxcode=v_i_outboxcode and pa_currentqty=0;
//             END IF; */
//             --修改完工状态,mcd_inqty
//             v_o_outboxcode:=v_i_outboxcode;
//          END IF;
//EXCEPTION--统一的异常捕捉
//  WHEN OTHERS THEN
//      BEGIN
//          v_o_errmsg:=SQLERRM;
//          ROLLBACK;
//          IF SQLCODE<> 0 THEN
//            BEGIN
//               v_o_errmsg := v_o_errmsg || dbms_utility.format_error_backtrace();
//END;
//          END IF;
//END;
//   END;