0317

合同管理(ContractManagement.dll)/ContractManagement.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\项目代码\D7szChenfeng\合同管理(ContractManagement.dll)\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7szChenfeng\合同管理(ContractManagement.dll)\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

合同管理(ContractManagement.dll)/ContractManagement.skincfg

@@ -1,7 +1,7 @@
 [ExpressSkins]
 Default=1
 ShowNotifications=1
-Enabled=0
+Enabled=1
 dxSkinBlack=1
 dxSkinBlue=1
 dxSkinBlueprint=1

合同管理(ContractManagement.dll)/U_ContractListCG.dfm

@@ -19,7 +19,8 @@ object frmContractListCG: TfrmContractListCG
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1366
+    Width = 1374
+    Height = 62
     AutoSize = True
     ButtonHeight = 30
     ButtonWidth = 107
@@ -99,35 +100,36 @@ object frmContractListCG: TfrmContractListCG
       AutoSize = True
       Caption = #25171#21360
       ImageIndex = 4
+      Wrap = True
       OnClick = TBPrintClick
     end
     object btnTijiao: TToolButton
-      Left = 528
+      Left = 0
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25552#20132
       ImageIndex = 31
       OnClick = btnTijiaoClick
     end
     object btnCXTijiao: TToolButton
-      Left = 591
+      Left = 63
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25764#38144#25552#20132
       ImageIndex = 52
       OnClick = btnCXTijiaoClick
     end
     object tchk: TToolButton
-      Left = 678
+      Left = 150
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #23457#26680
       ImageIndex = 31
       OnClick = tchkClick
     end
     object Tnochk: TToolButton
-      Left = 741
+      Left = 213
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25764#38144#23457#26680
       ImageIndex = 52
@@ -135,32 +137,32 @@ object frmContractListCG: TfrmContractListCG
       OnClick = TnochkClick
     end
     object Tqx: TToolButton
-      Left = 828
+      Left = 300
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #21512#21516#21462#28040
       ImageIndex = 3
       OnClick = TqxClick
     end
     object Tnoqx: TToolButton
-      Left = 915
+      Left = 387
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25764#38144#21512#21516#21462#28040
       ImageIndex = 52
       OnClick = TnoqxClick
     end
     object ToolButton3: TToolButton
-      Left = 1026
+      Left = 498
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25805#20316#26085#24535
       ImageIndex = 22
       OnClick = ToolButton3Click
     end
     object TBClose: TToolButton
-      Left = 1113
+      Left = 585
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #20851#38381
       ImageIndex = 21
@@ -169,8 +171,8 @@ object frmContractListCG: TfrmContractListCG
   end
   object cxGrid1: TcxGrid
     Left = 0
-    Top = 97
+    Top = 127
-    Width = 1366
+    Width = 1374
     Height = 394
     Align = alTop
     TabOrder = 3
@@ -404,8 +406,8 @@ object frmContractListCG: TfrmContractListCG
   end
   object Panel1: TPanel
     Left = 0
-    Top = 32
+    Top = 62
-    Width = 1366
+    Width = 1374
     Height = 43
     Align = alTop
     BevelInner = bvRaised
@@ -633,8 +635,8 @@ object frmContractListCG: TfrmContractListCG
   end
   object cxTabControl1: TcxTabControl
     Left = 0
-    Top = 75
+    Top = 105
-    Width = 1366
+    Width = 1374
     Height = 22
     Align = alTop
     TabOrder = 2
@@ -649,22 +651,22 @@ object frmContractListCG: TfrmContractListCG
       #20840#37096)
     OnChange = cxTabControl1Change
     ClientRectBottom = 22
-    ClientRectRight = 1366
+    ClientRectRight = 1374
     ClientRectTop = 19
   end
   object cxSplitter1: TcxSplitter
     Left = 0
-    Top = 707
+    Top = 715
-    Width = 1366
+    Width = 1374
     Height = 8
     HotZoneClassName = 'TcxMediaPlayer9Style'
     AlignSplitter = salBottom
   end
   object cxGrid2: TcxGrid
     Left = 0
-    Top = 491
+    Top = 521
-    Width = 1366
+    Width = 1374
-    Height = 216
+    Height = 194
     Align = alClient
     TabOrder = 4
     object TV2: TcxGridDBTableView

合同管理(ContractManagement.dll)/U_ContractListCG.pas

@@ -11,7 +11,20 @@ uses
   cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
   RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
   cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
-  cxNavigator, dxBarBuiltInMenu;
+  cxNavigator, dxBarBuiltInMenu, 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
   TfrmContractListCG = class(TForm)

合同管理(ContractManagement.dll)/U_ContractListJG.dfm

@@ -19,7 +19,7 @@ object frmContractListJG: TfrmContractListJG
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1366
+    Width = 1374
     Height = 62
     AutoSize = True
     ButtonHeight = 30
@@ -172,12 +172,12 @@ object frmContractListJG: TfrmContractListJG
   object cxGrid1: TcxGrid
     Left = 0
     Top = 127
-    Width = 1366
+    Width = 1374
     Height = 394
     Align = alTop
     TabOrder = 3
     object Tv1: TcxGridDBTableView
-      NavigatorButtons.ConfirmDelete = False
+      Navigator.Buttons.CustomButtons = <>
       OnCellDblClick = Tv1CellDblClick
       OnCustomDrawCell = Tv1CustomDrawCell
       OnFocusedRecordChanged = Tv1FocusedRecordChanged
@@ -270,7 +270,7 @@ object frmContractListJG: TfrmContractListJG
       object v1Column10: TcxGridDBColumn
         DataBinding.FieldName = 'status'
         Visible = False
-        Hidden = True
+        VisibleForCustomization = False
       end
       object v1Column12: TcxGridDBColumn
         Caption = #21512#21516#38468#20214
@@ -337,7 +337,7 @@ object frmContractListJG: TfrmContractListJG
   object Panel1: TPanel
     Left = 0
     Top = 62
-    Width = 1366
+    Width = 1374
     Height = 43
     Align = alTop
     BevelInner = bvRaised
@@ -551,13 +551,14 @@ object frmContractListJG: TfrmContractListJG
   object cxTabControl1: TcxTabControl
     Left = 0
     Top = 105
-    Width = 1366
+    Width = 1374
     Height = 22
     Align = alTop
-    Style = 9
-    TabIndex = 0
     TabOrder = 2
-    Tabs.Strings = (
+    Properties.CustomButtons.Buttons = <>
+    Properties.Style = 9
+    Properties.TabIndex = 0
+    Properties.Tabs.Strings = (
       #26410#25552#20132
       #24050#25552#20132
       #24050#23457#26680
@@ -565,13 +566,13 @@ object frmContractListJG: TfrmContractListJG
       #20840#37096)
     OnChange = cxTabControl1Change
     ClientRectBottom = 22
-    ClientRectRight = 1366
+    ClientRectRight = 1374
     ClientRectTop = 19
   end
   object cxSplitter1: TcxSplitter
     Left = 0
-    Top = 708
+    Top = 715
-    Width = 1366
+    Width = 1374
     Height = 8
     HotZoneClassName = 'TcxMediaPlayer9Style'
     AlignSplitter = salBottom
@@ -579,12 +580,12 @@ object frmContractListJG: TfrmContractListJG
   object cxGrid2: TcxGrid
     Left = 0
     Top = 521
-    Width = 1366
+    Width = 1374
-    Height = 187
+    Height = 194
     Align = alClient
     TabOrder = 4
     object TV2: TcxGridDBTableView
-      NavigatorButtons.ConfirmDelete = False
+      Navigator.Buttons.CustomButtons = <>
       DataController.DataSource = DS_Sub
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
       DataController.Summary.DefaultGroupSummaryItems = <

合同管理(ContractManagement.dll)/U_ContractListJG.pas

@@ -10,7 +10,22 @@ uses
   cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
   cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
   RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
-  cxTextEdit, cxDropDownEdit;
+  cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
+  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,
+  cxNavigator, dxBarBuiltInMenu;
 
 type
   TfrmContractListJG = class(TForm)

合同管理(ContractManagement.dll)/U_ContractListNX.dfm

@@ -1,6 +1,6 @@
 object frmContractListNX: TfrmContractListNX
-  Left = 382
+  Left = 225
-  Top = 287
+  Top = 246
   Width = 1381
   Height = 716
   Caption = #38144#21806#21512#21516
@@ -20,7 +20,7 @@ object frmContractListNX: TfrmContractListNX
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1373
+    Width = 1365
     Height = 62
     AutoSize = True
     ButtonHeight = 30
@@ -205,7 +205,7 @@ object frmContractListNX: TfrmContractListNX
   object cxGrid1: TcxGrid
     Left = 0
     Top = 139
-    Width = 1373
+    Width = 1365
     Height = 362
     Align = alTop
     TabOrder = 3
@@ -462,7 +462,7 @@ object frmContractListNX: TfrmContractListNX
   object Panel1: TPanel
     Left = 0
     Top = 62
-    Width = 1373
+    Width = 1365
     Height = 43
     Align = alTop
     BevelInner = bvRaised
@@ -689,7 +689,7 @@ object frmContractListNX: TfrmContractListNX
   object cxTabControl1: TcxTabControl
     Left = 0
     Top = 105
-    Width = 1373
+    Width = 1365
     Height = 34
     Align = alTop
     Font.Charset = GB2312_CHARSET
@@ -701,7 +701,7 @@ object frmContractListNX: TfrmContractListNX
     TabOrder = 2
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 9
-    Properties.TabIndex = 0
+    Properties.TabIndex = 4
     Properties.Tabs.Strings = (
       #26410#25552#20132
       #24050#25552#20132
@@ -710,14 +710,14 @@ object frmContractListNX: TfrmContractListNX
       #20840#37096)
     OnChange = cxTabControl1Change
     ClientRectBottom = 34
-    ClientRectRight = 1373
+    ClientRectRight = 1365
     ClientRectTop = 26
   end
   object cxGrid2: TcxGrid
     Left = 0
     Top = 509
-    Width = 1373
+    Width = 1365
-    Height = 176
+    Height = 168
     Align = alClient
     TabOrder = 4
     object Tv2: TcxGridDBTableView
@@ -1048,7 +1048,7 @@ object frmContractListNX: TfrmContractListNX
   object cxSplitter2: TcxSplitter
     Left = 0
     Top = 501
-    Width = 1373
+    Width = 1365
     Height = 8
     HotZoneClassName = 'TcxMediaPlayer9Style'
     AlignSplitter = salTop

合同管理(ContractManagement.dll)/U_ContractListNX.pas

@@ -519,7 +519,7 @@ begin
     sql.Add(',Telephone=( select TOP 1  Telephone from BS_Company_Sub X inner join BS_Company_Main Y on X.CoID=Y.CoID where Y.CoType=''¿Í»§'' and Y.Valid=''Y''  and  Y.Code= A.buyno) ');
     sql.Add(' from Contract_Main A inner join Contract_Sub B on A.ConMainId=B.ConMainId ');
     sql.Add(' where A.ConMainId=''' + Trim(CDS_Main.fieldbyname('ConMainId').AsString) + '''');
-    sql.Add(' order by B.XHNo ');
+    sql.Add('  order by cast(B.XHNo as int) ');
     //ShowMessage(SQL.Text);
     Open;
   end;

合同管理(ContractManagement.dll)/U_GetDllForm.pas

@@ -74,6 +74,12 @@ begin
     dtbase := 'chenfengdata';
     user := 'rtsa';
     pswd := 'rightsoft@5740';
+//
+//    server := '127.0.0.1';
+//    dtbase := 'delphichenfeng';
+//    user := 'sa';
+//    pswd := 'rightsoft';
+
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
 //  DName:='ADMIN';
 //  DParameters1:='¸ßȨÏÞ';

合同管理(ContractManagement.dll)/U_JHFXLIST.dfm

@@ -1,6 +1,6 @@
 object frmjhfxlist: Tfrmjhfxlist
-  Left = 201
+  Left = 383
-  Top = 51
+  Top = 189
   Width = 1293
   Height = 795
   Caption = #35745#21010#20998#26512#34920

合同管理(ContractManagement.dll)/U_JHFXLIST.pas

@@ -11,7 +11,20 @@ uses
   StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
   cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxImage, cxBlobEdit,
   cxImageComboBox, ImgList, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
-  dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
+  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
   Tfrmjhfxlist = class(TForm)
@@ -149,7 +162,7 @@ begin
     Close;
     SQL.Clear;
     sql.Add('exec P_ht_jhlist2 @consubid=''' + Trim(FMainId) + '''');
-
+    //showmessage(sql.text);
     Open;
   end;
   SCreateCDS20(ADOTemp, Order_Sub);

合同管理(ContractManagement.dll)/U_testdll.dfm

@@ -1,6 +1,6 @@
 object Form1: TForm1
-  Left = 203
+  Left = 287
-  Top = 121
+  Top = 401
   Width = 791
   Height = 554
   Caption = 'Form1'

坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\淃커덜쯤\D7szChenfeng\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
+HostApplication=D:\Dp7Repo\淃커덜쯤\D7szChenfeng\툰꼈쯤데덤쇱(PBMDDJ.dll)\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

坯布码单待检(PBMDDJ.dll)/U_GetDllForm.pas

@@ -82,10 +82,15 @@ begin
 
   if Trim(DataBaseStr) = '' then
   begin
-    server := '101.132.143.144,7781';
+//    server := '101.132.143.144,7781';
-    dtbase := 'chenfengdata';
+//    dtbase := 'chenfengdata';
-    user := 'rtsa';
+//    user := 'rtsa';
-    pswd := 'rightsoft@5740';
+//    pswd := 'rightsoft@5740';
+
+    server := '127.0.0.1';
+    dtbase := 'delphichenfeng';
+    user := 'sa';
+    pswd := 'rightsoft';
 
 //    server := '.';
 //    dtbase := 'yiduidata';

坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.dfm

@@ -1,6 +1,6 @@
 object frmSXCKOutList: TfrmSXCKOutList
-  Left = 612
+  Left = 257
-  Top = 524
+  Top = 129
   Width = 1314
   Height = 572
   Caption = #22383#24067#20986#24211#21015#34920
@@ -21,7 +21,7 @@ object frmSXCKOutList: TfrmSXCKOutList
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1306
+    Width = 1298
     Height = 33
     ButtonHeight = 30
     ButtonWidth = 83
@@ -151,7 +151,7 @@ object frmSXCKOutList: TfrmSXCKOutList
   object Panel1: TPanel
     Left = 0
     Top = 33
-    Width = 1306
+    Width = 1298
     Height = 72
     Align = alTop
     BevelInner = bvRaised
@@ -334,8 +334,8 @@ object frmSXCKOutList: TfrmSXCKOutList
   object cxGrid2: TcxGrid
     Left = 0
     Top = 105
-    Width = 1089
+    Width = 1081
-    Height = 436
+    Height = 428
     Align = alClient
     TabOrder = 2
     object Tv1: TcxGridDBTableView
@@ -624,10 +624,10 @@ object frmSXCKOutList: TfrmSXCKOutList
     end
   end
   object Panel2: TPanel
-    Left = 1089
+    Left = 1081
     Top = 105
     Width = 217
-    Height = 436
+    Height = 428
     Align = alRight
     Caption = 'Panel2'
     TabOrder = 3
@@ -635,7 +635,7 @@ object frmSXCKOutList: TfrmSXCKOutList
       Left = 1
       Top = 1
       Width = 215
-      Height = 434
+      Height = 426
       Align = alClient
       TabOrder = 0
       object TvMX: TcxGridDBTableView

坯布码单待检(PBMDDJ.dll)/U_SXCKOutList.pas

@@ -425,6 +425,7 @@ begin
   finally
     frmSXCKOutPut.Free;
   end;
+  initGrid();
 end;
 
 procedure TfrmSXCKOutList.TBEditClick(Sender: TObject);

坯布码单待检(PBMDDJ.dll)/U_SXCKOutPut.dfm

@@ -1,6 +1,6 @@
 object frmSXCKOutPut: TfrmSXCKOutPut
-  Left = 657
+  Left = 414
-  Top = 566
+  Top = 377
   Width = 1215
   Height = 489
   Align = alClient
@@ -20,7 +20,7 @@ object frmSXCKOutPut: TfrmSXCKOutPut
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1207
+    Width = 1199
     Height = 33
     ButtonHeight = 30
     ButtonWidth = 83
@@ -82,8 +82,8 @@ object frmSXCKOutPut: TfrmSXCKOutPut
   object cxGrid2: TcxGrid
     Left = 0
     Top = 33
-    Width = 1207
+    Width = 1199
-    Height = 425
+    Height = 417
     Align = alClient
     TabOrder = 1
     object Tv1: TcxGridDBTableView

坯布码单待检(PBMDDJ.dll)/U_testdll.dfm

@@ -1,6 +1,6 @@
 object Form1: TForm1
-  Left = 203
+  Left = 314
-  Top = 121
+  Top = 397
   Width = 791
   Height = 554
   Caption = 'Form1'

客户供应商管理(Company.dll)/U_Customer.dfm

@@ -1,6 +1,6 @@
 object frmCustomer: TfrmCustomer
-  Left = 232
+  Left = 284
-  Top = 249
+  Top = 358
   Width = 1388
   Height = 650
   Caption = #23458#25143#36164#26009#31649#29702
@@ -137,6 +137,13 @@ object frmCustomer: TfrmCustomer
       Height = 12
       Caption = #22320#21306
     end
+    object Label5: TLabel
+      Left = 639
+      Top = 13
+      Width = 48
+      Height = 12
+      Caption = #23458#25143#31616#31216
+    end
     object Name: TEdit
       Tag = 2
       Left = 238
@@ -173,6 +180,15 @@ object frmCustomer: TfrmCustomer
       TabOrder = 3
       OnChange = NameChange
     end
+    object shortName: TEdit
+      Tag = 2
+      Left = 692
+      Top = 9
+      Width = 89
+      Height = 20
+      TabOrder = 4
+      OnChange = NameChange
+    end
   end
   object cxGrid2: TcxGrid
     Left = 0

客户供应商管理(Company.dll)/U_Customer.pas

@@ -83,6 +83,8 @@ type
     Tv2Column1: TcxGridDBColumn;
     ToolButton5: TToolButton;
     Tv1Column2: TcxGridDBColumn;
+    Label5: TLabel;
+    shortName: TEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);

客户供应商管理(Company.dll)/U_testdll.dfm

@@ -1,6 +1,6 @@
 object Form1: TForm1
-  Left = 203
+  Left = 546
-  Top = 121
+  Top = 403
   Width = 791
   Height = 554
   Caption = 'Form1'
@@ -21,7 +21,7 @@ object Form1: TForm1
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 775
+    Width = 783
     Height = 25
     ButtonWidth = 57
     Caption = 'ToolBar1'

布匹检验(FabricInspection.dll)/ProjectGroup1.bpg

@@ -9,9 +9,15 @@ MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
 DCC = $(ROOT)\bin\dcc32.exe $**
 BRCC = $(ROOT)\bin\brcc32.exe $**
 #------------------------------------------------------------------------------
-PROJECTS = 
+PROJECTS = FabricInspection.dll testDll.exe
 #------------------------------------------------------------------------------
 default: $(PROJECTS)
 #------------------------------------------------------------------------------
 
+FabricInspection.dll: FabricInspection.dpr
+  $(DCC)
+
+testDll.exe: testDll.dpr
+  $(DCC)
+
 

布匹检验(FabricInspection.dll)/U_CiPinChaiJian.pas

@@ -10,7 +10,20 @@ uses
   cxGrid, StdCtrls, cxContainer, cxTextEdit, cxCurrencyEdit, BtnEdit, ExtCtrls,
   ComCtrls, ToolWin, DBClient, ADODB, MovePanel, RM_Dataset, RM_System,
   RM_Common, RM_Class, RM_GridReport, cxLookAndFeels, cxLookAndFeelPainters,
-  cxNavigator;
+  cxNavigator, 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;
 
 function CommOpen(fhandle: hwnd; sCommName: PAnsiChar; IntTime: integer; IsMessage: integer): integer; stdcall; external 'JCYData.DLL';
 

布匹检验(FabricInspection.dll)/U_ClothSCDCGAnPai.dfm

@@ -19,7 +19,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1454
+    Width = 1446
     AutoSize = True
     ButtonHeight = 30
     ButtonWidth = 59
@@ -57,7 +57,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
   object Panel1: TPanel
     Left = 0
     Top = 32
-    Width = 1454
+    Width = 1446
     Height = 58
     Align = alTop
     BevelInner = bvRaised
@@ -309,7 +309,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
     Left = 689
     Top = 90
     Width = 231
-    Height = 598
+    Height = 590
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -462,7 +462,7 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
     Left = 0
     Top = 90
     Width = 689
-    Height = 598
+    Height = 590
     Align = alLeft
     TabOrder = 2
     object Tv3: TcxGridDBTableView
@@ -611,8 +611,8 @@ object frmClothSCDCGAnPai: TfrmClothSCDCGAnPai
   object cxGrid2: TcxGrid
     Left = 920
     Top = 90
-    Width = 534
+    Width = 526
-    Height = 598
+    Height = 590
     Align = alClient
     TabOrder = 4
     object Tv2: TcxGridDBTableView

布匹检验(FabricInspection.dll)/U_ClothSCDCGAnPai.pas

@@ -11,7 +11,21 @@ uses
   cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
   RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox,
   BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
-  dxCore, ActiveX, dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
+  dxCore, ActiveX, 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
   TfrmClothSCDCGAnPai = class(TForm)

布匹检验(FabricInspection.dll)/U_GetDllForm.pas

@@ -65,15 +65,15 @@ begin
   SetLength(pswd, 255);
   if Trim(DataBaseStr) = '' then
   begin
-    server := '101.132.143.144,7781';
+//    server := '101.132.143.144,7781';
-    dtbase := 'chenfengdata';
+//    dtbase := 'chenfengdata';
-    user := 'rtsa';
+//    user := 'rtsa';
-    pswd := 'rightsoft@5740';
+//    pswd := 'rightsoft@5740';
 
-//    server := '.';
+    server := '127.0.0.1';
-//    dtbase := 'yiduidata';
+    dtbase := 'delphichenfeng';
-//    user := 'sa';
+    user := 'sa';
-//    pswd := 'rightsoft';
+    pswd := 'rightsoft';
 
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
 

布匹检验(FabricInspection.dll)/U_GreyInspection.dfm

@@ -1,8 +1,8 @@
 object frmGreyInspection: TfrmGreyInspection
-  Left = 192
+  Left = 402
-  Top = 41
+  Top = 267
   Width = 1316
-  Height = 755
+  Height = 862
   Caption = #26797#32455#22383#24067#26816#39564
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
@@ -22,7 +22,7 @@ object frmGreyInspection: TfrmGreyInspection
     Left = 0
     Top = 85
     Width = 217
-    Height = 639
+    Height = 746
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -764,7 +764,7 @@ object frmGreyInspection: TfrmGreyInspection
     Left = 217
     Top = 85
     Width = 296
-    Height = 639
+    Height = 746
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -773,7 +773,7 @@ object frmGreyInspection: TfrmGreyInspection
       Left = 2
       Top = 113
       Width = 292
-      Height = 524
+      Height = 631
       Align = alClient
       Font.Charset = GB2312_CHARSET
       Font.Color = clBlue
@@ -1145,7 +1145,7 @@ object frmGreyInspection: TfrmGreyInspection
     Left = 513
     Top = 85
     Width = 795
-    Height = 639
+    Height = 746
     Align = alClient
     TabOrder = 3
     object Tv3: TcxGridDBTableView
@@ -1652,4 +1652,9 @@ object frmGreyInspection: TfrmGreyInspection
       Font.Style = [fsBold]
     end
   end
+  object ADOQuery1: TADOQuery
+    Parameters = <>
+    Left = 824
+    Top = 192
+  end
 end

布匹检验(FabricInspection.dll)/U_GreyInspection.pas

@@ -156,6 +156,7 @@ type
     ToolButton6: TToolButton;
     Tv3Column5: TcxGridDBColumn;
     Tv3Column6: TcxGridDBColumn;
+    ADOQuery1: TADOQuery;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -739,11 +740,12 @@ begin
   if not ADOTmp.IsEmpty then
   begin
 //    FAPID := Trim(ADOTmp.fieldbyname('apid').AsString);
+//    FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString);
     FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString);
     FMainId := Trim(ADOTmp.fieldbyname('MainId').AsString);
     FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
     FMJCode := Trim(ADOTmp.fieldbyname('P_Code').AsString);
-    FMJName := Trim(ADOTmp.fieldbyname('P_CodeName').AsString);
+    FMJName := Trim(ADOTmp.fieldbyname('P_CodeName').AsStSring);
     FMJSpec := Trim(ADOTmp.fieldbyname('P_Spec').AsString);
     FMJMF := Trim(ADOTmp.fieldbyname('P_MF').AsString);
 
@@ -1290,13 +1292,21 @@ begin
         end;
       end;
 
+      with ADOQuery1 do
+      begin
+        Close;
+        sql.Clear;
+        SQL.Add('select * from PD_Plan_Card where PCID=''' + Trim(FPCID) + '''');
+        Open;
+      end;
+
       FieldByName('MainId').value := Trim(FMainId);
       FieldByName('SubId').value := Trim(FSubId);
       FieldByName('APId').value := Trim(FAPID);
 
       FieldByName('pcid').value := Trim(FPCID);
 
-      FieldByName('BatchNO').value := Trim(FBatchNO);
+      FieldByName('BatchNO').value := Trim(ADOQuery1.FieldByName('edzdfno').AsString);
       FieldByName('P_Code').value := Trim(FMJCode);
       FieldByName('P_CodeName').value := Trim(FMJName);
       FieldByName('P_Spec').value := Trim(FMJSpec);
@@ -1315,6 +1325,8 @@ begin
       FieldByName('Person1').Value := trim(Person1.Text);
       FieldByName('Person2').Value := trim(Person2.Text);
       FieldByName('Person3').Value := trim(Person3.Text);
+      FieldByName('Person4').Value := trim(Person4.Text);
+      FieldByName('Person5').Value := trim(Person5.Text);
 
       FieldByName('group1').Value := trim(Person1.hint);
       FieldByName('group2').Value := trim(Person2.hint);
@@ -1322,8 +1334,6 @@ begin
       FieldByName('group4').Value := trim(Person4.hint);
       FieldByName('group5').Value := trim(Person5.hint);
 
-      FieldByName('Person4').Value := trim(Person4.Text);
-      FieldByName('Person5').Value := trim(Person5.Text);
       //µ²³µ¹¤³¤¶È
       FieldByName('JYLen1').Value := StrToFloatdef(trim(JYLen1.Text), 0);
       FieldByName('JYLen2').Value := StrToFloatdef(trim(JYLen2.Text), 0);
@@ -1470,6 +1480,7 @@ var
   fPrintFile: string;
   mvalue: Double;
   i: Integer;
+  Result: Boolean;
 begin
   BTPrint.Enabled := False;
   Scan.SetFocus;
@@ -1485,6 +1496,9 @@ begin
     BTPrint.Enabled := True;
     exit;
   end;
+
+
+
   if FAPID = '' then
   begin
     with ADOCmd do
@@ -1492,7 +1506,6 @@ begin
       close;
       sql.Clear;
       sql.Add(' select c_pie,edZDFNo,YJPS=ISNULL((SELECT COUNT(*) FROM  JY_Cloth F WHERE F.PCID=E.PCID ),0) from pd_plan_card e where e.pcid= ' + QuotedStr(FPCID));
-
       open;
     end;
     if ADOCmd.FieldByName('YJPS').AsFloat >= ADOCmd.FieldByName('c_pie').AsFloat then
@@ -1502,9 +1515,10 @@ begin
         BTPrint.Enabled := True;
         Exit;
       end;
+    end;
+  end;
+
 
-    end;
-  end;
 
   if SaveData() then
   begin
@@ -2287,42 +2301,72 @@ begin
 end;
 
 procedure TfrmGreyInspection.JYLen1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  if Button = mbLeft then
   begin
     if Trim(person1.Text) = '' then
     begin
-    raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤1!');
+      Application.MessageBox('请先输入挡车工1！', '提示', MB_OK + MB_ICONWARNING);
+      if Person1.CanFocus then
+        Person1.SetFocus;
+      Abort;
+    end;
   end;
 end;
 
 procedure TfrmGreyInspection.JYLen2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  if Button = mbLeft then
   begin
     if Trim(person2.Text) = '' then
     begin
-    raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤2!');
+      Application.MessageBox('请先输入挡车工2！', '提示', MB_OK + MB_ICONWARNING);
+      if Person2.CanFocus then
+        Person2.SetFocus;
+      Abort;
+    end;
   end;
 end;
 
 procedure TfrmGreyInspection.JYLen3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  if Button = mbLeft then
   begin
     if Trim(person3.Text) = '' then
     begin
-    raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤3!');
+      Application.MessageBox('请先输入挡车工3！', '提示', MB_OK + MB_ICONWARNING);
+      if Person3.CanFocus then
+        Person3.SetFocus;
+      Abort;
+    end;
   end;
 end;
 
 procedure TfrmGreyInspection.JYLen4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  if Button = mbLeft then
   begin
     if Trim(person4.Text) = '' then
     begin
-    raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤4!');
+      Application.MessageBox('请先输入挡车工1！', '提示', MB_OK + MB_ICONWARNING);
+      if Person4.CanFocus then
+        Person4.SetFocus;
+      Abort;
+    end;
   end;
 end;
 
 procedure TfrmGreyInspection.JYLen5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  if Button = mbLeft then
   begin
     if Trim(person5.Text) = '' then
     begin
-    raise Exception.Create('ÏÈÊäÈëµ²³µ¹¤5!');
+      Application.MessageBox('请先输入挡车工5！', '提示', MB_OK + MB_ICONWARNING);
+      if Person5.CanFocus then
+        Person5.SetFocus;
+      Abort;
+    end;
   end;
 end;
 

布匹检验(FabricInspection.dll)/U_testdll.dfm

@@ -1,6 +1,6 @@
 object Form1: TForm1
-  Left = 155
+  Left = 480
-  Top = 182
+  Top = 300
   Width = 791
   Height = 554
   Caption = 'Form1'

布匹检验(FabricInspection.dll)/testDll.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\坯布码单待检DDMD.dll)\testDll.exe
+HostApplication=D:\Dp7Repo\ÏîÄ¿´úÂë\D7szChenfeng\²¼Æ¥¼ìÑé(FabricInspection.dll)\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

应收应付/U_FDINVOICE.dfm

@@ -1,6 +1,6 @@
 object frmFDINVOICE: TfrmFDINVOICE
-  Left = 173
+  Left = 168
-  Top = 86
+  Top = 455
   Width = 1378
   Height = 754
   Caption = #36827#39033#21457#31080#31649#29702
@@ -20,7 +20,7 @@ object frmFDINVOICE: TfrmFDINVOICE
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1370
+    Width = 1362
     Height = 31
     ButtonHeight = 30
     ButtonWidth = 83
@@ -141,7 +141,7 @@ object frmFDINVOICE: TfrmFDINVOICE
   object Panel1: TPanel
     Left = 0
     Top = 31
-    Width = 1370
+    Width = 1362
     Height = 69
     Align = alTop
     BevelInner = bvRaised
@@ -324,7 +324,7 @@ object frmFDINVOICE: TfrmFDINVOICE
   object cxGrid1: TcxGrid
     Left = 0
     Top = 121
-    Width = 1370
+    Width = 1362
     Height = 310
     Align = alTop
     PopupMenu = PopupMenu1
@@ -459,7 +459,7 @@ object frmFDINVOICE: TfrmFDINVOICE
   object cxTabControl1: TcxTabControl
     Left = 0
     Top = 100
-    Width = 1370
+    Width = 1362
     Height = 21
     Align = alTop
     TabOrder = 2
@@ -477,8 +477,8 @@ object frmFDINVOICE: TfrmFDINVOICE
   object cxGrid2: TcxGrid
     Left = 0
     Top = 431
-    Width = 1370
+    Width = 1362
-    Height = 292
+    Height = 284
     Align = alClient
     TabOrder = 4
     object TV2: TcxGridDBTableView

应收应付/U_FDINVOICE.pas

@@ -14,7 +14,20 @@ uses
   IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
   cxTextEdit, cxDropDownEdit, cxPC, RM_e_Xls, Menus, cxLookAndFeels,
   cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, DateUtils,
-  dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
+  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
   TfrmFDINVOICE = class(TForm)

应收应付/U_FKCR.dfm

@@ -1,6 +1,6 @@
 object frmFKCR: TfrmFKCR
-  Left = 348
+  Left = 350
-  Top = 170
+  Top = 226
   Width = 990
   Height = 618
   Caption = #20184#27454#30331#35760
@@ -19,7 +19,7 @@ object frmFKCR: TfrmFKCR
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 974
+    Width = 982
     Height = 31
     ButtonHeight = 30
     ButtonWidth = 83
@@ -116,7 +116,7 @@ object frmFKCR: TfrmFKCR
   object Panel1: TPanel
     Left = 0
     Top = 31
-    Width = 974
+    Width = 982
     Height = 66
     Align = alTop
     BevelInner = bvRaised
@@ -209,7 +209,7 @@ object frmFKCR: TfrmFKCR
   object cxTabControl1: TcxTabControl
     Left = 0
     Top = 97
-    Width = 974
+    Width = 982
     Height = 22
     Align = alTop
     TabOrder = 2
@@ -222,13 +222,13 @@ object frmFKCR: TfrmFKCR
       #20840#37096)
     OnChange = cxTabControl1Change
     ClientRectBottom = 22
-    ClientRectRight = 974
+    ClientRectRight = 982
     ClientRectTop = 19
   end
   object cxGrid1: TcxGrid
     Left = 0
-    Top = 342
+    Top = 350
-    Width = 974
+    Width = 982
     Height = 237
     Align = alBottom
     TabOrder = 4
@@ -308,8 +308,8 @@ object frmFKCR: TfrmFKCR
   object cxGrid2: TcxGrid
     Left = 0
     Top = 119
-    Width = 974
+    Width = 982
-    Height = 223
+    Height = 231
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 3
@@ -335,6 +335,7 @@ object frmFKCR: TfrmFKCR
         end
         item
           Kind = skSum
+          Column = v2Column5
         end>
       DataController.Summary.SummaryGroups = <>
       OptionsCustomize.ColumnFiltering = False

应收应付/U_GetDllForm.pas

@@ -66,11 +66,17 @@ begin
 
   if Trim(DataBaseStr) = '' then
   begin
-    server := '101.132.143.144,7781';
+//    server := '101.132.143.144,7781';
+////  server := '.';
+//    dtbase := 'chenfengdata';
+//    user := 'rtsa';
+//    pswd := 'rightsoft@5740';
+
+    server := '127.0.0.1';
 //  server := '.';
-    dtbase := 'chenfengdata';
+    dtbase := 'delphichenfeng';
-    user := 'rtsa';
+    user := 'sa';
-    pswd := 'rightsoft@5740';
+    pswd := 'rightsoft';
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
 //    Parameters2 := 'Ö¯Ôì';
   end

应收应付/U_PBRKlistSel2.dfm

@@ -1,8 +1,8 @@
 object frmPBRKlistSel2: TfrmPBRKlistSel2
-  Left = 197
+  Left = 287
-  Top = 139
+  Top = 711
   Width = 1378
-  Height = 615
+  Height = 525
   Caption = #22383#24067#20837#24211#21015#34920
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
@@ -192,6 +192,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
       Width = 80
       Height = 20
       TabOrder = 2
+      OnChange = ToolButton1Click
     end
     object FactoryName: TEdit
       Tag = 2
@@ -200,6 +201,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
       Width = 80
       Height = 20
       TabOrder = 3
+      OnChange = ToolButton1Click
     end
     object SPID: TEdit
       Tag = 2
@@ -208,6 +210,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
       Width = 80
       Height = 20
       TabOrder = 4
+      OnChange = ToolButton1Click
     end
     object SPSpec: TEdit
       Tag = 2
@@ -216,6 +219,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
       Width = 80
       Height = 20
       TabOrder = 5
+      OnChange = ToolButton1Click
     end
     object CRType: TComboBox
       Tag = 2
@@ -226,6 +230,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
       Style = csDropDownList
       ItemHeight = 12
       TabOrder = 6
+      OnChange = ToolButton1Click
       Items.Strings = (
         #21152#24037#20986#24211
         #38144#21806#20986#24211
@@ -243,6 +248,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
       Width = 80
       Height = 20
       TabOrder = 7
+      OnChange = ToolButton1Click
     end
     object SPCode: TEdit
       Tag = 2
@@ -251,6 +257,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
       Width = 77
       Height = 20
       TabOrder = 8
+      OnChange = ToolButton1Click
     end
     object FZSPID: TEdit
       Tag = 2
@@ -259,6 +266,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
       Width = 77
       Height = 20
       TabOrder = 9
+      OnChange = ToolButton1Click
     end
   end
   object cxTabControl1: TcxTabControl
@@ -288,7 +296,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
     Left = 0
     Top = 117
     Width = 1362
-    Height = 459
+    Height = 369
     Align = alClient
     TabOrder = 3
     object Tv1: TcxGridDBTableView
@@ -491,7 +499,7 @@ object frmPBRKlistSel2: TfrmPBRKlistSel2
     Left = 0
     Top = 117
     Width = 1362
-    Height = 459
+    Height = 369
     Align = alClient
     TabOrder = 4
     object cxGridDBTableView1: TcxGridDBTableView

应收应付/U_SXCKNewList.dfm

@@ -1,8 +1,8 @@
 object frmSXCKNewList: TfrmSXCKNewList
-  Left = 122
+  Left = 301
-  Top = 178
+  Top = 582
   Width = 1289
-  Height = 593
+  Height = 541
   Caption = #32433#32447#20449#24687#21015#34920
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
@@ -237,7 +237,7 @@ object frmSXCKNewList: TfrmSXCKNewList
     Left = 0
     Top = 121
     Width = 1273
-    Height = 433
+    Height = 381
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 3
@@ -291,7 +291,7 @@ object frmSXCKNewList: TfrmSXCKNewList
         HeaderAlignmentHorz = taCenter
         Styles.Content = cxStyle1
         Styles.Header = cxStyle1
-        Width = 80
+        Width = 87
       end
       object v1Column6: TcxGridDBColumn
         Caption = #20986#20837#24211#21333#21495
@@ -300,7 +300,7 @@ object frmSXCKNewList: TfrmSXCKNewList
         Options.Editing = False
         Styles.Content = cxStyle1
         Styles.Header = cxStyle1
-        Width = 83
+        Width = 105
       end
       object v1Column2: TcxGridDBColumn
         Tag = 2
@@ -484,7 +484,7 @@ object frmSXCKNewList: TfrmSXCKNewList
         Options.Editing = False
         Styles.Content = cxStyle1
         Styles.Header = cxStyle1
-        Width = 66
+        Width = 118
       end
       object v1Column21: TcxGridDBColumn
         Caption = #36816#36153

应收应付/U_SXCKNewList.pas

@@ -301,12 +301,15 @@ begin
       Filtered := False;
       Close;
       sql.Clear;
-      sql.Add(' select money=price*Qty,A.* ');
+      sql.Add(' select ');
+      sql.Add('   case when A.CRType = ''退货'' then -price*A.Qty else price*A.Qty end as money, ');
+      sql.Add('   case when A.CRType = ''退货'' then -A.Qty else A.Qty end as Qty, ');
+      sql.Add('   A.* ');
       sql.Add(' from CK_Yarn_CR A');
       sql.add(' where A.CRTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
       sql.Add(' and A.CRTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
       Sql.Add(' and CWFlag=0 and CKName=' + quotedstr(trim(FCKName)));
-      sql.Add(' and CRType in(''采购入库'',''期初入库'',''加工完成'',''加工未做回仓'',''织造未做回仓'' )');
+      sql.Add(' and CRType in(''采购入库'',''期初入库'',''加工完成'',''加工未做回仓'',''织造未做回仓'',''退货'' )');
 
       if cxTabControl1.TabIndex = 0 then
         SQL.Add(' and not exists(select YFPZNO from YF_Money_CR_Sub X where X.YFPZNO=A.Y_ID ) ')

应收应付/U_XXFPHXList.dfm

@@ -1,6 +1,6 @@
 object frmXXFPHXList: TfrmXXFPHXList
-  Left = 285
+  Left = 335
-  Top = 179
+  Top = 181
   Width = 976
   Height = 649
   Caption = #26680#38144#20449#24687#26597#35810
@@ -192,13 +192,13 @@ object frmXXFPHXList: TfrmXXFPHXList
     Left = 0
     Top = 88
     Width = 960
-    Height = 523
+    Height = 522
     Align = alClient
     TabOrder = 2
     object Tv2: TcxGridDBTableView
-      NavigatorButtons.ConfirmDelete = False
+      Navigator.Buttons.CustomButtons = <>
-      NavigatorButtons.Delete.Enabled = False
+      Navigator.Buttons.Delete.Enabled = False
-      NavigatorButtons.Delete.Visible = False
+      Navigator.Buttons.Delete.Visible = False
       DataController.DataSource = DS_HZ
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
       DataController.Summary.DefaultGroupSummaryItems = <>

应收应付/U_XXFPHXList.pas

@@ -12,7 +12,22 @@ uses
   cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
   RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
-  cxButtonEdit, cxTextEdit;
+  cxButtonEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters,
+  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,
+  cxNavigator;
 
 type
   TfrmXXFPHXList = class(TForm)

应收应付/U_XXPRICE.dfm

@@ -0,0 +1,136 @@
+object frmXXPRICE: TfrmXXPRICE
+  Left = 544
+  Top = 235
+  Width = 242
+  Height = 135
+  Caption = #21333#20215#20462#25913
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 226
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_YSYF.ThreeImgList
+    Flat = True
+    Images = DataLink_YSYF.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object ToolButton3: TToolButton
+      Left = 0
+      Top = 0
+      Caption = #30830#23450
+      ImageIndex = 54
+      OnClick = ToolButton3Click
+    end
+    object TBClose: TToolButton
+      Left = 59
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 31
+    Width = 226
+    Height = 65
+    Align = alClient
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label4: TLabel
+      Left = 16
+      Top = 21
+      Width = 42
+      Height = 12
+      Caption = #21333'   '#20215
+    end
+    object price: TEdit
+      Tag = 2
+      Left = 68
+      Top = 17
+      Width = 89
+      Height = 20
+      TabOrder = 0
+    end
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_YSYF.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 789
+    Top = 9
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_YSYF.ADOLink
+    Parameters = <>
+    Left = 829
+    Top = 1
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 424
+    Top = 208
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    Left = 384
+    Top = 208
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 520
+    Top = 264
+  end
+  object DS_HZ: TDataSource
+    DataSet = CDS_HZ
+    Left = 443
+    Top = 267
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 496
+    Top = 208
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_YSYF.ADOLink
+    Parameters = <>
+    Left = 340
+    Top = 208
+  end
+end

应收应付/U_XXPRICE.pas

@@ -0,0 +1,177 @@
+unit U_XXPRICE;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
+  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
+  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
+  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
+  cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, 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, cxNavigator;
+
+type
+  TfrmXXPRICE = class(TForm)
+    ToolBar1: TToolBar;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Panel1: TPanel;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DS_HZ: TDataSource;
+    CDS_HZ: TClientDataSet;
+    Label4: TLabel;
+    price: TEdit;
+    ADOQueryMain: TADOQuery;
+    TBClose: TToolButton;
+    ToolButton3: TToolButton;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    RKFlag, FCYID, FFFID: string;
+    FFromNo, FTONO: string;
+  end;
+
+var
+  frmXXPRICE: TfrmXXPRICE;
+
+implementation
+
+uses
+  U_DataLink, U_Fun10, U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmXXPRICE.FormDestroy(Sender: TObject);
+begin
+  frmXXPRICE := nil;
+end;
+
+procedure TfrmXXPRICE.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action := caFree;
+end;
+
+procedure TfrmXXPRICE.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+//procedure TfrmXXPRICE.ToolButton3Click(Sender: TObject);
+//begin
+//  if StrToFloatDef(Price.Text, 0) = 0 then
+//    Price.Text := '0';
+//  try
+//    with ADOQueryCmd do
+//    begin
+//      Close;
+//      sql.Clear;
+//      sql.Add(' update YF_Money_CR_Sub   ');
+//      sql.Add(' set Price = ' + Price.Text);
+//        // 使用IN子句批量更新
+//      sql.Add(' where YF_Money_CR_Sub.yfsid in (' + FFFID + ')');
+//
+//
+//      ExecSQL;
+//    end;
+//    ModalResult := 1;
+//  except
+//    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+//  end;
+//end;
+procedure TfrmXXPRICE.ToolButton3Click(Sender: TObject);
+var
+  IDList: TStringList;
+  i: Integer;
+  QuotedIDs: string;
+begin
+  // 如果价格输入为空或无效，设为0
+  if StrToFloatDef(Price.Text, 0) = 0 then
+    Price.Text := '0';
+
+  // 检查是否有选中的ID
+  if Trim(FFFID) = '' then
+  begin
+    Application.MessageBox('没有选择要更新的记录！', '提示信息', 0);
+    Exit;
+  end;
+
+  try
+    // 给每个ID添加引号
+    IDList := TStringList.Create;
+    try
+      IDList.CommaText := FFFID;  // 将逗号分隔的字符串分解
+      QuotedIDs := '';
+      for i := 0 to IDList.Count - 1 do
+      begin
+        if QuotedIDs = '' then
+          QuotedIDs := QuotedStr(IDList[i])
+        else
+          QuotedIDs := QuotedIDs + ',' + QuotedStr(IDList[i]);
+      end;
+
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add(' update YF_Money_CR_Sub   ');
+        sql.Add(' set Price = ' + Price.Text);
+        
+        // 使用添加了引号的ID列表
+        sql.Add(' where YF_Money_CR_Sub.yfsid in (' + QuotedIDs + ')');
+        
+        ExecSQL;
+      end;
+    finally
+      IDList.Free;
+    end;
+    
+    // 更新成功，返回1（成功标志）
+    ModalResult := 1;
+  except
+    on E: Exception do
+      Application.MessageBox(PChar(E.Message), '提示信息', 0);
+  end;
+end;
+
+end.
+
+
+
+//with ADOQueryCmd do
+//    begin
+//      Close;
+//      sql.Clear;
+//      sql.Add(' update YF_Money_CR_Sub   ');
+//      sql.Add(' set Price = ' + Price.Text);
+//      sql.Add(' where exists(select 1 from YF_Money_CR ');
+//      sql.Add(' where YF_Money_CR.yfid = YF_Money_CR_Sub.yfid ');
+//      sql.Add(' and YF_Money_CR.yfid in (select X.RTValue from [dbo].[F_Tool_SplitString](' + quotedstr(FFFID) + ','','') X)) ');
+////      showmessage(sql.text);
+//      ExecSQL;
+//    end;
+
+

应收应付/U_YFCR.dfm

@@ -1,8 +1,8 @@
 object frmYFCR: TfrmYFCR
-  Left = 198
+  Left = 292
-  Top = 112
+  Top = 611
   Width = 1181
-  Height = 661
+  Height = 703
   Caption = #24212#20184#27454#31649#29702
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
@@ -236,7 +236,7 @@ object frmYFCR: TfrmYFCR
     Left = 0
     Top = 118
     Width = 1165
-    Height = 267
+    Height = 309
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 3
@@ -436,7 +436,7 @@ object frmYFCR: TfrmYFCR
   end
   object cxGrid1: TcxGrid
     Left = 0
-    Top = 385
+    Top = 427
     Width = 1165
     Height = 237
     Align = alBottom
@@ -466,6 +466,7 @@ object frmYFCR: TfrmYFCR
         end
         item
           Kind = skSum
+          Column = v1Column5
         end>
       DataController.Summary.SummaryGroups = <>
       OptionsCustomize.ColumnFiltering = False

应收应付/U_YFCRMXList.dfm

@@ -1,6 +1,6 @@
 object frmYFCRMXList: TfrmYFCRMXList
-  Left = 273
+  Left = 365
-  Top = 107
+  Top = 143
   Width = 1018
   Height = 688
   Caption = #24212#20184#27454#26126#32454#26597#35810
@@ -22,7 +22,7 @@ object frmYFCRMXList: TfrmYFCRMXList
     Width = 1002
     Height = 31
     ButtonHeight = 30
-    ButtonWidth = 59
+    ButtonWidth = 83
     Caption = 'ToolBar1'
     Color = clSkyBlue
     DisabledImages = DataLink_YSYF.ThreeImgList
@@ -56,9 +56,16 @@ object frmYFCRMXList: TfrmYFCRMXList
       ImageIndex = 53
       OnClick = ToolButton1Click
     end
-    object TBClose: TToolButton
+    object ToolButton3: TToolButton
       Left = 189
       Top = 0
+      Caption = #21333#20215#20462#25913
+      ImageIndex = 54
+      OnClick = ToolButton3Click
+    end
+    object TBClose: TToolButton
+      Left = 272
+      Top = 0
       AutoSize = True
       Caption = #20851#38381
       ImageIndex = 55
@@ -208,6 +215,18 @@ object frmYFCRMXList: TfrmYFCRMXList
         end
         item
           Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Price
+        end
+        item
+          Kind = skSum
+          Column = v1Column7
+        end
+        item
+          Kind = skSum
+          Column = v1Column5
         end>
       DataController.Summary.SummaryGroups = <>
       OptionsCustomize.ColumnFiltering = False
@@ -217,6 +236,12 @@ object frmYFCRMXList: TfrmYFCRMXList
       OptionsView.GroupByBox = False
       OptionsView.Indicator = True
       Styles.Header = DataLink_YSYF.FonePurple
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'ssel'
+        HeaderAlignmentHorz = taCenter
+        Width = 88
+      end
       object v1Column8: TcxGridDBColumn
         Caption = #26085#26399
         DataBinding.FieldName = 'CRTime'
@@ -393,6 +418,12 @@ object frmYFCRMXList: TfrmYFCRMXList
         Styles.Header = cxStyle1
         Width = 66
       end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #20986#21040#21152#24037#21378'/'#23458#25143
+        DataBinding.FieldName = 'ToFactoryName'
+        HeaderAlignmentHorz = taCenter
+        Width = 156
+      end
       object Tv1Column2: TcxGridDBColumn
         Caption = #24635#22791#27880
         DataBinding.FieldName = 'note'

应收应付/U_YFCRMXList.pas

@@ -85,6 +85,9 @@ type
     cxStyle1: TcxStyle;
     Tv1Column1: TcxGridDBColumn;
     Tv1Column2: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
+    ToolButton3: TToolButton;
+    Tv1Column4: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -100,6 +103,7 @@ type
     procedure YFGSTypeChange(Sender: TObject);
     procedure Tv1DblClick(Sender: TObject);
     procedure chk1Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
   private
     { Private declarations }
 
@@ -110,6 +114,7 @@ type
     { Public declarations }
     FCYID: string;
     fmanage: string;
+    FFFID: string;
   end;
 
 var
@@ -119,7 +124,7 @@ implementation
 
 uses
   U_DataLink, U_Fun, U_SXCKNewList, U_YSSCList, U_YsScXsList, U_YSKInput,
-  U_XXFPHXList;
+  U_XXFPHXList, U_XXPRICE;
 
 {$R *.dfm}
 procedure TfrmYFCRMXList.SetStatus();
@@ -316,5 +321,186 @@ begin
   InitGrid();
 end;
 
+//procedure TfrmYFCRMXList.ToolButton3Click(Sender: TObject);
+//var
+//  i: Integer;
+//  SelectedIDs: string;
+//  Bookmark: TBookmarkStr;
+//begin
+//  SelectedIDs := '';
+//  with SELF.CDS_YFS do
+//  begin
+//    DisableControls;
+//    try
+//      Bookmark := Bookmark;
+//
+//      First;
+//      while not Eof do
+//      begin
+//        // 判断是否选中（假设选择列字段名为'ssel'）
+//        if FieldByName('ssel').AsBoolean then
+//        begin
+//          if SelectedIDs = '' then
+//            SelectedIDs := FieldByName('yfsid').AsString
+//          else
+//            SelectedIDs := SelectedIDs + ',' + FieldByName('yfsid').AsString;
+//        end;
+//        Next;
+//      end;
+//
+//      // 恢复原记录位置
+//      if Bookmark <> '' then
+//        GotoBookmark(Pointer(Bookmark));
+//    finally
+//      EnableControls;
+//    end;
+//  end;
+//
+//  // 如果没有选中任何记录，提示用户
+//  if SelectedIDs = '' then
+//  begin
+//    Application.MessageBox('请先选择要修改价格的记录！', '提示信息', 0);
+//    Exit;
+//  end;
+//
+//  // 打开价格修改窗体
+//  try
+//    frmXXPRICE := TfrmXXPRICE.Create(Application);
+//    with frmXXPRICE do
+//    begin
+//      // 传递选中的多个ID（用逗号分隔）
+//      FFFID := SelectedIDs;
+//      // 显示模态窗体，等待用户操作
+//      if ShowModal = 1 then
+//      begin
+//        // 如果返回1，刷新主窗体数据
+//        InitGrid();
+//      end;
+//    end;
+//  finally
+//    frmXXPRICE.Free;
+//  end;
+//end;
+
+
+procedure TfrmYFCRMXList.ToolButton3Click(Sender: TObject);
+var
+  SelectedIDs: string;
+  Bookmark: TBookmarkStr;
+begin
+  SelectedIDs := '';
+
+  with SELF.CDS_YFS do
+  begin
+    DisableControls;
+    try
+      Bookmark := Bookmark;
+
+      First;
+      while not Eof do
+      begin
+        if FieldByName('ssel').AsBoolean then
+        begin
+          if SelectedIDs = '' then
+            SelectedIDs := FieldByName('yfsid').AsString
+          else
+            SelectedIDs := SelectedIDs + ',' + FieldByName('yfsid').AsString;
+        end;
+        Next;
+      end;
+    finally
+      if Bookmark <> '' then
+        GotoBookmark(Pointer(Bookmark));
+      EnableControls;
+    end;
+  end;
+  if SelectedIDs = '' then
+  begin
+    Application.MessageBox('请先选择要修改价格的记录！', '提示信息', 0);
+    Exit;
+  end;
+  try
+    frmXXPRICE := TfrmXXPRICE.Create(Application);
+    with frmXXPRICE do
+    begin
+      FFFID := SelectedIDs;
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmXXPRICE.Free;
+  end;
+end;
+
+
 end.
 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+//procedure TfrmYFCRMXList.ToolButton3Click(Sender: TObject);
+//var
+//  SelectedIDs: string;
+//  Bookmark: TBookmarkStr;
+//begin
+//  SelectedIDs := '';
+//
+//  with SELF.CDS_YFS do
+//  begin
+//    DisableControls;
+//    try
+//      Bookmark := Bookmark;
+//
+//      First;
+//      while not Eof do
+//      begin
+//        if FieldByName('ssel').AsBoolean then
+//        begin
+//          if SelectedIDs = '' then
+//            SelectedIDs := FieldByName('yfsid').AsString
+//          else
+//            SelectedIDs := SelectedIDs + ',' + FieldByName('yfsid').AsString;
+//        end;
+//        Next;
+//      end;
+//    finally
+//      if Bookmark <> '' then
+//        GotoBookmark(Pointer(Bookmark));
+//      EnableControls;
+//    end;
+//  end;
+//  if SelectedIDs = '' then
+//  begin
+//    Application.MessageBox('请先选择要修改价格的记录！', '提示信息', 0);
+//    Exit;
+//  end;
+//  try
+//    frmXXPRICE := TfrmXXPRICE.Create(Application);
+//    with frmXXPRICE do
+//    begin
+//      FFFID := SelectedIDs;
+//      if ShowModal = 1 then
+//      begin
+//        InitGrid();
+//      end;
+//    end;
+//  finally
+//    frmXXPRICE.Free;
+//  end;
+//end;
+
+

应收应付/U_YFFKList.dfm

@@ -1,8 +1,8 @@
 object frmYFFKList: TfrmYFFKList
-  Left = 281
+  Left = 346
-  Top = 123
+  Top = 322
   Width = 1134
-  Height = 618
+  Height = 569
   Caption = #24212#20184#27454#20184#27454#32479#35745
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
@@ -162,7 +162,7 @@ object frmYFFKList: TfrmYFFKList
     Left = 0
     Top = 92
     Width = 1118
-    Height = 487
+    Height = 438
     Align = alClient
     TabOrder = 3
     object Tv2: TcxGridDBTableView
@@ -194,6 +194,11 @@ object frmYFFKList: TfrmYFFKList
         end
         item
           Kind = skSum
+          Column = Tv2Column2
+        end
+        item
+          Kind = skSum
+          Column = Tv2Column3
         end
         item
           Kind = skSum
@@ -206,9 +211,7 @@ object frmYFFKList: TfrmYFFKList
         end
         item
           Kind = skSum
-        end
+          Column = Tv2Column3
-        item
-          Kind = skSum
         end
         item
           Kind = skSum

应收应付/U_YFKInput.dfm

@@ -1,6 +1,6 @@
 object frmYFKInput: TfrmYFKInput
-  Left = 424
+  Left = 237
-  Top = 208
+  Top = 189
   Width = 993
   Height = 569
   Caption = #20449#24687#24405#20837
@@ -572,6 +572,12 @@ object frmYFKInput: TfrmYFKInput
         Styles.Header = cxStyle1
         Width = 81
       end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #20986#21040#21152#24037#21378'/'#23458#25143
+        DataBinding.FieldName = 'ToFactoryName'
+        HeaderAlignmentHorz = taCenter
+        Width = 124
+      end
       object v1note: TcxGridDBColumn
         Caption = #22791#27880
         DataBinding.FieldName = 'MxNote'

应收应付/U_YFKInput.pas

@@ -87,6 +87,7 @@ type
     cxStyleRepository1: TcxStyleRepository;
     cxStyle1: TcxStyle;
     ToolButton4: TToolButton;
+    Tv1Column2: TcxGridDBColumn;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TSaveClick(Sender: TObject);
@@ -606,9 +607,10 @@ begin
             self.YFSub.FieldByName('CPSpec').Value := CDS_Main.FieldByName('Y_Spec').Value;
             self.YFSub.FieldByName('CPBatchNO').Value := CDS_Main.FieldByName('BatchNO').Value;
             self.YFSub.FieldByName('danbao').Value := CDS_Main.FieldByName('danbao').Value;
+            self.YFSub.FieldByName('MXNote').Value := CDS_Main.FieldByName('Note').Value;
             if Trim(CDS_Main.fieldbyname('CRType').AsString) = 'ÍË»õ' then
             begin
-              CQtyFlag := -1;
+              CQtyFlag := 1;
               CKXType := 'É´ÏßÍË»õ';
             end
             else if Trim(CDS_Main.fieldbyname('CRType').AsString) = '²É¹ºÈë¿â' then
@@ -622,8 +624,10 @@ begin
               CKXType := 'É´Ïß¼Ó¹¤';
             end;
             self.YFSub.FieldByName('KXType').Value := CKXType;
-            self.YFSub.FieldByName('PS').Value := CQtyFlag * CDS_Main.FieldByName('PiQty').AsInteger;
+//            self.YFSub.FieldByName('PS').Value := CQtyFlag * CDS_Main.FieldByName('PiQty').AsInteger;
-            self.YFSub.FieldByName('Qty').Value := CQtyFlag * CDS_Main.FieldByName('Qty').AsFloat;
+//            self.YFSub.FieldByName('Qty').Value := CQtyFlag * CDS_Main.FieldByName('Qty').AsFloat;
+            self.YFSub.FieldByName('PS').Value := CDS_Main.FieldByName('PiQty').AsInteger;
+            self.YFSub.FieldByName('Qty').Value := CDS_Main.FieldByName('Qty').AsFloat;
             self.YFSub.FieldByName('QtyUnit').Value := CDS_Main.FieldByName('QtyUnit').Value;
             self.YFSub.FieldByName('Price').Value := CDS_Main.FieldByName('Price').AsFloat;
             self.YFSub.FieldByName('MxMoney').Value := CDS_Main.FieldByName('money').AsFloat;
@@ -864,6 +868,9 @@ begin
             self.YFSub.FieldByName('PS').Value := CQtyFlag * CDS_Main.FieldByName('PiQty').AsInteger;
             self.YFSub.FieldByName('Qty').Value := CQtyFlag * CDS_Main.FieldByName('Qty').AsFloat;
             self.YFSub.FieldByName('QtyUnit').Value := CDS_Main.FieldByName('QtyUnit').Value;
+            self.YFSub.FieldByName('ToFactoryName').Value := CDS_Main.FieldByName('ToFactoryName').Value;
+
+
             self.YFSub.FieldByName('Price').Value := 0;
             self.YFSub.FieldByName('MxMoney').Value := 0;
             self.YFSub.FieldByName('discount').Value := 1;

应收应付/U_YFMXlist.dfm

@@ -1,6 +1,6 @@
 object frmYFMXlist: TfrmYFMXlist
-  Left = 221
+  Left = 411
-  Top = 115
+  Top = 523
   Width = 1205
   Height = 614
   Caption = #24212#20184#23545#36134#20449#24687#34920
@@ -225,6 +225,40 @@ object frmYFMXlist: TfrmYFMXlist
         item
           Kind = skSum
           Column = V1Column13
+        end
+        item
+          Kind = skSum
+          Column = V1Column16
+        end
+        item
+          Kind = skSum
+          Column = V1Column8
+        end
+        item
+          Kind = skSum
+          Column = V1Column9
+        end
+        item
+          Kind = skSum
+          Column = V1Column12
+        end
+        item
+          Kind = skSum
+          Column = V1Column12
+        end
+        item
+          Kind = skSum
+          Column = TV1Column4
+        end
+        item
+          Kind = skSum
+          Column = TV1Column5
+        end
+        item
+          Kind = skSum
+          Column = V1Column15
+        end
+        item
         end>
       DataController.Summary.SummaryGroups = <>
       OptionsCustomize.ColumnFiltering = False
@@ -237,7 +271,7 @@ object frmYFMXlist: TfrmYFMXlist
       Bands = <
         item
           Styles.Header = cxStyle1
-          Width = 683
+          Width = 741
         end
         item
           Caption = #24212#20184
@@ -557,6 +591,14 @@ object frmYFMXlist: TfrmYFMXlist
         Position.ColIndex = 1
         Position.RowIndex = 0
       end
+      object TV1Column6: TcxGridDBBandedColumn
+        Caption = #20986#21040#21152#24037#21378'/.'#23458#25143
+        DataBinding.FieldName = 'ToFactoryName'
+        HeaderAlignmentHorz = taCenter
+        Position.BandIndex = 0
+        Position.ColIndex = 12
+        Position.RowIndex = 0
+      end
     end
     object cxGridLevel1: TcxGridLevel
       GridView = TV1

应收应付/U_YFMXlist.pas

@@ -89,6 +89,7 @@ type
     TV1Column4: TcxGridDBBandedColumn;
     TV1Column5: TcxGridDBBandedColumn;
     TV1Column3: TcxGridDBBandedColumn;
+    TV1Column6: TcxGridDBBandedColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);

应收应付/U_YFZZCR.dfm

@@ -1,6 +1,6 @@
 object frmYFZZCR: TfrmYFZZCR
-  Left = 198
+  Left = 279
-  Top = 112
+  Top = 458
   Width = 1181
   Height = 661
   Caption = #32455#36896#24212#20184#27454#31649#29702
@@ -221,7 +221,7 @@ object frmYFZZCR: TfrmYFZZCR
     TabOrder = 2
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 9
-    Properties.TabIndex = 0
+    Properties.TabIndex = 3
     Properties.Tabs.Strings = (
       #26410#23457#26680
       #24050#23457#26680
@@ -326,7 +326,7 @@ object frmYFZZCR: TfrmYFZZCR
         Options.Editing = False
         Styles.Content = cxStyle1
         Styles.Header = cxStyle1
-        Width = 77
+        Width = 81
       end
       object VYB: TcxGridDBColumn
         Caption = #21407#24065#37329#39069
@@ -335,7 +335,7 @@ object frmYFZZCR: TfrmYFZZCR
         Options.Editing = False
         Styles.Content = cxStyle1
         Styles.Header = cxStyle1
-        Width = 70
+        Width = 100
       end
       object VBZ: TcxGridDBColumn
         Caption = #24065#31181
@@ -598,6 +598,12 @@ object frmYFZZCR: TfrmYFZZCR
         Styles.Header = cxStyle1
         Width = 145
       end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #20986#21040#24037#21378'/'#23458#25143
+        DataBinding.FieldName = 'ToFactoryName'
+        HeaderAlignmentHorz = taCenter
+        Width = 131
+      end
       object v1Column8: TcxGridDBColumn
         Caption = #24050#26680#38144#24320#31080#37329#39069
         DataBinding.FieldName = 'FPHX'

应收应付/U_YFZZCR.pas

@@ -107,6 +107,7 @@ type
     Tv1Column1: TcxGridDBColumn;
     cxStyleRepository1: TcxStyleRepository;
     cxStyle1: TcxStyle;
+    Tv1Column2: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);

应收应付/U_YSCR.dfm

@@ -1,6 +1,6 @@
 object frmYSCR: TfrmYSCR
-  Left = 251
+  Left = 270
-  Top = 94
+  Top = 581
   Width = 1249
   Height = 688
   Caption = #24212#25910#27454#31649#29702
@@ -244,9 +244,11 @@ object frmYSCR: TfrmYSCR
         end
         item
           Kind = skSum
+          Column = Tv2Column2
         end
         item
           Kind = skSum
+          Column = Tv2Column1
         end>
       DataController.Summary.SummaryGroups = <>
       OptionsCustomize.ColumnFiltering = False

应收应付/U_YSCRMXList.dfm

@@ -1,6 +1,6 @@
 object frmYSCRMXList: TfrmYSCRMXList
-  Left = 273
+  Left = 244
-  Top = 107
+  Top = 413
   Width = 1018
   Height = 688
   Caption = #24212#25910#27454#26126#32454#26597#35810
@@ -19,7 +19,7 @@ object frmYSCRMXList: TfrmYSCRMXList
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1010
+    Width = 1002
     Height = 31
     ButtonHeight = 30
     ButtonWidth = 59
@@ -68,7 +68,7 @@ object frmYSCRMXList: TfrmYSCRMXList
   object Panel1: TPanel
     Left = 0
     Top = 31
-    Width = 1010
+    Width = 1002
     Height = 62
     Align = alTop
     BevelInner = bvRaised
@@ -160,7 +160,7 @@ object frmYSCRMXList: TfrmYSCRMXList
   object cxTabControl1: TcxTabControl
     Left = 0
     Top = 93
-    Width = 1010
+    Width = 1002
     Height = 22
     Align = alTop
     TabOrder = 2
@@ -173,14 +173,14 @@ object frmYSCRMXList: TfrmYSCRMXList
       #20840#37096)
     OnChange = cxTabControl1Change
     ClientRectBottom = 22
-    ClientRectRight = 1010
+    ClientRectRight = 1002
     ClientRectTop = 19
   end
   object cxGrid1: TcxGrid
     Left = 0
     Top = 115
-    Width = 1010
+    Width = 1002
-    Height = 542
+    Height = 534
     Align = alClient
     TabOrder = 3
     object Tv1: TcxGridDBTableView

应收应付/U_YSCRMXList.pas

@@ -14,7 +14,20 @@ uses
   IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
   cxTextEdit, cxPC, cxDropDownEdit, Menus, cxLookAndFeels, cxLookAndFeelPainters,
   dxBarBuiltInMenu, cxNavigator, DateUtils, dxSkinsCore,
-  dxSkinsDefaultPainters, dxSkinscxPCPainter;
+  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
   TfrmYSCRMXList = class(TForm)

应收应付/U_YSMXlist.dfm

@@ -1,8 +1,8 @@
 object frmYSMXlist: TfrmYSMXlist
-  Left = 423
+  Left = 403
-  Top = 608
+  Top = 443
   Width = 1205
-  Height = 614
+  Height = 613
   Caption = #24212#25910#23545#36134#20449#24687#34920
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
@@ -22,7 +22,7 @@ object frmYSMXlist: TfrmYSMXlist
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1197
+    Width = 1189
     Height = 31
     ButtonHeight = 30
     ButtonWidth = 59
@@ -80,7 +80,7 @@ object frmYSMXlist: TfrmYSMXlist
   object Panel1: TPanel
     Left = 0
     Top = 31
-    Width = 1197
+    Width = 1189
     Height = 38
     Align = alTop
     BevelInner = bvRaised
@@ -222,8 +222,8 @@ object frmYSMXlist: TfrmYSMXlist
   object cxGrid2: TcxGrid
     Left = 0
     Top = 91
-    Width = 1197
+    Width = 1189
-    Height = 492
+    Height = 483
     Align = alClient
     TabOrder = 3
     object TV1: TcxGridDBBandedTableView
@@ -241,9 +241,7 @@ object frmYSMXlist: TfrmYSMXlist
         end
         item
           Kind = skSum
-        end
+          Column = TV1Column1
-        item
-          Kind = skSum
         end
         item
           Kind = skSum
@@ -256,6 +254,35 @@ object frmYSMXlist: TfrmYSMXlist
         item
           Kind = skSum
           Column = V1Column18
+        end
+        item
+          Kind = skSum
+          Column = V1Column8
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+        end
+        item
+        end
+        item
+        end
+        item
+          Kind = skSum
+          Column = V1Column12
         end>
       DataController.Summary.SummaryGroups = <>
       OptionsCustomize.ColumnFiltering = False
@@ -391,7 +418,7 @@ object frmYSMXlist: TfrmYSMXlist
       end
       object V1Column12: TcxGridDBBandedColumn
         Caption = #24635#37329#39069
-        DataBinding.FieldName = 'money'
+        DataBinding.FieldName = 'Money'
         PropertiesClassName = 'TcxCurrencyEditProperties'
         Properties.DisplayFormat = '0.00'
         HeaderAlignmentHorz = taCenter
@@ -643,7 +670,7 @@ object frmYSMXlist: TfrmYSMXlist
   object cxTabControl1: TcxTabControl
     Left = 0
     Top = 69
-    Width = 1197
+    Width = 1189
     Height = 22
     Align = alTop
     TabOrder = 2
@@ -655,7 +682,7 @@ object frmYSMXlist: TfrmYSMXlist
       #20840#37096)
     OnChange = cxTabControl1Change
     ClientRectBottom = 22
-    ClientRectRight = 1197
+    ClientRectRight = 1189
     ClientRectTop = 19
   end
   object ADOQueryTemp: TADOQuery

应收应付/U_YSSKList.dfm

@@ -1,7 +1,7 @@
 object frmYSSKList: TfrmYSSKList
-  Left = 258
+  Left = 423
-  Top = 152
+  Top = 547
-  Width = 1196
+  Width = 1440
   Height = 618
   Caption = #24212#25910#24050#25910#27719#24635
   Color = clBtnFace
@@ -20,7 +20,7 @@ object frmYSSKList: TfrmYSSKList
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1188
+    Width = 1432
     Height = 31
     ButtonHeight = 30
     ButtonWidth = 83
@@ -85,7 +85,7 @@ object frmYSSKList: TfrmYSSKList
   object Panel1: TPanel
     Left = 0
     Top = 31
-    Width = 1188
+    Width = 1432
     Height = 74
     Align = alTop
     BevelInner = bvRaised
@@ -198,7 +198,7 @@ object frmYSSKList: TfrmYSSKList
   object cxGrid2: TcxGrid
     Left = 0
     Top = 127
-    Width = 1188
+    Width = 1432
     Height = 460
     Align = alClient
     TabOrder = 3
@@ -258,6 +258,7 @@ object frmYSSKList: TfrmYSSKList
         end
         item
           Kind = skSum
+          Column = Tv2Column6
         end
         item
           Kind = skSum
@@ -282,6 +283,7 @@ object frmYSSKList: TfrmYSSKList
         end
         item
           Kind = skSum
+          Column = Tv2Column2
         end
         item
           Kind = skSum
@@ -414,7 +416,7 @@ object frmYSSKList: TfrmYSSKList
   object cxTabControl1: TcxTabControl
     Left = 0
     Top = 105
-    Width = 1188
+    Width = 1432
     Height = 22
     Align = alTop
     TabOrder = 2
@@ -426,7 +428,7 @@ object frmYSSKList: TfrmYSSKList
       #20840#37096)
     OnChange = cxTabControl1Change
     ClientRectBottom = 22
-    ClientRectRight = 1188
+    ClientRectRight = 1432
     ClientRectTop = 19
   end
   object ADOQueryTemp: TADOQuery

应收应付/U_YSSKList.pas

@@ -14,7 +14,20 @@ uses
   IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
   cxTextEdit, Clipbrd, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
   dxBarBuiltInMenu, DateUtils, dxSkinsCore, dxSkinsDefaultPainters,
-  dxSkinscxPCPainter;
+  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
   TfrmYSSKList = class(TForm)

应收应付/U_ZdyAttachGYS.pas

@@ -13,7 +13,20 @@ uses
   RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
   IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox, cxCalendar,
   cxButtonEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters,
-  cxNavigator;
+  cxNavigator, 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
   TfrmZdyAttachGYS = class(TForm)

应收应付/U_testdll.dfm

@@ -1,6 +1,6 @@
 object Form1: TForm1
-  Left = 153
+  Left = 575
-  Top = 124
+  Top = 541
   Width = 791
   Height = 554
   Caption = 'Form1'
@@ -21,7 +21,7 @@ object Form1: TForm1
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 775
+    Width = 783
     Height = 25
     ButtonWidth = 57
     Caption = 'ToolBar1'

应收应付/YSYF.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\淃커덜쯤\D7szChenfeng\壇澗壇마\testDll.exe
+HostApplication=D:\Dp7Repo\淃커덜쯤\D7szChenfeng\壇澗壇마\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

应收应付/YSYF.dpr

@@ -46,7 +46,8 @@ uses
   U_FjList10 in '..\Z99Dependency\ThreeFun\Form\U_FjList10.pas' {frmFjList10},
   U_CompressionFun in '..\Z99Dependency\ThreeFun\Fun\U_CompressionFun.pas',
   U_RTFun in '..\Z99Dependency\ThreeFun\Fun\U_RTFun.pas',
-  U_YFFKInput in 'U_YFFKInput.pas' {frmYFFKInput};
+  U_YFFKInput in 'U_YFFKInput.pas' {frmYFFKInput},
+  U_XXPRICE in 'U_XXPRICE.pas' {frmXXPRICE};
 
 // U_SelfForm in '..\..\SelfForm\U_SelfForm.pas',
 // U_SelExportField in '..\..\SelfForm\U_SelExportField.pas' {frmSelExportField},

成品仓库(FinishedClothWarehouse.dll)/U_CPCKMdList.dfm

@@ -1,6 +1,6 @@
 object frmCPCKMdList: TfrmCPCKMdList
-  Left = 253
+  Left = 373
-  Top = 323
+  Top = 237
   Width = 1128
   Height = 516
   Caption = #30721#21333#25171#21360
@@ -20,7 +20,7 @@ object frmCPCKMdList: TfrmCPCKMdList
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1120
+    Width = 1112
     AutoSize = True
     ButtonHeight = 30
     ButtonWidth = 95
@@ -128,7 +128,7 @@ object frmCPCKMdList: TfrmCPCKMdList
   object Panel1: TPanel
     Left = 0
     Top = 32
-    Width = 1120
+    Width = 1112
     Height = 93
     Align = alTop
     BevelInner = bvRaised
@@ -338,8 +338,8 @@ object frmCPCKMdList: TfrmCPCKMdList
   object cxGrid1: TcxGrid
     Left = 0
     Top = 147
-    Width = 1120
+    Width = 1112
-    Height = 338
+    Height = 330
     Align = alClient
     Font.Charset = GB2312_CHARSET
     Font.Color = clWindowText
@@ -731,7 +731,7 @@ object frmCPCKMdList: TfrmCPCKMdList
   object cxTabControl1: TcxTabControl
     Left = 0
     Top = 125
-    Width = 1120
+    Width = 1112
     Height = 22
     Align = alTop
     Font.Charset = GB2312_CHARSET

成品仓库(FinishedClothWarehouse.dll)/U_CPFHSQInPut.dfm

@@ -1,8 +1,8 @@
 object frmPBFHSQInPut: TfrmPBFHSQInPut
-  Left = 192
+  Left = 524
-  Top = 232
+  Top = 378
   Width = 1075
-  Height = 664
+  Height = 665
   Caption = #21457#36135#30003#35831#24405#20837
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
@@ -390,7 +390,7 @@ object frmPBFHSQInPut: TfrmPBFHSQInPut
     Left = 0
     Top = 162
     Width = 1067
-    Height = 471
+    Height = 472
     Align = alClient
     TabOrder = 3
     object Tv1: TcxGridDBTableView

成品仓库(FinishedClothWarehouse.dll)/U_CPFHSQList.pas

@@ -26,7 +26,7 @@ uses
   dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
   dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
   dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
-  dxSkinXmas2008Blue;
+  dxSkinXmas2008Blue, ImgList;
 
 type
   TfrmCPFHSQList = class(TForm)
@@ -120,6 +120,7 @@ type
     cktype: TComboBox;
     Label6: TLabel;
     Tv2Column1: TcxGridDBColumn;
+    ThreeImgList: TImageList;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
     procedure TBFindClick(Sender: TObject);

成品仓库(FinishedClothWarehouse.dll)/U_CPSQSMCK.dfm

@@ -1,8 +1,8 @@
 object frmCPSQSMCK: TfrmCPSQSMCK
-  Left = 363
+  Left = 210
-  Top = 45
+  Top = 0
   Width = 1109
-  Height = 795
+  Height = 685
   Caption = #25104#21697#20986#24211#25195#25551'('#30003#35831')'
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
@@ -20,7 +20,7 @@ object frmCPSQSMCK: TfrmCPSQSMCK
     Left = 513
     Top = 0
     Width = 580
-    Height = 756
+    Height = 646
     Align = alClient
     TabOrder = 1
     object Tv3: TcxGridDBTableView
@@ -75,7 +75,7 @@ object frmCPSQSMCK: TfrmCPSQSMCK
     Left = 0
     Top = 0
     Width = 513
-    Height = 756
+    Height = 646
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered

成品仓库(FinishedClothWarehouse.dll)/U_DataLink.dfm

@@ -1,8 +1,8 @@
 object DataLink_FinishedClothWarehouse: TDataLink_FinishedClothWarehouse
   OldCreateOrder = False
   OnDestroy = DataModuleDestroy
-  Left = 459
+  Left = 460
-  Top = 278
+  Top = 280
   Height = 349
   Width = 482
   object AdoDataLink: TADOQuery

成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInList.dfm

@@ -1,6 +1,6 @@
 object frmFinishedClothInList: TfrmFinishedClothInList
-  Left = 119
+  Left = 105
-  Top = 159
+  Top = 65
   Width = 1249
   Height = 765
   Caption = #25104#21697#20837#24211#31649#29702
@@ -536,10 +536,10 @@ object frmFinishedClothInList: TfrmFinishedClothInList
         Width = 73
       end
       object Tv1Column11: TcxGridDBColumn
-        Caption = #25209#21495
+        Caption = #32463#36724#25209#21495
         DataBinding.FieldName = 'edZDFNo'
         HeaderAlignmentHorz = taCenter
-        Width = 83
+        Width = 92
       end
       object v2Column1: TcxGridDBColumn
         Caption = #21697#21517
@@ -716,7 +716,7 @@ object frmFinishedClothInList: TfrmFinishedClothInList
         TabOrder = 0
         Properties.CustomButtons.Buttons = <>
         Properties.Style = 3
-        Properties.TabIndex = 0
+        Properties.TabIndex = 1
         Properties.Tabs.Strings = (
           #35746#21333#27719#24635
           #26126#32454#25968#25454)

成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInspection.dfm

@@ -1,8 +1,8 @@
 object frmFinishedClothInspection: TfrmFinishedClothInspection
-  Left = 54
+  Left = 179
-  Top = 187
+  Top = 106
   Width = 1357
-  Height = 721
+  Height = 723
   Caption = #25104#21697#26816#39564#25253#21578
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
@@ -83,7 +83,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
     end
     object ComboBox1: TComboBox
       Left = 351
-      Top = 1
+      Top = 0
       Width = 98
       Height = 27
       Style = csDropDownList
@@ -429,7 +429,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
     Left = 0
     Top = 115
     Width = 1341
-    Height = 567
+    Height = 569
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
@@ -548,7 +548,7 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
         Width = 100
       end
       object Tv1Column12: TcxGridDBColumn
-        Caption = #25209#21495
+        Caption = #32463#36724#25209#21495
         DataBinding.FieldName = 'edZDFNo'
         HeaderAlignmentHorz = taCenter
         Width = 84
@@ -588,6 +588,12 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
         Options.Editing = False
         Width = 60
       end
+      object Tv1Column14: TcxGridDBColumn
+        Caption = #25209#21495
+        DataBinding.FieldName = 'BatchNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 79
+      end
       object v1Column10: TcxGridDBColumn
         Caption = #24635#31859#25968
         DataBinding.FieldName = 'JYLen'
@@ -625,7 +631,8 @@ object frmFinishedClothInspection: TfrmFinishedClothInspection
       end
       object Tv1Column10: TcxGridDBColumn
         Caption = #25209#21495
-        DataBinding.FieldName = 'edZDFNo'
+        DataBinding.FieldName = 'BatchNo'
+        Visible = False
         HeaderAlignmentHorz = taCenter
         Width = 70
       end

成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothInspection.pas

@@ -135,6 +135,7 @@ type
     Tv1Column3: TcxGridDBColumn;
     Tv1Column10: TcxGridDBColumn;
     Tv1Column12: TcxGridDBColumn;
+    Tv1Column14: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure TBCloseClick(Sender: TObject);

成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothKCHZList.dfm

@@ -1,6 +1,6 @@
 object frmFinishedClothKCHZList: TfrmFinishedClothKCHZList
-  Left = 263
+  Left = 469
-  Top = 140
+  Top = 619
   Width = 1247
   Height = 531
   Caption = #22383#24067#24211#23384#31649#29702#34920

成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothKCHZList.pas

@@ -11,7 +11,20 @@ uses
   ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
   cxDropDownEdit, MovePanel, Menus, cxCheckBox, Clipbrd, cxPC, Math,
   cxLookAndFeels, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator,
-  dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
+  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
   TfrmFinishedClothKCHZList = class(TForm)

成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothKCList.dfm

@@ -1,7 +1,7 @@
 object frmFinishedClothKCList: TfrmFinishedClothKCList
-  Left = -6
+  Left = 508
-  Top = 33
+  Top = 419
-  Width = 1247
+  Width = 1086
   Height = 531
   Caption = #25104#21697#24211#23384#21015#34920
   Color = clBtnFace
@@ -18,7 +18,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1231
+    Width = 1078
     Height = 33
     ButtonHeight = 30
     ButtonWidth = 59
@@ -98,7 +98,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
   object Panel1: TPanel
     Left = 0
     Top = 33
-    Width = 1231
+    Width = 1078
     Height = 62
     Align = alTop
     BevelInner = bvRaised
@@ -283,7 +283,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
   object Panel2: TPanel
     Left = 0
     Top = 95
-    Width = 1231
+    Width = 1078
     Height = 30
     Align = alTop
     BevelOuter = bvNone
@@ -311,7 +311,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
         TabOrder = 0
         Properties.CustomButtons.Buttons = <>
         Properties.Style = 3
-        Properties.TabIndex = 0
+        Properties.TabIndex = 1
         Properties.Tabs.Strings = (
           #35746#21333#27719#24635
           #26126#32454#25968#25454)
@@ -324,7 +324,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
     object Panel6: TPanel
       Left = 205
       Top = 0
-      Width = 1026
+      Width = 873
       Height = 30
       Align = alClient
       AutoSize = True
@@ -332,7 +332,7 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
       BorderStyle = bsSingle
       TabOrder = 1
       DesignSize = (
-        1022
+        869
         26)
       object Label1: TLabel
         Left = 64
@@ -424,8 +424,8 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
   object cxGrid2: TcxGrid
     Left = 0
     Top = 125
-    Width = 1231
+    Width = 1078
-    Height = 367
+    Height = 375
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 4
@@ -571,11 +571,11 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
         Options.Editing = False
         Width = 73
       end
-      object Tv1Column14: TcxGridDBColumn
+      object Tv1Column15: TcxGridDBColumn
-        Caption = #25209#21495
+        Caption = #32463#36724#25209#21495
-        DataBinding.FieldName = 'edZDFNo'
+        DataBinding.FieldName = 'BatchNo'
         HeaderAlignmentHorz = taCenter
-        Width = 74
+        Width = 96
       end
       object v2Column1: TcxGridDBColumn
         Caption = #21697#21517
@@ -652,13 +652,6 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
         Options.Editing = False
         Width = 55
       end
-      object v1Column10: TcxGridDBColumn
-        Caption = #25209#21495
-        DataBinding.FieldName = 'BatchNo'
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 71
-      end
       object v1Column6: TcxGridDBColumn
         Caption = #26465#30721
         DataBinding.FieldName = 'JYID'
@@ -718,12 +711,6 @@ object frmFinishedClothKCList: TfrmFinishedClothKCList
         HeaderAlignmentHorz = taCenter
         Width = 100
       end
-      object Tv1Column5: TcxGridDBColumn
-        Caption = #32463#32447#25209#21495
-        DataBinding.FieldName = 'BatchNo'
-        HeaderAlignmentHorz = taCenter
-        Width = 100
-      end
       object Tv1Column6: TcxGridDBColumn
         Caption = #32428#32447#25209#21495
         DataBinding.FieldName = 'WXPH'

成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothKCList.pas

@@ -80,7 +80,6 @@ type
     v2Column1: TcxGridDBColumn;
     v2Column3: TcxGridDBColumn;
     cxgrdPS: TcxGridDBColumn;
-    v1Column10: TcxGridDBColumn;
     v1Column6: TcxGridDBColumn;
     v1Column5: TcxGridDBColumn;
     cxgrdMJLen: TcxGridDBColumn;
@@ -95,7 +94,6 @@ type
     Tv1Column2: TcxGridDBColumn;
     Tv1Column3: TcxGridDBColumn;
     Tv1Column4: TcxGridDBColumn;
-    Tv1Column5: TcxGridDBColumn;
     Tv1Column6: TcxGridDBColumn;
     Tv1Column7: TcxGridDBColumn;
     Tv1Column8: TcxGridDBColumn;
@@ -106,7 +104,7 @@ type
     Tv1Column11: TcxGridDBColumn;
     Tv1Column12: TcxGridDBColumn;
     Tv1Column13: TcxGridDBColumn;
-    Tv1Column14: TcxGridDBColumn;
+    Tv1Column15: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBRafreshClick(Sender: TObject);
     procedure ConNoMChange(Sender: TObject);
@@ -165,6 +163,7 @@ begin
         cxgrdCKPS.Visible := True;
         cxgrdConNoPS.Visible := True;
         cxgrdWFPS.Visible := True;
+        Tv1Column15.Visible := True;
         Tv1Column9.Visible := True;
         Tv1Column4.Visible := True;
         Tv1Column10.Visible := True;

成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothOutList.dfm

@@ -1,6 +1,6 @@
 object frmFinishedClothOutList: TfrmFinishedClothOutList
-  Left = 111
+  Left = 350
-  Top = 91
+  Top = 239
   Width = 1151
   Height = 515
   Caption = #25104#21697#20986#24211#31649#29702
@@ -716,12 +716,6 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
         Options.Editing = False
         Width = 73
       end
-      object Tv1Column11: TcxGridDBColumn
-        Caption = #25209#21495
-        DataBinding.FieldName = 'edZDFNo'
-        HeaderAlignmentHorz = taCenter
-        Width = 78
-      end
       object v2Column1: TcxGridDBColumn
         Caption = #21697#21517
         DataBinding.FieldName = 'P_CodeName'
@@ -749,10 +743,10 @@ object frmFinishedClothOutList: TfrmFinishedClothOutList
         Width = 55
       end
       object v1Column10: TcxGridDBColumn
-        Caption = #25209#21495
+        Caption = #32463#36724#25209#21495
         DataBinding.FieldName = 'BatchNo'
         HeaderAlignmentHorz = taCenter
-        Width = 71
+        Width = 93
       end
       object v1Column6: TcxGridDBColumn
         Caption = #26465#30721

成品仓库(FinishedClothWarehouse.dll)/U_FinishedClothOutList.pas

@@ -123,7 +123,6 @@ type
     carno: TEdit;
     Tv1Column4: TcxGridDBColumn;
     Tv1Column7: TcxGridDBColumn;
-    Tv1Column11: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);
@@ -180,6 +179,7 @@ begin
         cxgrdMJLen.Visible := True;
         Tv1Column8.Visible := True;
         Tv1Column9.Visible := True;
+        v1Column10.Visible := True;
         Tv1Column3.Visible := True;
         ToolButton1.Visible := True;
       end;
@@ -236,6 +236,7 @@ begin
             sql.add('''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
             sql.Add(',''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
             sql.Add(',' + QuotedStr(fwhere) + ' ');
+            //ShowMessage(sql.text);
           end;
         1:      /////////////////////////Ã÷ϸ//////////////////////////////
           begin
@@ -249,6 +250,7 @@ begin
             sql.Add('@pageIndex=' + inttostr(CurrentPage));
             sql.Add(',@pageSize=' + inttostr(RecordsNumber));
             sql.Add(',@criteria= ' + quotedstr(fwhere));
+            //ShowMessage(sql.text);
           end;
       end;
       //ShowMessage(SQL.Text);
@@ -530,6 +532,7 @@ begin
     sql.add('''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
     sql.Add(',''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
     sql.Add(',' + QuotedStr(fwhere) + ' ');
+    showmessage(SQL.text);
     Open;
   end;
   ExportFtErpFile('Å÷²¼³ö¿âÈÕ±¨±í.rmf', ADOQueryTemp);

成品仓库(FinishedClothWarehouse.dll)/U_GetDllForm.pas

@@ -97,6 +97,14 @@ begin
     dtbase := 'chenfengdata';
     user := 'rtsa';
     pswd := 'rightsoft@5740';
+
+
+
+//    server := '127.0.0.1';
+////  server := '.';
+//    dtbase := 'delphichenfeng';
+//    user := 'sa';
+//    pswd := 'rightsoft';
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
 
   end

成品仓库(FinishedClothWarehouse.dll)/U_SQKCHZSelList2.dfm

@@ -1,7 +1,7 @@
 object frmSQKCHZSelList2: TfrmSQKCHZSelList2
-  Left = 254
+  Left = 474
-  Top = 222
+  Top = 467
-  Width = 1171
+  Width = 1086
   Height = 576
   Caption = #22383#24067#24211#23384#27719#24635'2'
   Color = clBtnFace
@@ -20,7 +20,7 @@ object frmSQKCHZSelList2: TfrmSQKCHZSelList2
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1163
+    Width = 1078
     Height = 33
     ButtonHeight = 30
     ButtonWidth = 59
@@ -73,7 +73,7 @@ object frmSQKCHZSelList2: TfrmSQKCHZSelList2
   object cxGrid2: TcxGrid
     Left = 0
     Top = 95
-    Width = 1163
+    Width = 1078
     Height = 450
     Align = alClient
     TabOrder = 1
@@ -191,7 +191,7 @@ object frmSQKCHZSelList2: TfrmSQKCHZSelList2
   object Panel1: TPanel
     Left = 0
     Top = 33
-    Width = 1163
+    Width = 1078
     Height = 62
     Align = alTop
     BevelInner = bvRaised

成品仓库(FinishedClothWarehouse.dll)/U_SQKCHZSelList2.pas

@@ -122,7 +122,7 @@ begin
       SQL.Add(' ,sum(case when JYType=''ÕýÆ·'' then 1 else 0 end )Zpps');
       SQL.Add(',sum(case when JYType=''´ÎÆ·'' then A.JSLen else 0 end )cpqty');
       SQL.Add(',sum(case when JYType=''ÕýÆ·'' then A.JSLen else 0 end )Zpqty');
-      sql.add(',BatchNo=(SELECT edZDFNo FROM PD_Plan_Card e WHERE e.pcid=a.pcid)');
+      //sql.add(',BatchNo=(SELECT edZDFNo FROM PD_Plan_Card e WHERE e.pcid=a.pcid)');
       SQL.Add('  from CK_Cloth_CR A');
       SQL.Add(' inner join CK_Cloth_KC B on A.JYID=B.JYID    inner join PD_Plan_Main c on A.mainid=c.mainid ');
       sql.Add('where B.Valid=''Y'' and A.CRFlag=''Èë¿â''');
@@ -133,7 +133,7 @@ begin
       sql.Add('and p_code in(select p_code from Contract_sub E INNER JOIN Contract_MAIN F ON E.CONMAINID=F.CONMAINID WHERE CONNO=' + QuotedStr(Trim(fconno)));
       SQL.Add(') ');
 
-      SQL.Add(' group by   a.p_code, a.p_codename, a.pcid ');
+      SQL.Add(' group by   a.p_code, a.p_codename ');
       //,khname,orderno,CONNO
 
       sql.Add(' ORDER BY a.p_code');

梭织计划单(ShuttleSchedule.dll)/U_GetDllForm.pas

@@ -74,8 +74,8 @@ begin
     dtbase := 'chenfengdata';
     user := 'rtsa';
     pswd := 'rightsoft@5740';
-//  server := '.';
+//    server := '127.0.0.1';
-//  dtbase := 'yiduidata';
+//    dtbase := 'delphichenfeng';
 //    user := 'sa';
 //    pswd := 'rightsoft';
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;

梭织计划单(ShuttleSchedule.dll)/U_PlanCardList.dfm

@@ -1,6 +1,6 @@
 object frmPlanCardList: TfrmPlanCardList
-  Left = 91
+  Left = 274
-  Top = 319
+  Top = 195
   Width = 1540
   Height = 764
   Caption = #32463#36724#35745#21010
@@ -1208,7 +1208,7 @@ object frmPlanCardList: TfrmPlanCardList
   object CDS_QZ: TClientDataSet
     Aggregates = <>
     Params = <>
-    Left = 816
+    Left = 808
     Top = 456
   end
   object RMDB_QZ: TRMDBDataSet

梭织计划单(ShuttleSchedule.dll)/U_PlanCardList.pas

@@ -12,7 +12,20 @@ uses
   RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC,
   Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
   cxContainer, cxMaskEdit, Math, dxSkinsCore, dxSkinsDefaultPainters,
-  dxSkinscxPCPainter;
+  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
   TfrmPlanCardList = class(TForm)

梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothGYList.dfm

@@ -1,6 +1,6 @@
 object frmShuttleClothGYList: TfrmShuttleClothGYList
-  Left = 481
+  Left = 486
-  Top = 439
+  Top = 565
   Width = 1377
   Height = 581
   Caption = #26797#32455#32455#36896#21333
@@ -33,7 +33,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1369
+    Width = 1361
     AutoSize = True
     ButtonHeight = 30
     ButtonWidth = 83
@@ -117,7 +117,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
     end
     object ComboBox1: TComboBox
       Left = 504
-      Top = 3
+      Top = 0
       Width = 145
       Height = 24
       Style = csDropDownList
@@ -165,7 +165,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
   object Panel1: TPanel
     Left = 0
     Top = 32
-    Width = 1369
+    Width = 1361
     Height = 73
     Align = alTop
     BevelInner = bvRaised
@@ -318,7 +318,7 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
   object cxTabControl1: TcxTabControl
     Left = 0
     Top = 105
-    Width = 1369
+    Width = 1361
     Height = 22
     Align = alTop
     TabOrder = 2
@@ -330,14 +330,14 @@ object frmShuttleClothGYList: TfrmShuttleClothGYList
       #24050#21024#38500#25968#25454)
     OnChange = cxTabControl1Change
     ClientRectBottom = 22
-    ClientRectRight = 1369
+    ClientRectRight = 1361
     ClientRectTop = 19
   end
   object cxGrid4: TcxGrid
     Left = 0
     Top = 127
-    Width = 1369
+    Width = 1361
-    Height = 423
+    Height = 415
     Align = alClient
     TabOrder = 3
     object Tv3: TcxGridDBTableView

梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothGYList.pas

@@ -11,7 +11,20 @@ uses
   cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
   RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels,
   cxLookAndFeelPainters, cxNavigator, StrUtils, RM_e_Graphic, RM_e_Jpeg,
-  dxBarBuiltInMenu, cxPC, cxCheckBox;
+  dxBarBuiltInMenu, cxPC, cxCheckBox, 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
   TfrmShuttleClothGYList = class(TForm)
@@ -319,7 +332,8 @@ procedure TfrmShuttleClothGYList.InitForm();
 begin
   InitButton();
   ReadCxGrid(Trim(self.Caption), Tv3, '坯布生产管理');
-  BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90;
+  //BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90;
+  BegDate.DateTime := StrToDate('2024-01-01');
   EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
   InitGrid();
 end;

梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothGYListsel.dfm

@@ -1,6 +1,6 @@
 object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
-  Left = 488
+  Left = 165
-  Top = 489
+  Top = 249
   Width = 1377
   Height = 581
   Caption = #24037#33402#21333#36873#25321
@@ -33,7 +33,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1369
+    Width = 1361
     AutoSize = True
     ButtonHeight = 30
     ButtonWidth = 59
@@ -87,7 +87,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
   object Panel1: TPanel
     Left = 0
     Top = 32
-    Width = 1369
+    Width = 1361
     Height = 73
     Align = alTop
     BevelInner = bvRaised
@@ -188,8 +188,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
   object cxGrid1: TcxGrid
     Left = 0
     Top = 127
-    Width = 1369
+    Width = 1361
-    Height = 423
+    Height = 415
     Align = alClient
     TabOrder = 2
     object Tv1: TcxGridDBTableView
@@ -395,8 +395,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
   object cxGrid2: TcxGrid
     Left = 0
     Top = 127
-    Width = 1369
+    Width = 1361
-    Height = 423
+    Height = 415
     Align = alClient
     TabOrder = 3
     object cxGridDBTableView1: TcxGridDBTableView
@@ -602,8 +602,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
   object cxGrid3: TcxGrid
     Left = 0
     Top = 127
-    Width = 1369
+    Width = 1361
-    Height = 423
+    Height = 415
     Align = alClient
     TabOrder = 4
     object cxGridDBTableView2: TcxGridDBTableView
@@ -809,8 +809,8 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
   object cxGrid4: TcxGrid
     Left = 0
     Top = 127
-    Width = 1369
+    Width = 1361
-    Height = 423
+    Height = 415
     Align = alClient
     TabOrder = 5
     object Tv3: TcxGridDBTableView
@@ -982,7 +982,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
   object cxTabControl1: TcxTabControl
     Left = 0
     Top = 105
-    Width = 1369
+    Width = 1361
     Height = 22
     Align = alTop
     TabOrder = 6
@@ -994,7 +994,7 @@ object frmShuttleClothGYListSEL: TfrmShuttleClothGYListSEL
       #24050#21024#38500#25968#25454)
     OnChange = cxTabControl1Change
     ClientRectBottom = 22
-    ClientRectRight = 1369
+    ClientRectRight = 1361
     ClientRectTop = 19
   end
   object cxGridPopupMenu1: TcxGridPopupMenu

梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothGYListsel.pas

@@ -241,7 +241,7 @@ procedure TfrmShuttleClothGYListSEL.InitForm();
 begin
 
   ReadCxGrid(Trim(self.Caption), Tv1, '坯布生产管理');
-  BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90;
+  BegDate.DateTime := StrToDate('2024-01-01');;
   EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
   InitGrid();
   TBFind.Click();

梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCInPut.dfm

@@ -1,7 +1,7 @@
 object frmClothSCInPut: TfrmClothSCInPut
-  Left = 329
+  Left = 363
-  Top = 86
+  Top = 107
-  Width = 1474
+  Width = 1464
   Height = 760
   Align = alClient
   Caption = #26797#32455#32455#36896#21333#24405#20837
@@ -19,7 +19,7 @@ object frmClothSCInPut: TfrmClothSCInPut
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1466
+    Width = 1448
     Height = 29
     ButtonHeight = 30
     ButtonWidth = 95
@@ -65,7 +65,7 @@ object frmClothSCInPut: TfrmClothSCInPut
   object ScrollBox1: TScrollBox
     Left = 0
     Top = 29
-    Width = 1466
+    Width = 1448
     Height = 416
     Align = alTop
     BevelInner = bvNone
@@ -715,6 +715,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Top = 69
       Width = 119
       Height = 22
+      Enabled = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -16
@@ -791,6 +792,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Top = 65
       Width = 119
       Height = 22
+      Enabled = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -16
@@ -820,6 +822,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Left = 90
       Top = 68
       BeepOnEnter = False
+      Enabled = False
       ParentFont = False
       Properties.Buttons = <
         item
@@ -844,6 +847,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Top = 71
       Width = 118
       Height = 20
+      Enabled = False
       TabOrder = 2
       OnKeyPress = ConNoKeyPress
     end
@@ -927,6 +931,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Top = 173
       Width = 118
       Height = 22
+      Enabled = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -16
@@ -942,6 +947,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Top = 174
       Width = 118
       Height = 20
+      Enabled = False
       TabOrder = 18
       OnKeyPress = ConNoKeyPress
     end
@@ -951,6 +957,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Top = 205
       Width = 118
       Height = 22
+      Enabled = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -16
@@ -966,6 +973,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Top = 232
       Width = 118
       Height = 22
+      Enabled = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -16
@@ -1034,6 +1042,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Top = 264
       Width = 482
       Height = 121
+      Enabled = False
       TabOrder = 24
     end
     object ZJPiLen: TEdit
@@ -1065,6 +1074,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Top = 232
       Width = 118
       Height = 22
+      Enabled = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -16
@@ -1089,6 +1099,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Top = 202
       Width = 118
       Height = 22
+      Enabled = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -16
@@ -1114,6 +1125,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Width = 120
       Height = 20
       CharCase = ecUpperCase
+      Enabled = False
       TabOrder = 31
       OnKeyPress = ConNoKeyPress
     end
@@ -1123,6 +1135,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Top = 207
       Width = 118
       Height = 22
+      Enabled = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -16
@@ -1138,6 +1151,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Top = 234
       Width = 121
       Height = 22
+      Enabled = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -16
@@ -1153,6 +1167,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Top = 207
       Width = 118
       Height = 22
+      Enabled = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -16
@@ -1168,6 +1183,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       Top = 234
       Width = 121
       Height = 22
+      Enabled = False
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
       Font.Height = -16
@@ -1273,8 +1289,8 @@ object frmClothSCInPut: TfrmClothSCInPut
   object cxPageControl1: TcxPageControl
     Left = 0
     Top = 474
-    Width = 1466
+    Width = 1448
-    Height = 255
+    Height = 247
     Align = alClient
     Font.Charset = GB2312_CHARSET
     Font.Color = clWindowText
@@ -1287,8 +1303,8 @@ object frmClothSCInPut: TfrmClothSCInPut
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 9
     OnChange = cxPageControl1Change
-    ClientRectBottom = 255
+    ClientRectBottom = 247
-    ClientRectRight = 1466
+    ClientRectRight = 1448
     ClientRectTop = 23
     object cxTabSheet1: TcxTabSheet
       Caption = #32463#19997#32452#21512
@@ -1296,8 +1312,8 @@ object frmClothSCInPut: TfrmClothSCInPut
       object GroupBox1: TGroupBox
         Left = 980
         Top = 0
-        Width = 486
+        Width = 468
-        Height = 232
+        Height = 224
         Align = alClient
         Caption = #32463#25490#21015
         Font.Charset = GB2312_CHARSET
@@ -1311,9 +1327,10 @@ object frmClothSCInPut: TfrmClothSCInPut
           Tag = 2
           Left = 2
           Top = 31
-          Width = 482
+          Width = 464
-          Height = 199
+          Height = 191
           Align = alClient
+          Enabled = False
           Font.Charset = GB2312_CHARSET
           Font.Color = clWindowText
           Font.Height = -16
@@ -1327,7 +1344,7 @@ object frmClothSCInPut: TfrmClothSCInPut
         Left = 0
         Top = 0
         Width = 980
-        Height = 232
+        Height = 224
         Align = alLeft
         TabOrder = 1
         object TV1: TcxGridDBTableView
@@ -1377,6 +1394,7 @@ object frmClothSCInPut: TfrmClothSCInPut
                 Default = True
                 Kind = bkEllipsis
               end>
+            Properties.ReadOnly = True
             Properties.OnButtonClick = cxGridDBColumn2PropertiesButtonClick
             HeaderAlignmentHorz = taCenter
             Options.Moving = False
@@ -1387,6 +1405,7 @@ object frmClothSCInPut: TfrmClothSCInPut
             Caption = #20811#25968
             DataBinding.FieldName = 'Y_Qty'
             PropertiesClassName = 'TcxTextEditProperties'
+            Properties.ReadOnly = True
             Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged
             HeaderAlignmentHorz = taCenter
             Width = 143
@@ -1394,18 +1413,39 @@ object frmClothSCInPut: TfrmClothSCInPut
           object TV1Column1: TcxGridDBColumn
             Caption = #25467#24230
             DataBinding.FieldName = 'Y_Ndu'
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.ReadOnly = True
             HeaderAlignmentHorz = taCenter
             Width = 79
           end
           object TV1Column2: TcxGridDBColumn
             Caption = #26681#25968
             DataBinding.FieldName = 'Y_roots'
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.ReadOnly = True
             HeaderAlignmentHorz = taCenter
             Width = 69
           end
           object cxGridDBColumn4: TcxGridDBColumn
             Caption = #22791#27880
             DataBinding.FieldName = 'Y_Note'
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.ReadOnly = True
             HeaderAlignmentHorz = taCenter
             Options.Moving = False
             Options.Sorting = False
@@ -1423,10 +1463,11 @@ object frmClothSCInPut: TfrmClothSCInPut
       object GroupBox2: TGroupBox
         Left = 980
         Top = 0
-        Width = 530
+        Width = 468
-        Height = 281
+        Height = 224
         Align = alClient
         Caption = #32428#25490#21015
+        Enabled = False
         Font.Charset = GB2312_CHARSET
         Font.Color = clWindowText
         Font.Height = -29
@@ -1438,8 +1479,8 @@ object frmClothSCInPut: TfrmClothSCInPut
           Tag = 2
           Left = 2
           Top = 31
-          Width = 526
+          Width = 464
-          Height = 248
+          Height = 191
           Align = alClient
           Font.Charset = GB2312_CHARSET
           Font.Color = clWindowText
@@ -1454,7 +1495,7 @@ object frmClothSCInPut: TfrmClothSCInPut
         Left = 0
         Top = 0
         Width = 980
-        Height = 281
+        Height = 224
         Align = alLeft
         TabOrder = 1
         object TV2: TcxGridDBTableView
@@ -1504,6 +1545,7 @@ object frmClothSCInPut: TfrmClothSCInPut
                 Default = True
                 Kind = bkEllipsis
               end>
+            Properties.ReadOnly = True
             Properties.OnButtonClick = cxGridDBColumn6PropertiesButtonClick
             HeaderAlignmentHorz = taCenter
             Options.Moving = False
@@ -1514,24 +1556,52 @@ object frmClothSCInPut: TfrmClothSCInPut
           object cxGridDBColumn9: TcxGridDBColumn
             Caption = #20811#25968
             DataBinding.FieldName = 'Y_Qty'
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.ReadOnly = True
             HeaderAlignmentHorz = taCenter
             Width = 143
           end
           object TV2Column1: TcxGridDBColumn
             Caption = #25467#24230
             DataBinding.FieldName = 'Y_Ndu'
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.ReadOnly = True
             HeaderAlignmentHorz = taCenter
             Width = 100
           end
           object TV2Column2: TcxGridDBColumn
             Caption = #26681#25968
             DataBinding.FieldName = 'Y_roots'
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.ReadOnly = True
             HeaderAlignmentHorz = taCenter
             Width = 70
           end
           object cxGridDBColumn10: TcxGridDBColumn
             Caption = #22791#27880
             DataBinding.FieldName = 'Y_Note'
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.ReadOnly = True
             HeaderAlignmentHorz = taCenter
             Options.Moving = False
             Options.Sorting = False
@@ -1549,7 +1619,7 @@ object frmClothSCInPut: TfrmClothSCInPut
       object ScrollBox2: TScrollBox
         Left = 0
         Top = 0
-        Width = 1458
+        Width = 1448
         Height = 224
         Align = alClient
         TabOrder = 0
@@ -2642,8 +2712,8 @@ object frmClothSCInPut: TfrmClothSCInPut
       object ScrollBox3: TScrollBox
         Left = 0
         Top = 0
-        Width = 1466
+        Width = 1448
-        Height = 232
+        Height = 224
         Align = alClient
         TabOrder = 0
         OnMouseWheel = ScrollBox3MouseWheel
@@ -2674,7 +2744,7 @@ object frmClothSCInPut: TfrmClothSCInPut
           Properties.ShowFocusRect = False
           Style.BorderStyle = ebsSingle
           TabOrder = 0
-          Height = 211
+          Height = 203
           Width = 481
         end
         object YWBian: TMemo
@@ -2682,7 +2752,7 @@ object frmClothSCInPut: TfrmClothSCInPut
           Left = 701
           Top = 0
           Width = 794
-          Height = 211
+          Height = 203
           Align = alRight
           TabOrder = 1
         end
@@ -2692,7 +2762,7 @@ object frmClothSCInPut: TfrmClothSCInPut
   object ToolBar2: TToolBar
     Left = 0
     Top = 445
-    Width = 1466
+    Width = 1448
     Height = 29
     ButtonHeight = 30
     ButtonWidth = 59

梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCInPut.pas

@@ -849,7 +849,7 @@ begin
 
     QDDate.Checked := True;
     DeliveryDate.Date := QDDate.DateTime;
-    kongjia.Text := '1';
+    kongjia.Text := '0.5';
     kongjiawei.Text := '0';
   end;
 

梭织计划单(ShuttleSchedule.dll)/U_ShuttleClothSCList.dfm

@@ -1,6 +1,6 @@
 object frmShuttleClothSCList: TfrmShuttleClothSCList
-  Left = 146
+  Left = 165
-  Top = 172
+  Top = 220
   Width = 1377
   Height = 579
   Caption = #26797#32455#32455#36896#21333
@@ -117,7 +117,7 @@ object frmShuttleClothSCList: TfrmShuttleClothSCList
     end
     object ComboBox1: TComboBox
       Left = 504
-      Top = 3
+      Top = 0
       Width = 145
       Height = 24
       Style = csDropDownList

梭织计划单(ShuttleSchedule.dll)/U_testdll.dfm

@@ -1,6 +1,6 @@
 object Form1: TForm1
-  Left = 203
+  Left = 587
-  Top = 121
+  Top = 348
   Width = 791
   Height = 554
   Caption = 'Form1'

纱线仓库/U_DataLink.dfm

@@ -2,8 +2,8 @@ object DataLink_Yarn: TDataLink_Yarn
   OldCreateOrder = False
   OnCreate = DataModuleCreate
   OnDestroy = DataModuleDestroy
-  Left = 343
+  Left = 490
-  Top = 231
+  Top = 105
   Height = 349
   Width = 482
   object AdoDataLink: TADOQuery

纱线仓库/U_GetDllForm.pas

@@ -71,11 +71,18 @@ begin
 
   if Trim(DataBaseStr) = '' then
   begin
-    server := '101.132.143.144,7781';
+//    server := '101.132.143.144,7781';
+////  server := '.';
+//    dtbase := 'chenfengdata';
+//    user := 'rtsa';
+//    pswd := 'rightsoft@5740';
+
+
+    server := '127.0.0.1';
 //  server := '.';
-    dtbase := 'chenfengdata';
+    dtbase := 'delphichenfeng';
-    user := 'rtsa';
+    user := 'sa';
-    pswd := 'rightsoft@5740';
+    pswd := 'rightsoft';
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
 
   end

纱线仓库/U_ShaKCHZList.dfm

@@ -1,6 +1,6 @@
 object frmShaKCHZList: TfrmShaKCHZList
-  Left = 190
+  Left = 202
-  Top = 136
+  Top = 556
   Width = 1256
   Height = 630
   Caption = #32433#32447#24211#23384#27719#24635#21015#34920
@@ -148,11 +148,11 @@ object frmShaKCHZList: TfrmShaKCHZList
     Left = 0
     Top = 70
     Width = 1240
-    Height = 522
+    Height = 521
     Align = alClient
     TabOrder = 2
     object Tv1: TcxGridDBTableView
-      NavigatorButtons.ConfirmDelete = False
+      Navigator.Buttons.CustomButtons = <>
       OnCellDblClick = Tv1CellDblClick
       DataController.DataSource = DataSource1
       DataController.Summary.DefaultGroupSummaryItems = <>
@@ -224,8 +224,8 @@ object frmShaKCHZList: TfrmShaKCHZList
         DataBinding.FieldName = 'SPCode'
         Visible = False
         HeaderAlignmentHorz = taCenter
-        Hidden = True
         Options.Editing = False
+        VisibleForCustomization = False
         Width = 89
       end
       object v1Column8: TcxGridDBColumn

纱线仓库/U_ShaKCHZList.pas

@@ -10,7 +10,22 @@ uses
   cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
   ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
   cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
-  RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit;
+  RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,
+  cxLookAndFeels, cxLookAndFeelPainters, 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,
+  cxNavigator;
 
 type
   TfrmShaKCHZList = class(TForm)

纱线仓库/U_ShaKCList.dfm

@@ -1,6 +1,6 @@
 object frmShaKCList: TfrmShaKCList
-  Left = 132
+  Left = 35
-  Top = 134
+  Top = 540
   Width = 1382
   Height = 611
   Caption = #32433#32447#24211#23384#21015#34920
@@ -20,7 +20,7 @@ object frmShaKCList: TfrmShaKCList
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1374
+    Width = 1366
     Height = 33
     ButtonHeight = 30
     ButtonWidth = 59
@@ -91,7 +91,7 @@ object frmShaKCList: TfrmShaKCList
   object Panel1: TPanel
     Left = 0
     Top = 33
-    Width = 1374
+    Width = 1366
     Height = 60
     Align = alTop
     BevelInner = bvRaised
@@ -198,8 +198,8 @@ object frmShaKCList: TfrmShaKCList
   object cxGrid2: TcxGrid
     Left = 0
     Top = 93
-    Width = 1374
+    Width = 1366
-    Height = 487
+    Height = 479
     Align = alClient
     TabOrder = 2
     object Tv1: TcxGridDBTableView
@@ -487,8 +487,8 @@ object frmShaKCList: TfrmShaKCList
   object CDS_Print: TClientDataSet
     Aggregates = <>
     Params = <>
-    Left = 348
+    Left = 180
-    Top = 332
+    Top = 284
   end
   object RMDBPrint: TRMDBDataSet
     Visible = True

纱线仓库/U_ShaKCList.pas

@@ -12,7 +12,20 @@ uses
   cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
   RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit,Math,
   MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
-  dxSkinsCore, dxSkinsDefaultPainters, dxSkinscxPCPainter;
+  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
   TfrmShaKCList = class(TForm)
@@ -258,7 +271,7 @@ begin
   TcxGridToExcel('É´Ïß¿â´æÁбí', cxGrid2);
 end;
 
-procedure TfrmShaKCList.ToolButton3Click(Sender: TObject);
+procedure TfrmShaKCList.ToolButton3Click(Sender: TObject);  //print
 var
   fPrintFile: string;
   Txt, fImagePath,CNSql,FNSql,BNSql,CTSql: string;

纱线仓库/U_ShaOutList.dfm

@@ -1,8 +1,8 @@
 object frmShaOutList: TfrmShaOutList
-  Left = 363
+  Left = 620
-  Top = 647
+  Top = 492
-  Width = 1356
+  Width = 1355
-  Height = 667
+  Height = 451
   Caption = #32433#32447#20986#24211#21015#34920
   Color = clBtnFace
   Font.Charset = GB2312_CHARSET
@@ -21,7 +21,7 @@ object frmShaOutList: TfrmShaOutList
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1348
+    Width = 1339
     Height = 33
     ButtonHeight = 30
     ButtonWidth = 59
@@ -107,7 +107,7 @@ object frmShaOutList: TfrmShaOutList
   object Panel1: TPanel
     Left = 0
     Top = 33
-    Width = 1348
+    Width = 1339
     Height = 61
     Align = alTop
     BevelInner = bvRaised
@@ -335,12 +335,13 @@ object frmShaOutList: TfrmShaOutList
   object cxGrid2: TcxGrid
     Left = 0
     Top = 116
-    Width = 1348
+    Width = 1339
-    Height = 520
+    Height = 296
     Align = alClient
     TabOrder = 2
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      OnCustomDrawCell = Tv1CustomDrawCell
       DataController.DataSource = DataSource1
       DataController.Summary.DefaultGroupSummaryItems = <>
       DataController.Summary.FooterSummaryItems = <
@@ -363,11 +364,16 @@ object frmShaOutList: TfrmShaOutList
         end>
       DataController.Summary.SummaryGroups = <>
       OptionsCustomize.ColumnFiltering = False
-      OptionsSelection.CellSelect = False
       OptionsView.Footer = True
       OptionsView.GroupByBox = False
       Styles.Content = cxStyle1
       Styles.Header = cxStyle1
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'Ssel'
+        HeaderAlignmentHorz = taCenter
+        Width = 72
+      end
       object v1Column6: TcxGridDBColumn
         Caption = #20986#24211#21333#21495
         DataBinding.FieldName = 'Y_ID'
@@ -561,6 +567,10 @@ object frmShaOutList: TfrmShaOutList
         Options.Editing = False
         Width = 100
       end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #25171#21360
+        DataBinding.FieldName = 'DYFlag'
+      end
     end
     object cxGrid2Level1: TcxGridLevel
       GridView = Tv1
@@ -569,7 +579,7 @@ object frmShaOutList: TfrmShaOutList
   object cxTabControl1: TcxTabControl
     Left = 0
     Top = 94
-    Width = 1348
+    Width = 1339
     Height = 22
     Align = alTop
     TabOrder = 3
@@ -582,7 +592,7 @@ object frmShaOutList: TfrmShaOutList
       #24050#20316#24223#25968#25454)
     OnChange = cxTabControl1Change
     ClientRectBottom = 23
-    ClientRectRight = 1348
+    ClientRectRight = 1339
     ClientRectTop = 23
   end
   object ADOQueryCmd: TADOQuery
@@ -644,7 +654,7 @@ object frmShaOutList: TfrmShaOutList
   end
   object RMDBMain: TRMDBDataSet
     Visible = True
-    DataSet = CDS_Main
+    DataSet = CDS_PRT
     Left = 424
     Top = 232
   end
@@ -703,4 +713,15 @@ object frmShaOutList: TfrmShaOutList
       Font.Style = [fsBold]
     end
   end
+  object CDS_Print: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 208
+    Top = 264
+  end
+  object ADOTmp: TADOQuery
+    Parameters = <>
+    Left = 104
+    Top = 232
+  end
 end

纱线仓库/U_ShaOutList.pas

@@ -105,6 +105,10 @@ type
     cxStyle1: TcxStyle;
     Note: TEdit;
     Label7: TLabel;
+    Tv1Column2: TcxGridDBColumn;
+    CDS_Print: TClientDataSet;
+    Tv1Column3: TcxGridDBColumn;
+    ADOTmp: TADOQuery;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -129,6 +133,9 @@ type
     procedure ToolButton1Click(Sender: TObject);
     procedure v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
     procedure v2Column6CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+    procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
   private
     canshu1, canshu2: string;
     procedure InitGrid();
@@ -211,6 +218,7 @@ end;
 procedure TfrmShaOutList.TBCloseClick(Sender: TObject);
 begin
   WriteCxGrid('纱线出库列表121', Tv1, '纱线仓库');
+  //ReadCxGrid('纱线出库列表121', Tv1, '纱线仓库');
   Close;
 end;
 
@@ -258,7 +266,7 @@ begin
   end;
   fsj := 'select distinct(Crtype) name from CK_Yarn_CR where ckname=''纱线'' and crflag=''出库''  ';
   SInitComBoxBySql(ADOQueryCmd, CRType, False, fsj);
-  //InitGrid();
+  InitGrid();
 end;
 
 procedure TfrmShaOutList.TBExportClick(Sender: TObject);
@@ -402,6 +410,8 @@ begin
   end;
 end;
 
+
+
 procedure TfrmShaOutList.TBEditClick(Sender: TObject);
 begin
   if CDS_Main.IsEmpty then
@@ -525,47 +535,95 @@ end;
 
 procedure TfrmShaOutList.ToolButton1Click(Sender: TObject);
 var
-  filepath: string;
+  fPrintFile, Txt, fImagePath, YIDSql: string;
-  mBegdate, mEnddate: string;
+  Moudle: THandle;
-  FName, FNameSX, FNameJX: string;
+  Makebar: TMakebar;
-  i: Integer;
+  Mixtext: TMixtext;
+  SelectedCount: Integer;
 begin
-  for i := 0 to Tv1.ColumnCount - 1 do
-  begin
-    FName := Tv1.Columns[i].DataBinding.FilterFieldName;
-    FNameSX := Trim(FName) + '-1';
-    FNameJX := Trim(FName) + '-2';
-    CDS_Main.AddIndex(FNameSX, FName, []);             { 正序 }
-    CDS_Main.AddIndex(FNameJX, FName, [ixDescending]); { 倒序 }
-    if Tv1.Columns[i].SortOrder = soDescending then
-    begin
-      CDS_Main.IndexName := FNameJX;
-    end
-    else if Tv1.Columns[i].SortOrder = soAscending then
-    begin
-      CDS_Main.IndexName := FNameSX;
-    end;
-  end;
-  mBegdate := FormatDateTime('yyyy-MM-dd', begdate.Date);
-  mEnddate := FormatDateTime('yyyy-MM-dd', enddate.Date);
   if CDS_Main.IsEmpty then
-    exit;
+    Exit;
 
-  ExportFtErpFile('纱线出库报表.rmf', ADOQueryTemp);
+  if CDS_Main.Locate('SSel', True, []) = False then
-  try
-    filepath := ExtractFilePath(Application.ExeName) + 'report\纱线出库报表.rmf';
-    if not FileExists(Pchar(filepath)) then
   begin
-      application.MessageBox(pchar('文件[' + filepath + ']不存在！'), '提示信息', MB_IConError);
+    Application.MessageBox('没有选择数据!', '提示', 0);
-      exit;
+    Exit;
+  end;
+
+  SelectedCount := 0;
+  YIDSql := '';
+  CDS_Main.DisableControls;
+
+  try
+    with CDS_Main do
+    begin
+      First;
+      while not Eof do
+      begin
+        if FieldByName('SSel').AsBoolean then
+        begin
+          if YIDSql <> '' then
+            YIDSql := YIDSql + ',' + QuotedStr(Trim(FieldByName('Y_ID').AsString))
+          else
+            YIDSql := QuotedStr(Trim(FieldByName('Y_ID').AsString));
+
+          Inc(SelectedCount);
+        end;
+        Next;
+      end;
     end;
-    RmVariables['begDate'] := FormatDateTime('yymmdd', begDate.Date) + '-' + FormatDateTime('yymmdd', enddate.Date);
-    RM1.LoadFromFile(filepath);
-    RM1.ShowReport;
   finally
-
+    CDS_Main.EnableControls;
   end;
 
+  if YIDSql = '' then
+  begin
+    Application.MessageBox('未选择任何数据!', '提示', 0);
+    Exit;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add(' select A.* ');
+    sql.Add(' from CK_Yarn_CR A');
+    sql.Add(' where isnull(CKName,'''')=''纱线''');
+    SQL.Add(' and CRFlag=''出库''');
+    SQL.Add(' and A.Y_ID in (' + YIDSql + ')');
+    SQL.Add(' order by CRTime desc');
+    Open;
+  end;
+
+  if ADOQueryCmd.IsEmpty then
+  begin
+    Application.MessageBox('未找到对应的纱线出库数据！', '提示信息', MB_ICONINFORMATION);
+    Exit;
+  end;
+
+  SCreateCDS20(ADOQueryCmd, CDS_PRT);
+  SInitCDSData20(ADOQueryCmd, CDS_PRT);
+  with ADOQueryTemp do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('UPDATE CK_Yarn_CR set DYFLAG=''已打印'' where Y_ID in (' + YIDSql + ')');
+    ExecSQL;
+  end;
+
+  fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\纱线出库报表.rmf';
+  ExportFtErpFile('纱线出库报表.rmf', ADOQueryCmd);
+
+  if FileExists(fPrintFile) then
+  begin
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end
+  else
+  begin
+    Application.MessageBox(PChar('未找到报表文件：' + #13#10 + fPrintFile), '提示', MB_ICONWARNING);
+  end;
+  
+  InitGrid();
 end;
 
 procedure TfrmShaOutList.v1Column9CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
@@ -594,5 +652,15 @@ begin
   end;
 end;
 
+
+procedure TfrmShaOutList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
+  ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+  var ADone: Boolean);
+begin
+  if '已打印' = AViewInfo.GridRecord.Values[Tv1Column3.Index] then
+    ACanvas.Brush.Color := $0080FF80;
+end;
+
 end.
 
+

纱线仓库/U_ShaOutPut.dfm

@@ -1,6 +1,6 @@
 object frmShaOutPut: TfrmShaOutPut
-  Left = 289
+  Left = 158
-  Top = 247
+  Top = 186
   Width = 1383
   Height = 644
   Align = alClient

纱线仓库/U_ShaOutPut.pas

@@ -467,7 +467,7 @@ begin
   if SaveCKData() then
   begin
     Application.MessageBox('保存成功!', '提示', 0);
-    //ModalResult:=1;
+    ModalResult:=1;
     Exit;
   end;
 end;