1234

2026-02-12 10:38:23 +08:00 · 2026-02-12 10:38:23 +08:00 · b033fb8da7
commit b033fb8da7
parent 229e1459ca
13 changed files with 213 additions and 68 deletions
--- a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof
+++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof
@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\Dp7Repo\淃커덜쯤\믄봄2\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
+HostApplication=D:\D7W\淃커덜쯤\D7myGuhang\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
--- a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr
+++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr
@ -6,6 +6,7 @@ uses
  forms,
  WinTypes,
  WinProcs,
+  MidasLib,
  U_GetDllForm in 'U_GetDllForm.pas',
  U_RTFun in '..\Z99Dependency\RTFunAndForm\Fun\U_RTFun.pas',
  U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
@ -33,7 +34,7 @@ uses

 {$R *.res}

-procedure DllEnterPoint(dwReason: DWORD);far;stdcall;
+procedure DllEnterPoint(dwReason: DWORD); far; stdcall;
 begin
  DLLProc := @DLLEnterPoint;
  DllEnterPoint(DLL_PROCESS_ATTACH);
@ -44,11 +45,13 @@ begin
 //  if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then
 //     Application:=NewDllApp;
 end;
+
 exports
  GetDllForm;
+
 begin
  try
-     NewDllApp:=Application;
+    NewDllApp := Application;
    DLLProc := @DLLUnloadProc;
  except

--- a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.dfm
+++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.dfm
@ -21,7 +21,7 @@ object frmDJBRKList2: TfrmDJBRKList2
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
-    Width = 1364
+    Width = 1356
    Height = 33
    ButtonHeight = 30
    ButtonWidth = 95
@ -124,7 +124,7 @@ object frmDJBRKList2: TfrmDJBRKList2
  object Panel1: TPanel
    Left = 0
    Top = 33
-    Width = 1364
+    Width = 1356
    Height = 72
    Align = alTop
    BevelInner = bvRaised
@ -308,7 +308,7 @@ object frmDJBRKList2: TfrmDJBRKList2
        #27425#21697#20837#24211)
    end
    object SPColor: TEdit
-      Tag = 2
+      Tag = 1
      Left = 613
      Top = 8
      Width = 80
@ -351,8 +351,8 @@ object frmDJBRKList2: TfrmDJBRKList2
  object cxGrid2: TcxGrid
    Left = 0
    Top = 105
-    Width = 1224
-    Height = 618
+    Width = 1216
+    Height = 610
    Align = alClient
    TabOrder = 2
    object Tv1: TcxGridDBTableView
@ -611,10 +611,10 @@ object frmDJBRKList2: TfrmDJBRKList2
    end
  end
  object cxGrid1: TcxGrid
-    Left = 1224
+    Left = 1216
    Top = 105
    Width = 140
-    Height = 618
+    Height = 610
    Align = alRight
    TabOrder = 4
    Visible = False
--- a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.pas
+++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList2.pas
@ -12,7 +12,21 @@ uses
  cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
  RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
  cxContainer, cxImage, cxDBEdit, ComObj, cxLookAndFeels, cxLookAndFeelPainters,
-  cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
+  cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter,
+  dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
+  dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
+  dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
+  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
+  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
+  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
+  dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
+  dxSkinXmas2008Blue;

 type
  FdDy = record
--- a/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof
+++ b/成品仓库(FinishedClothWarehouse.dll)/FinishedClothWarehouse.dof
@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\项目代码\D7myGuhang\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
+HostApplication=D:\D7W\项目代码\D7myGuhang\成品仓库(FinishedClothWarehouse.dll)\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
--- a/成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.dfm
+++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.dfm
@ -20,7 +20,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
-    Width = 1339
+    Width = 1331
    Height = 33
    ButtonHeight = 30
    ButtonWidth = 107
@ -137,7 +137,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
  object Panel1: TPanel
    Left = 0
    Top = 33
-    Width = 1339
+    Width = 1331
    Height = 68
    Align = alTop
    BevelInner = bvRaised
@ -363,7 +363,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
        '')
    end
    object spColor: TEdit
-      Tag = 2
+      Tag = 1
      Left = 607
      Top = 8
      Width = 80
@ -452,7 +452,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
  object Panel2: TPanel
    Left = 0
    Top = 101
-    Width = 1339
+    Width = 1331
    Height = 30
    Align = alTop
    BevelOuter = bvNone
@ -493,7 +493,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
    object Panel6: TPanel
      Left = 205
      Top = 0
-      Width = 1134
+      Width = 1126
      Height = 30
      Align = alClient
      AutoSize = True
@ -501,7 +501,7 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
      BorderStyle = bsSingle
      TabOrder = 1
      DesignSize = (
-        1130
+        1122
        26)
      object Label1: TLabel
        Left = 64
@ -594,8 +594,8 @@ object frmCKGNProductBCPOutList: TfrmCKGNProductBCPOutList
  object cxGrid2: TcxGrid
    Left = 0
    Top = 131
-    Width = 1339
-    Height = 497
+    Width = 1331
+    Height = 489
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 4
--- a/成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.pas
+++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKGNProductBCPOutList.pas
@ -12,7 +12,21 @@ uses
  cxDropDownEdit, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System,
  RM_GridReport, cxCheckBox, Menus, MovePanel, RM_E_llPDF, cxCalendar, Math,
  Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
-  cxPC, cxContainer, dxCore, cxDateUtils, cxTextEdit, cxMaskEdit, cxCurrencyEdit;
+  cxPC, cxContainer, dxCore, cxDateUtils, cxTextEdit, cxMaskEdit, cxCurrencyEdit,
+  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
+  dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
+  dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
+  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
+  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
+  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
+  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;

 type
  TfrmCKGNProductBCPOutList = class(TForm)
--- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.dfm
+++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.dfm
@ -20,7 +20,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
-    Width = 1220
+    Width = 1212
    Height = 33
    ButtonHeight = 30
    ButtonWidth = 83
@ -128,7 +128,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
  object Panel1: TPanel
    Left = 0
    Top = 33
-    Width = 1220
+    Width = 1212
    Height = 68
    Align = alTop
    BevelInner = bvRaised
@ -326,6 +326,7 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
      TabOrder = 0
    end
    object SPColor: TEdit
+      Tag = 1
      Left = 586
      Top = 8
      Width = 90
@ -394,8 +395,8 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
  object cxGrid2: TcxGrid
    Left = 0
    Top = 129
-    Width = 1220
-    Height = 478
+    Width = 1212
+    Height = 470
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 3
@ -612,14 +613,14 @@ object frmCKProductBCPInList: TfrmCKProductBCPInList
  object Panel6: TPanel
    Left = 0
    Top = 101
-    Width = 1220
+    Width = 1212
    Height = 28
    Align = alTop
    AutoSize = True
    BorderStyle = bsSingle
    TabOrder = 2
    DesignSize = (
-      1216
+      1208
      24)
    object Label31: TLabel
      Left = 25
--- a/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas
+++ b/成品仓库(FinishedClothWarehouse.dll)/U_CKProductBCPInList.pas
@ -12,7 +12,20 @@ uses
  cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
  RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, dxCore,
-  cxDateUtils, cxTextEdit, cxMaskEdit;
+  cxDateUtils, cxTextEdit, cxMaskEdit, dxSkinsCore, dxSkinBlack,
+  dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
+  dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
+  dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
+  dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
+  dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
+  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
+  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
+  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
+  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
+  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
+  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;

 type
  TfrmCKProductBCPInList = class(TForm)
--- a/染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof
+++ b/染整计划(DyeingFinishingPlan.dll)/DyeingFinishingPlan.dof
@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\ÏîÄ¿´úÂë\D7myGuhang\È¾Õû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe
+HostApplication=D:\D7W\ÏîÄ¿´úÂë\D7myGuhang\È¾Õû¼Æ»®(DyeingFinishingPlan.dll)\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
--- a/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm
+++ b/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.dfm
@ -1,6 +1,6 @@
 object frmJYOrderCDList: TfrmJYOrderCDList
-  Left = 389
-  Top = 456
+  Left = 327
+  Top = 224
  Width = 1357
  Height = 727
  Caption = #26816#39564#25253#21578
@ -34,10 +34,10 @@ object frmJYOrderCDList: TfrmJYOrderCDList
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
-    Width = 1349
+    Width = 1341
    AutoSize = True
    ButtonHeight = 30
-    ButtonWidth = 107
+    ButtonWidth = 137
    Caption = 'ToolBar1'
    Color = clSkyBlue
    Flat = True
@ -116,12 +116,12 @@ object frmJYOrderCDList: TfrmJYOrderCDList
      Left = 597
      Top = 0
      AutoSize = True
-      Caption = #25209#37327#20462#25913#31859#25968
+      Caption = #25209#37327#20462#25913#31859#25968'/'#31354#21152
      ImageIndex = 11
      OnClick = ToolButton4Click
    end
    object B1: TToolButton
-      Left = 708
+      Left = 738
      Top = 0
      AutoSize = True
      Caption = #25171#30721#26085#24535
@ -129,7 +129,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
      OnClick = B1Click
    end
    object TBExport: TToolButton
-      Left = 795
+      Left = 825
      Top = 0
      AutoSize = True
      Caption = #23548#20986
@ -137,7 +137,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
      OnClick = TBExportClick
    end
    object TBClose: TToolButton
-      Left = 858
+      Left = 888
      Top = 0
      AutoSize = True
      Caption = #20851#38381
@ -148,7 +148,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
  object Panel1: TPanel
    Left = 0
    Top = 32
-    Width = 1349
+    Width = 1341
    Height = 63
    Align = alTop
    BevelInner = bvRaised
@ -405,7 +405,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
      OnKeyPress = conNOKeyPress
    end
    object spColor: TEdit
-      Tag = 2
+      Tag = 1
      Left = 205
      Top = 32
      Width = 100
@ -518,8 +518,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList
  object cxGrid1: TcxGrid
    Left = 0
    Top = 148
-    Width = 1349
-    Height = 548
+    Width = 1341
+    Height = 540
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 4
@ -841,30 +841,37 @@ object frmJYOrderCDList: TfrmJYOrderCDList
    Visible = False
  end
  object Panel2: TPanel
-    Left = 536
-    Top = 212
+    Left = 534
+    Top = 213
    Width = 297
    Height = 133
    Color = clSkyBlue
    TabOrder = 5
    Visible = False
    object Label15: TLabel
-      Left = 4
-      Top = 44
+      Left = 10
+      Top = 19
      Width = 24
      Height = 12
      Caption = #31859#25968
    end
    object Label13: TLabel
-      Left = 4
-      Top = 68
+      Left = 10
+      Top = 44
      Width = 48
      Height = 12
      Caption = #31859#25968#33539#22260
    end
+    object Label17: TLabel
+      Left = 10
+      Top = 69
+      Width = 24
+      Height = 12
+      Caption = #31354#21152
+    end
    object cxCurrencyEdit1: TcxCurrencyEdit
-      Left = 56
-      Top = 40
+      Left = 62
+      Top = 15
      Properties.DecimalPlaces = 4
      Properties.DisplayFormat = '0.####'
      Properties.Nullstring = '0'
@ -872,8 +879,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList
      Width = 121
    end
    object Button1: TButton
-      Left = 192
-      Top = 40
+      Left = 198
+      Top = 17
      Width = 60
      Height = 21
      Caption = #30830#23450
@ -890,8 +897,8 @@ object frmJYOrderCDList: TfrmJYOrderCDList
      OnClick = Button2Click
    end
    object Button8: TButton
-      Left = 192
-      Top = 64
+      Left = 198
+      Top = 40
      Width = 60
      Height = 21
      Caption = #30830#23450
@ -899,13 +906,31 @@ object frmJYOrderCDList: TfrmJYOrderCDList
      OnClick = Button8Click
    end
    object edit3: TEdit
-      Left = 55
-      Top = 65
+      Left = 62
+      Top = 40
      Width = 122
      Height = 20
      Hint = '1'
      TabOrder = 4
    end
+    object cxCurrencyEdit2: TcxCurrencyEdit
+      Left = 63
+      Top = 65
+      Properties.DecimalPlaces = 4
+      Properties.DisplayFormat = '0.####'
+      Properties.Nullstring = '0'
+      TabOrder = 5
+      Width = 121
+    end
+    object Button9: TButton
+      Left = 198
+      Top = 65
+      Width = 60
+      Height = 21
+      Caption = #30830#23450
+      TabOrder = 6
+      OnClick = Button9Click
+    end
  end
  object Panel5: TPanel
    Left = 868
@ -957,7 +982,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
  object Panel6: TPanel
    Left = 0
    Top = 95
-    Width = 1349
+    Width = 1341
    Height = 28
    Align = alTop
    AutoSize = True
@ -965,7 +990,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
    TabOrder = 2
    Visible = False
    DesignSize = (
-      1345
+      1337
      24)
    object Label31: TLabel
      Left = 25
@ -1058,7 +1083,7 @@ object frmJYOrderCDList: TfrmJYOrderCDList
  object cxTabControl1: TcxTabControl
    Left = 0
    Top = 123
-    Width = 1349
+    Width = 1341
    Height = 25
    Align = alTop
    Font.Charset = GB2312_CHARSET
@ -1076,11 +1101,11 @@ object frmJYOrderCDList: TfrmJYOrderCDList
      #22269#20869#26126#32454#24211#23384)
    OnChange = cxTabControl1Change
    ClientRectBottom = 27
-    ClientRectRight = 1349
+    ClientRectRight = 1341
    ClientRectTop = 27
  end
  object Panel3: TPanel
-    Left = 116
+    Left = 115
    Top = 172
    Width = 369
    Height = 165
--- a/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas
+++ b/染整计划(DyeingFinishingPlan.dll)/U_JYOrderCDList.pas
@ -158,6 +158,9 @@ type
    msfw: TEdit;
    Label16: TLabel;
    kcqty: TEdit;
+    Label17: TLabel;
+    cxCurrencyEdit2: TcxCurrencyEdit;
+    Button9: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure TBCloseClick(Sender: TObject);
@ -203,6 +206,7 @@ type
    procedure Button3Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
+    procedure Button9Click(Sender: TObject);
  private
    DQdate: TDateTime;
    FLeft, FTop: Integer;
@ -1534,5 +1538,76 @@ begin
  end;
 end;

+procedure TfrmJYOrderCDList.Button9Click(Sender: TObject);
+var
+  i, J: string;
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  if Order_Main.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('没有选择数据!', '提示', 0);
+    Exit;
+  end;
+  if cxCurrencyEdit2.Text = '' then
+    Exit;
+  try
+    Order_Main.DisableControls;
+    ADOQueryCmd.Connection.BeginTrans;
+    with Order_Main do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Order_Main.FieldByName('SSel').AsBoolean = True then
+        begin
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+     //     sql.Add('Update WFB_MJJY Set MKXs='''+trim(i)+''',MJLen=cast(1.00000* MJQty4 *'''+trim(i)+''' as decimal(18,1))  ');
+
+            sql.Add('Update WFB_MJJY Set mjmaoz=mjmaoz-kongjia+''' + trim(cxCurrencyEdit2.Text) + '''  ');
+            sql.Add(',MJQty4=MJQty4-kongjia+''' + trim(cxCurrencyEdit2.Text) + '''  ');
+            sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
+
+            sql.Add('Update WFB_MJJY Set  kongjia=''' + trim(cxCurrencyEdit2.Text) + '''  ');
+
+            sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
+
+            sql.Add('Update CK_BanCP_CR Set kgqty=(select mjmaoz from WFB_MJJY e where e.mjid=CK_BanCP_CR.mjid)  ');
+            sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
+
+            SQL.Add('Update CK_BanCP_KC set KCkgQTY=(select mjmaoz from WFB_MJJY e where e.mjid=CK_BanCP_KC.mjid) ');
+
+            SQL.Add('WHERE MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
+
+            sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+            sql.Add(' ' + quotedstr(trim(DName)));
+            sql.Add(',getdate() ');
+            sql.Add(',' + quotedstr(trim(self.Caption)));
+            sql.Add(',' + quotedstr(trim('修改空加')));
+            sql.Add(',' + quotedstr(trim('条码号：' + trim(Order_Main.fieldbyname('MJID').AsString) + ' 改为:' + trim(cxCurrencyEdit2.Text))));
+            sql.Add(',' + quotedstr(trim('成功')));
+            sql.Add(')');
+            ExecSQL;
+          end;
+        end;
+        Next;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Order_Main.EnableControls;
+    application.MessageBox('数据保存成功！', '提示信息');
+    Panel2.Visible := false;
+    TBRafresh.Click;
+    exit;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Order_Main.EnableControls;
+    application.MessageBox('数据保存失败！', '提示信息', 0);
+  end;
+end;
+
 end.

--- a/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm
+++ b/染整计划(DyeingFinishingPlan.dll)/U_MarkingInspection.dfm
@ -1352,7 +1352,7 @@ object frmMarkingInspection: TfrmMarkingInspection
    end
    object KONGJIA: TEdit
      Left = 87
-      Top = 192
+      Top = 193
      Width = 102
      Height = 41
      Font.Charset = GB2312_CHARSET