比对

TestProject/DrawHelper.cs

@@ -1,136 +1,302 @@
-using System;
-using System.Collections.Generic;
-using System.Drawing;
-using System.Drawing.Drawing2D;
-using System.Linq;
-using System.Text;
-using System.Threading.Tasks;
+//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);
 
-namespace TestProject
-{
-    class DrawHelper
-    {
-        #region RendererBackground 渲染背景图片，使背景图片不失真
+//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; --是否下地
 
-        /// <summary>
-        /// 渲染背景图片,使背景图片不失真
-        /// </summary>
-        /// <param name="g"></param>
-        /// <param name="rect"></param>
-        /// <param name="backgroundImage"></param>
-        /// <param name="method"></param>
-        public static void RendererBackground(Graphics g, Rectangle rect, Image backgroundImage, bool method)
-        {
-            if (!method)
-            {
-                g.DrawImage(backgroundImage, new Rectangle(rect.X + 0, rect.Y, 5, rect.Height), 0, 0, 5, backgroundImage.Height, GraphicsUnit.Pixel);
-                g.DrawImage(backgroundImage, new Rectangle(rect.X + 5, rect.Y, rect.Width - 10, rect.Height), 5, 0, backgroundImage.Width - 10, backgroundImage.Height, GraphicsUnit.Pixel);
-                g.DrawImage(backgroundImage, new Rectangle(rect.X + rect.Width - 5, rect.Y, 5, rect.Height), backgroundImage.Width - 5, 0, 5, backgroundImage.Height, GraphicsUnit.Pixel);
-            }
-            else
-            {
-                DrawHelper.RendererBackground(g, rect, 5, backgroundImage);
-            }
-        }
+//v_currentstep       varchar2(50);
+//v_linecode varchar2(50);
+//v_scstatuscode varchar2(50);
+//v_stepname varchar2(100);
+//v_wccode varchar2(30);
 
-        /// <summary>
-        /// 渲染背景图片,使背景图片不失真
-        /// </summary>
-        /// <param name="g"></param>
-        /// <param name="rect"></param>
-        /// <param name="cut"></param>
-        /// <param name="backgroundImage"></param>
-        public static void RendererBackground(Graphics g, Rectangle rect, int cut, Image backgroundImage)
-        {
-            //左上角
-            g.DrawImage(backgroundImage, new Rectangle(rect.X, rect.Y, cut, cut), 0, 0, cut, cut, GraphicsUnit.Pixel);
-            //上边
-            g.DrawImage(backgroundImage, new Rectangle(rect.X + cut, rect.Y, rect.Width - cut * 2, cut), cut, 0, backgroundImage.Width - cut * 2, cut, GraphicsUnit.Pixel);
-            //右上角
-            g.DrawImage(backgroundImage, new Rectangle(rect.X + rect.Width - cut, rect.Y, cut, cut), backgroundImage.Width - cut, 0, cut, cut, GraphicsUnit.Pixel);
-            //左边
-            g.DrawImage(backgroundImage, new Rectangle(rect.X, rect.Y + cut, cut, rect.Height - cut * 2), 0, cut, cut, backgroundImage.Height - cut * 2, GraphicsUnit.Pixel);
-            //左下角
-            g.DrawImage(backgroundImage, new Rectangle(rect.X, rect.Y + rect.Height - cut, cut, cut), 0, backgroundImage.Height - cut, cut, cut, GraphicsUnit.Pixel);
-            //右边
-            g.DrawImage(backgroundImage, new Rectangle(rect.X + rect.Width - cut, rect.Y + cut, cut, rect.Height - cut * 2), backgroundImage.Width - cut, cut, cut, backgroundImage.Height - cut * 2, GraphicsUnit.Pixel);
-            //右下角
-            g.DrawImage(backgroundImage, new Rectangle(rect.X + rect.Width - cut, rect.Y + rect.Height - cut, cut, cut), backgroundImage.Width - cut, backgroundImage.Height - cut, cut, cut, GraphicsUnit.Pixel);
-            //下边
-            g.DrawImage(backgroundImage, new Rectangle(rect.X + cut, rect.Y + rect.Height - cut, rect.Width - cut * 2, cut), cut, backgroundImage.Height - cut, backgroundImage.Width - cut * 2, cut, GraphicsUnit.Pixel);
-            //平铺中间
-            g.DrawImage(backgroundImage, new Rectangle(rect.X + cut, rect.Y + cut, rect.Width - cut * 2, rect.Height - cut * 2), cut, cut, backgroundImage.Width - cut * 2, backgroundImage.Height - cut * 2, GraphicsUnit.Pixel);
-        }
+//v_count int;
+//    v_new int:=0; ---0表示否，-1 需要新增箱号
 
-        #endregion
+//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;
 
-        /// <summary>
-        /// 
-        /// </summary>
-        /// <param name="g"></param>
-        /// <param name="image"></param>
-        /// <param name="x1"></param>
-        /// <param name="y1"></param>
-        /// <param name="width1"></param>
-        /// <param name="height1"></param>
-        /// <param name="x2"></param>
-        /// <param name="y2"></param>
-        /// <param name="width2"></param>
-        /// <param name="height2"></param>
-        public static void DrawImage(Graphics g, Image image, int x1, int y1, int width1, int height1, int x2, int y2, int width2, int height2)
-        {
-            g.DrawImage(image, new Rectangle(x1, y1, width1, height1), x2, y2, width2, height2, GraphicsUnit.Pixel);
-        }
 
-        #region CreateRoundPath 构建圆角路径
+//            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;
 
-        /// <summary>
-        /// 构建圆角路径
-        /// </summary>
-        /// <param name="rect"></param>
-        /// <param name="cornerRadius"></param>
-        /// <returns></returns>
-        public static GraphicsPath CreateRoundPath(Rectangle rect, int cornerRadius)
-        {
-            GraphicsPath roundedRect = new GraphicsPath();
-            roundedRect.AddArc(rect.X, rect.Y, cornerRadius * 2, cornerRadius * 2, 180, 90);
-            roundedRect.AddLine(rect.X + cornerRadius, rect.Y, rect.Right - cornerRadius * 2, rect.Y);
-            roundedRect.AddArc(rect.X + rect.Width - cornerRadius * 2, rect.Y, cornerRadius * 2, cornerRadius * 2, 270, 90);
-            roundedRect.AddLine(rect.Right, rect.Y + cornerRadius * 2, rect.Right, rect.Y + rect.Height - cornerRadius * 2);
-            roundedRect.AddArc(rect.X + rect.Width - cornerRadius * 2, rect.Y + rect.Height - cornerRadius * 2, cornerRadius * 2, cornerRadius * 2, 0, 90);
-            roundedRect.AddLine(rect.Right - cornerRadius * 2, rect.Bottom, rect.X + cornerRadius * 2, rect.Bottom);
-            roundedRect.AddArc(rect.X, rect.Bottom - cornerRadius * 2, cornerRadius * 2, cornerRadius * 2, 90, 90);
-            roundedRect.AddLine(rect.X, rect.Bottom - cornerRadius * 2, rect.X, rect.Y + cornerRadius * 2);
-            roundedRect.CloseFigure();
-            return roundedRect;
-        }
 
-        /// <summary>
-        /// 构建圆角路径
-        /// </summary>
-        /// <param name="r"></param>
-        /// <param name="r1"></param>
-        /// <param name="r2"></param>
-        /// <param name="r3"></param>
-        /// <param name="r4"></param>
-        /// <returns></returns>
-        public static GraphicsPath CreateRoundRect(RectangleF r, float r1, float r2, float r3, float r4)
-        {
-            float x = r.X;
-            float y = r.Y;
-            float width = r.Width;
-            float height = r.Height;
-            GraphicsPath path = new GraphicsPath();
-            path.AddBezier(x, y + r1, x, y, x + r1, y, x + r1, y);
-            path.AddLine(x + r1, y, (x + width) - r2, y);
-            path.AddBezier((x + width) - r2, y, x + width, y, x + width, y + r2, x + width, y + r2);
-            path.AddLine((float)(x + width), (float)(y + r2), (float)(x + width), (float)((y + height) - r3));
-            path.AddBezier((float)(x + width), (float)((y + height) - r3), (float)(x + width), (float)(y + height), (float)((x + width) - r3), (float)(y + height), (float)((x + width) - r3), (float)(y + height));
-            path.AddLine((float)((x + width) - r3), (float)(y + height), (float)(x + r4), (float)(y + height));
-            path.AddBezier(x + r4, y + height, x, y + height, x, (y + height) - r4, x, (y + height) - r4);
-            path.AddLine(x, (y + height) - r4, x, y + r1);
-            return path;
-        }
-        #endregion
-    }
-}
+//             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;