产成品入库更改需求

ICSSoft.WMS.WebAPI/ICSSoft.DataProject/ICSManufactureService.cs

@@ -723,15 +723,18 @@ namespace ICSSoft.DataProject
             try
             {
                 string sql = @"
-                                IF NOT EXISTS(SELECT 1
+                                IF NOT EXISTS (
+                                    SELECT bcLog.ID
                                     FROM ICSMO a
-	                                LEFT JOIN ICSInventoryLotDetail b ON b.TransCode=a.MoCode AND b.TransSequence=a.Sequence AND b.WorkPoint=a.WorkPoint
-	                                LEFT JOIN ICSInventoryLot c ON c.LotNo=b.LotNo AND c.WorkPoint=b.WorkPoint
-	                                LEFT JOIN ICSExtension d ON d.ID=c.ExtensionID AND d.WorkPoint=c.WorkPoint
-	                                LEFT JOIN ICSBackflushBCLog	bclog ON a.MOCode=bclog.TransCode AND a.Sequence=bclog.TransSequence AND bclog.BatchCode=d.BatchCode
-	                                WHERE c.LotNo='{0}')
+                                    INNER JOIN ICSInventoryLotDetail b ON b.TransCode=a.MoCode AND b.TransSequence=a.Sequence AND b.WorkPoint=a.WorkPoint
+                                    INNER JOIN ICSInventoryLot c ON c.LotNo=b.LotNo AND c.WorkPoint=b.WorkPoint
+                                    INNER JOIN ICSExtension d ON d.ID=c.ExtensionID AND d.WorkPoint=c.WorkPoint
+                                    INNER JOIN ICSBackflushBCLog bclog ON a.MOCode=bclog.TransCode AND a.Sequence=bclog.TransSequence AND bclog.BatchCode=d.BatchCode
+                                    WHERE c.LotNo = '{0}'
+                                )
                                 BEGIN
 	                                RAISERROR('" + language.GetNameByCode("WMSAPIInfo468") + @"',16,1);
+	                                RETURN;
                                 END
 
                                 DECLARE @Status VARCHAR(10)
@@ -763,6 +766,7 @@ namespace ICSSoft.DataProject
 	                                RAISERROR('" + language.GetNameByCode("WMSAPIInfo083") + @"',16,1);
                                 END";
                 sql = string.Format(sql, LotNo, WorkPoint, Quantity);
+                log.Debug("生产入库：" + sql);
                 if (!DBHelper.ExecuteNonQuery(sql, cmd))
                 {
                     throw new Exception(language.GetNameByCode("WMSAPIInfo136"));//"生产订单更新失败！");

ICSSoft.WMS.WebAPI/ICSSoft.DataProject/ICSWareHouseLotInfoService.cs

@@ -71,10 +71,10 @@ namespace ICSSoft.DataProject
                 sql += @"
                             IF NOT EXISTS(SELECT 1
 	                            FROM ICSMO a
-	                            LEFT JOIN ICSInventoryLotDetail b ON b.TransCode=a.MoCode AND b.TransSequence=a.Sequence AND b.WorkPoint=a.WorkPoint
-	                            LEFT JOIN ICSInventoryLot c ON c.LotNo=b.LotNo AND c.WorkPoint=b.WorkPoint
-	                            LEFT JOIN ICSExtension d ON d.ID=c.ExtensionID AND d.WorkPoint=c.WorkPoint
-	                            LEFT JOIN ICSBackflushBCLog	bclog ON a.MOCode=bclog.TransCode AND a.Sequence=bclog.TransSequence AND bclog.BatchCode=d.BatchCode
+	                            INNER JOIN ICSInventoryLotDetail b ON b.TransCode=a.MoCode AND b.TransSequence=a.Sequence AND b.WorkPoint=a.WorkPoint
+	                            INNER JOIN ICSInventoryLot c ON c.LotNo=b.LotNo AND c.WorkPoint=b.WorkPoint
+	                            INNER JOIN ICSExtension d ON d.ID=c.ExtensionID AND d.WorkPoint=c.WorkPoint
+	                            INNER JOIN ICSBackflushBCLog	bclog ON a.MOCode=bclog.TransCode AND a.Sequence=bclog.TransSequence AND bclog.BatchCode=d.BatchCode
 	                            WHERE c.LotNo='{0}')
                             BEGIN
 	                            RAISERROR('" + language.GetNameByCode("WMSAPIInfo468") + @"',16,1);
@@ -86,9 +86,12 @@ namespace ICSSoft.DataProject
                             RETURN
                         END
 
+                        UPDATE ICSInventoryLot SET Quantity = '{3}' WHERE LotNo='{0}' AND WorkPoint = '{1}'
+
                         IF EXISTS(SELECT a.LotNo FROM ICSWareHouseLotInfo a WHERE a.LotNo='{0}' AND a.WorkPoint='{1}')
                         BEGIN
-	                        UPDATE ICSWareHouseLotInfo SET Quantity=ISNULL(Quantity,0)+'{3}' WHERE LotNo='{0}' AND WorkPoint='{1}'
+	                        -- UPDATE ICSWareHouseLotInfo SET Quantity=ISNULL(Quantity,0)+'{3}' WHERE LotNo='{0}' AND WorkPoint='{1}'
+                            UPDATE ICSWareHouseLotInfo SET Quantity=ISNULL({3},0) WHERE LotNo='{0}' AND WorkPoint='{1}'
                         END
                         ELSE
                         BEGIN