1

A02基础产品管理/U_ClothInfoInput.dfm

@@ -526,7 +526,7 @@ object frmClothInfoInput: TfrmClothInfoInput
       object CostPrice: TcxCurrencyEdit
         Tag = 2
         Left = 119
-        Top = 210
+        Top = 207
         EditValue = 0.000000000000000000
         Properties.AssignedValues.DisplayFormat = True
         Properties.OnEditValueChanged = CostPricePropertiesEditValueChanged

A02基础产品管理/U_ClothInfoInput.pas

@@ -883,6 +883,19 @@ begin
       RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', panel2, 2);
       Post;
     end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select count(*) as AA from BS_Cloth_Info where C_Code=''' + Trim(C_Code.Text) + '''');
+      Open;
+      if FieldByName('AA').AsInteger > 1 then
+        raise Exception.Create('编号重复!');
+
+    end;
+////////////////       保存主表          //////////////////////
+///
+////////////////       保存子布          //////////////////////
     with ADOQueryCmd do
     begin
       Close;
@@ -890,15 +903,15 @@ begin
       sql.Add('delete BS_Cloth_Info_Link where ToID=''' + Trim(MaxBCIID) + '''');
       ExecSQL;
     end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from BS_Cloth_Info_Link  where 1=2');
+      Open;
+    end;
     if Trim(C_FromName.Properties.LookupItems.Text) <> '' then
     begin
-      with ADOQueryCmd do
-      begin
-        Close;
-        SQL.Clear;
-        sql.Add('select * from BS_Cloth_Info_Link  where 1=2');
-        Open;
-      end;
       with ADOQueryCmd do
       begin
         Append;
@@ -912,13 +925,6 @@ begin
 
     if Trim(C_FromName2.Properties.LookupItems.Text) <> '' then
     begin
-      with ADOQueryCmd do
-      begin
-        Close;
-        SQL.Clear;
-        sql.Add('select * from BS_Cloth_Info_Link  where 1=2');
-        Open;
-      end;
       with ADOQueryCmd do
       begin
         Append;
@@ -932,13 +938,6 @@ begin
 
     if Trim(C_FromName3.Properties.LookupItems.Text) <> '' then
     begin
-      with ADOQueryCmd do
-      begin
-        Close;
-        SQL.Clear;
-        sql.Add('select * from BS_Cloth_Info_Link  where 1=2');
-        Open;
-      end;
       with ADOQueryCmd do
       begin
         Append;
@@ -952,13 +951,6 @@ begin
 
     if Trim(C_FromName4.Properties.LookupItems.Text) <> '' then
     begin
-      with ADOQueryCmd do
-      begin
-        Close;
-        SQL.Clear;
-        sql.Add('select * from BS_Cloth_Info_Link  where 1=2');
-        Open;
-      end;
       with ADOQueryCmd do
       begin
         Append;
@@ -972,13 +964,6 @@ begin
 
     if Trim(C_FromName5.Properties.LookupItems.Text) <> '' then
     begin
-      with ADOQueryCmd do
-      begin
-        Close;
-        SQL.Clear;
-        sql.Add('select * from BS_Cloth_Info_Link  where 1=2');
-        Open;
-      end;
       with ADOQueryCmd do
       begin
         Append;
@@ -989,18 +974,9 @@ begin
         Post;
       end;
     end;
-
+////////////////       保存子布          //////////////////////
-    with ADOQueryTemp do
+///
-    begin
+////////////////       保存供应商名称          //////////////////////
-      Close;
-      sql.Clear;
-      sql.Add('select count(*) as AA from BS_Cloth_Info where C_Code=''' + Trim(C_Code.Text) + '''');
-      Open;
-      if FieldByName('AA').AsInteger > 1 then
-        raise Exception.Create('编号重复!');
-
-    end;
-
     with CDS_2 do
     begin
       First;
@@ -1048,7 +1024,21 @@ begin
       end;
     end;
 
-    //////////////////////////            保存单位系数子表              //////////////////////////
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add(' update BS_Cloth_Info_Sub set referencePrice= ISNULL(floatPrice, 0) + ISNULL(CostPrice, 0) ');
+      sql.Add(' from BS_Cloth_Info X ');
+      sql.Add(' where X.BCIID=BS_Cloth_Info_Sub.BCIID AND  BS_Cloth_Info_Sub.BCIID =' + quotedstr(MaxBCIID));
+      ExecSQL;
+    end;
+
+
+
+////////////////       保存供应商名称          //////////////////////
+///
+//////////////////////////            保存单位系数子表              //////////////////////////
     with CDS_3 do
     begin
       First;
@@ -1095,7 +1085,7 @@ begin
         Next;
       end;
     end;
-
+//////////////////////////            保存单位系数子表              //////////////////////////
     ADOQueryCmd.Connection.CommitTrans;
 
 //    with ADOQueryCmd do

A02基础产品管理/U_Edit.pas

@@ -278,9 +278,6 @@ var
 begin
   try
     ADOQueryCmd.Connection.BeginTrans;
-
-
-
     ////////////////////////            ±£´æ×              //////////////////////////
     with CDS_4 do
     begin
@@ -290,11 +287,7 @@ begin
         if Trim(CDS_4.fieldbyname('BCISID').AsString) = '' then
         begin
           if GetLSNo(ADOQueryTemp, maxId4, 'YS', 'BS_Cloth_Info_Sub', 4, 1) = False then
-          begin
+            raise Exception.Create('取子流水号失败!');
-            ADOQueryCmd.Connection.RollbackTrans;
-            Application.MessageBox('取子流水号失败！', '提示', 0);
-            Exit;
-          end;
         end
         else
         begin
@@ -333,26 +326,28 @@ begin
         Next;
       end;
     end;
+
     with ADOQueryTemp do
     begin
       Close;
       sql.Clear;
       sql.Add('select count(BCISID) as AA from BS_Cloth_Info_Sub where BCIID=''' + Trim(FBCIID) + '''');
       sql.Add(' group by C_Color,C_ColorNo  having count(BCISID)>1');
-//      ShowMessage(sql.Text);
       Open;
-
     end;
     if StrToFloatDef(ADOQueryTemp.fieldbyname('AA').asstring, 1) > 1 then
+      raise Exception.Create('颜色色号重复!');
+
+    with ADOQueryCmd do
     begin
-      ADOQueryCmd.Connection.RollbackTrans;
+      Close;
-//      Result := False;
+      SQL.Clear;
-      Application.MessageBox('颜色色号重复！', '提示', 0);
+      sql.Add(' exec P_BS_CloInfo_ZhuBuTongBu @BCIID=' + QuotedStr(trim(FBCIID)));
-      Exit;
+      ExecSQL;
     end;
+
+
 ////////////////////////            ±£´æ×              //////////////////////////
-
-
     ADOQueryCmd.Connection.CommitTrans;
 
     Result := True;