加一个指示单号 过滤条件，匹数汇总注脚加下

应收应付(YSYF.dll)/U_YSMXlist.dfm

@@ -1,7 +1,7 @@
 object frmYSMXlist: TfrmYSMXlist
-  Left = 173
-  Top = 272
-  Width = 1341
+  Left = 196
+  Top = 169
+  Width = 1314
   Height = 559
   Caption = #24212#25910#23545#36134#20449#24687#34920
   Color = clBtnFace
@@ -21,7 +21,7 @@ object frmYSMXlist: TfrmYSMXlist
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1325
+    Width = 1306
     Height = 31
     ButtonHeight = 30
     ButtonWidth = 59
@@ -78,7 +78,7 @@ object frmYSMXlist: TfrmYSMXlist
   object Panel1: TPanel
     Left = 0
     Top = 31
-    Width = 1325
+    Width = 1306
     Height = 38
     Align = alTop
     BevelInner = bvRaised
@@ -127,6 +127,13 @@ object frmYSMXlist: TfrmYSMXlist
       Height = 12
       Caption = #23458#25143
     end
+    object Label7: TLabel
+      Left = 500
+      Top = 14
+      Width = 48
+      Height = 12
+      Caption = #25351#31034#21333#21495
+    end
     object MPRTCodeName: TEdit
       Tag = 2
       Left = 726
@@ -186,7 +193,7 @@ object frmYSMXlist: TfrmYSMXlist
     end
     object factoryName: TEdit
       Tag = 2
-      Left = 364
+      Left = 356
       Top = 9
       Width = 120
       Height = 20
@@ -194,13 +201,23 @@ object frmYSMXlist: TfrmYSMXlist
       OnChange = MPRTCodeNameChange
       OnKeyPress = factoryNameKeyPress
     end
+    object Edit1: TEdit
+      Tag = 2
+      Left = 556
+      Top = 9
+      Width = 120
+      Height = 20
+      TabOrder = 6
+      OnChange = MPRTCodeNameChange
+      OnKeyPress = factoryNameKeyPress
+    end
   end
   object cxGrid2: TcxGrid
     Left = 0
     Top = 69
-    Width = 1325
-    Height = 444
-    Align = alTop
+    Width = 1306
+    Height = 459
+    Align = alClient
     TabOrder = 2
     object TV1: TcxGridDBBandedTableView
       Navigator.Buttons.CustomButtons = <>
@@ -228,6 +245,10 @@ object frmYSMXlist: TfrmYSMXlist
         end
         item
           Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = TV1Column1
         end>
       DataController.Summary.SummaryGroups = <>
       OptionsCustomize.ColumnFiltering = False
@@ -415,8 +436,8 @@ object frmYSMXlist: TfrmYSMXlist
     end
   end
   object Panetime: TPanel
-    Left = 318
-    Top = 164
+    Left = 286
+    Top = 244
     Width = 185
     Height = 41
     BevelInner = bvRaised

应收应付(YSYF.dll)/U_YSMXlist.pas

@@ -83,6 +83,8 @@ type
     V1Column23: TcxGridDBBandedColumn;
     TV1Column1: TcxGridDBBandedColumn;
     TV1Column3: TcxGridDBBandedColumn;
+    Label7: TLabel;
+    Edit1: TEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);