任务汇报单：子表记录源单

duhe

2023-09-07 2df469d76274eee773d8e247659f9ee09eed67b5

 WarM/ÌõÂë´òÓ¡/Kf_WeighToBarCode.cs

@@ -363,6 +363,8 @@
                    + ", " + HStockOrgID.ToString() + "," + HStockOrgID.ToString() + ") ");
                //更新关联数量
                oCn.RunProc("exec h_p_Sc_UpDateRelation_ICMOToProductIn_Add " + HInterID.ToString());
                //回填已生单状态
                oCn.RunProc("Update KF_WeighSource_Temp set HRelationInterID=1 where HInterID= " + HInterID.ToString());
                MessageBox.Show("生成生产入库单：" + HBillNo + " æˆåŠŸï¼", "提示");
                oCn.Commit();
                return true;
@@ -521,6 +523,17 @@
        //条码生成前判断
        private bool Sub_AllowSave()
        {
            //判断当前单据ID是否已上传生成单据
            DataSet Ds = oCn.RunProcReturn("select top 1 1 from KF_WeighSource_Temp with(nolock) where HInterID=" + HInterID.ToString() + " and HRelationInterID=1 ", "KF_WeighSource_Temp", ref DBUtility.ClsPub.sExeReturnInfo);
            if (Ds == null || Ds.Tables[0].Rows.Count == 0)
            {
            }
            else
            {
                MessageBox.Show("当前条码记录已换班上传生成单据，请退出后重新进入该模块进行条码生成操作！", "提示");
                return false;
            }

            if (HInterID==0 || HBillNo=="")
            {
                MessageBox.Show("获取条码对应单据ID或单据号失败，请重新刷新界面！", "提示");
@@ -534,6 +547,11 @@
            else if (DBUtility.ClsPub.isDoule( txtHWeightQyt.Text) == 0)
            {
                MessageBox.Show("请输入正确重量！", "提示");
                return false;
            }
            else if (DBUtility.ClsPub.isDoule(txtHQty.Text)- DBUtility.ClsPub.isDoule(txtHKDQty.Text) <= 0)
            {
                MessageBox.Show("输入的扣点数不能大于米数！", "提示");
                return false;
            }
            else if (DBUtility.ClsPub.isInt(txtHBarcodeNo.Text) == 0)
@@ -551,10 +569,14 @@
                MessageBox.Show("物料默认仓库启用了仓位，但未设置仓位，获取仓位信息失败，请先设置物料默认仓位！", "提示");
                return false;
            }
            //实际克重超出百分之二十或者不足原本的百分之八十，请检查输入的数据是否真确
            else if (DBUtility.ClsPub.isDoule(txtHWeightQyt.Text)> HMaterWeight*1.2 || DBUtility.ClsPub.isDoule(txtHWeightQyt.Text) < HMaterWeight * 0.8)

            //实际克重=重量/米数*1000，实际克重超出物料维护克重的百分之二十或不足物料维护克重的百分之八十，预警提示
            double sQty = 0;    //实际克重
            sQty = DBUtility.ClsPub.isDoule(txtHWeightQyt.Text) / DBUtility.ClsPub.isDoule(txtHQty.Text) * 1000;

            if (sQty > HMaterWeight * 1.2 || sQty < HMaterWeight * 0.8)
            {
                if (MessageBox.Show("物料维护克重为："+HMaterWeight.ToString()+ "，实际输入克重为：" + DBUtility.ClsPub.isStrNull(txtHWeightQyt.Text) + "，所输入实际克重超出物料维护克重的百分之二十或不足物料维护克重的百分之八十，请检查输入的数据是否正确！", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) == DialogResult.OK)
                if (MessageBox.Show("物料维护克重为："+HMaterWeight.ToString()+ "，实际克重为：" + sQty.ToString() + "，所输入实际克重超出物料维护克重的百分之二十或不足物料维护克重的百分之八十，请检查输入的数据是否正确！", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) == DialogResult.OK)
                {
                    return true;
                }
@@ -622,9 +644,10 @@

            string HBarCode = "";
            string HBarCodeType = "";
            double HQty = 0;            //米数
            double HNowQty = 0;         //米数
            double HMaterialJQty = 0;   //重量
            double HMaterialMQty = 0;   //扣点数
            double HQty = 0;            //数量
            Int64 HDeptID = 0;
            string HRemark = "";
            string HMaterName = "";
@@ -637,9 +660,10 @@

            HBarCode = TM;
            HBarCodeType = DBUtility.ClsPub.isStrNull(cmbHBarCodeType.Text);
            HQty = DBUtility.ClsPub.isDoule(txtHQty.Text);
            HNowQty = DBUtility.ClsPub.isDoule(txtHQty.Text);
            HMaterialJQty = DBUtility.ClsPub.isDoule(txtHWeightQyt.Text);
            HMaterialMQty = DBUtility.ClsPub.isDoule(txtHKDQty.Text);
            HQty = HNowQty- HMaterialMQty;
            HDeptID = DBUtility.ClsPub.isLong(txtHDeptName.Tag);
            HRemark = DBUtility.ClsPub.isStrNull(txtHRemark.Text);
            HMaterName = DBUtility.ClsPub.isStrNull(txtHMaterName.Text);
@@ -653,31 +677,31 @@
            try
            {
                oCn.BeginTran();
                //写入条码档案    (客户物料名称HCusMaterName存入HMaterialModel字段，客户规格型号HCusModel存入HCusModel字段
                //写入条码档案    (客户物料名称HCusMaterName存入HMaterialModel字段，客户规格型号HCusModel存入HCusModel字段，不良原因ID存入HCustomQty1字段）
                oCn.RunProc("Insert into Gy_BarCodeBill " +
                "(HBarCode,HBarCodeType,HMaterID,HUnitID,HQty" +
                ",HBatchNo,HSupID,HGroupID,HMaker,HMakeDate,HPrintQty,HinitQty" +
                ",HSourceInterID,HSourceEntryID,HSourceBillNo,HSourceBillType,HEndQty " +
                ",HBarcodeQtys,HBarcodeNo,HDeptID,HWhID,HSPID,HRemark " +
                ",HCusID,HCusType,HEndDate,HWorkLineName,HBarCodeDate,HMaterialJQty,HMaterialMQty " +
                ",HCusID,HCusType,HEndDate,HWorkLineName,HBarCodeDate,HMaterialJQty,HMaterialMQty,HNowQty " +
                ",HSTOCKORGID,HOWNERID,HSeOrderBillNo,HInterID,HGiveAwayFlag " +
                ",HOrderInterID,HOrderEntryID,HOrderBillNo,HCustomQty1,HMaterialModel,HCusModel " +
                ",HMaterName,HMaterModel,HPinfan,HAuxPropID,HMTONo,HInnerBillNo " +
                ",HMaterName,HMaterModel,HPinfan,HAuxPropID,HMTONo,HInnerBillNo,HLogo " +
                ") Values ("
                + "'" + HBarCode + "','" + HBarCodeType + "'," + HMaterID.ToString() + "," + HUnitID.ToString() + "," + HQty.ToString()
                + ",'" + HBatchNo + "'," + HSupID.ToString() + ",0,'" + HMaker + "',getdate(),0," + HQty.ToString()
                + ", " + HSourceInterID.ToString() + "," + HSourceEntryID.ToString() + ",'" + HSourceBillNo + "','" + HSourceBillType + "',''"
                + ", 1," + HBarcodeNo.ToString() + "," + HDeptID.ToString() + "," + HWhID.ToString() + "," + HSPID.ToString() + ",'" + HRemark + "'"
                + ", 0,'',getdate(),'','" + sDate + "'," + HMaterialJQty.ToString() + "," + HMaterialMQty.ToString()
                + ", 0,'',getdate(),'','" + sDate + "'," + HMaterialJQty.ToString() + "," + HMaterialMQty.ToString() + "," + HNowQty.ToString()
                + ", " + HStockOrgID.ToString() + "," + HStockOrgID.ToString() + ",''," + HInterID.ToString() + ",0"
                + ", " + ProcessExchangeInterID.ToString() + ",0,'" + ProcessExchangeBillNo + "'," + HBadReasonID.ToString() + ",'" + HCusMaterName + "','" + HCusModel + "'"
                + ",'" + HMaterName + "','" + HMaterModel + "',''," + HAuxPropID.ToString() + ",'','')");
                + ",'" + HMaterName + "','" + HMaterModel + "',''," + HAuxPropID.ToString() + ",'','','1')");

                //回填最大流水号
                oCn.RunProc("exec h_p_WMS_SetMaxNo_QTY '" + sTMNumber + "',1 ");

                //回填源单临时表HInterID
                oCn.RunProc("update a set a.HInterID=" + HInterID.ToString() + ",a.HBillNo='" + HBillNo + "' from KF_WeighSource_Temp a where a.HInterID<>" + HInterID.ToString() + " and a.HMaker='" + HMaker + "' and convert(varchar(10),a.HMakeDate,120)=convert(varchar(10),getdate(),120)");
                oCn.RunProc("update a set a.HInterID=" + HInterID.ToString() + ",a.HBillNo='" + HBillNo +"',a.HRelationInterID= 0 from KF_WeighSource_Temp a where a.HInterID<>" + HInterID.ToString() + " and a.HMaker='" + HMaker + "' and a.HSourceBillNo='" + ProcessExchangeBillNo + "'");

                //写入条码出入库临时表
                oCn.RunProc("Insert into KF_PonderationBillMain_Temp " +