diff --git a/应收应付/U_YSMXlist.dfm b/应收应付/U_YSMXlist.dfm
index d24ec8b..1e8cc5c 100644
--- a/应收应付/U_YSMXlist.dfm
+++ b/应收应付/U_YSMXlist.dfm
@@ -1,6 +1,6 @@
 object frmYSMXlist: TfrmYSMXlist
-  Left = 277
-  Top = 638
+  Left = 423
+  Top = 608
   Width = 1205
   Height = 614
   Caption = #24212#25910#23545#36134#20449#24687#34920
@@ -278,7 +278,7 @@ object frmYSMXlist: TfrmYSMXlist
         item
           Caption = #25910#27454
           Styles.Header = cxStyle2
-          Width = 160
+          Width = 314
         end
         item
           Caption = #24320#31080
@@ -402,7 +402,7 @@ object frmYSMXlist: TfrmYSMXlist
         Width = 75
         OnCompareRowValuesForCellMerging = V1Column9CompareRowValuesForCellMerging
         Position.BandIndex = 2
-        Position.ColIndex = 1
+        Position.ColIndex = 2
         Position.RowIndex = 0
       end
       object V1Column15: TcxGridDBBandedColumn
@@ -605,6 +605,19 @@ object frmYSMXlist: TfrmYSMXlist
         Position.ColIndex = 1
         Position.RowIndex = 0
       end
+      object TV1Column3: TcxGridDBBandedColumn
+        Caption = #25910#27454#26041#24335
+        DataBinding.FieldName = 'PayMent'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Content = cxStyle2
+        Styles.Header = cxStyle2
+        Width = 70
+        Position.BandIndex = 2
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+      end
     end
     object cxGridLevel1: TcxGridLevel
       GridView = TV1
diff --git a/应收应付/U_YSMXlist.pas b/应收应付/U_YSMXlist.pas
index c916ba9..35803bf 100644
--- a/应收应付/U_YSMXlist.pas
+++ b/应收应付/U_YSMXlist.pas
@@ -95,6 +95,7 @@ type
     cxStyle2: TcxStyle;
     TV1Column1: TcxGridDBBandedColumn;
     TV1Column2: TcxGridDBBandedColumn;
+    TV1Column3: TcxGridDBBandedColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -169,7 +170,7 @@ begin
       end;
       sql.Add(',@YFGSType='''' ');
       sql.Add(',@ISHS=' + quotedstr(Trim(ISHS.Text)));
-//      ShowMessage(sql.Text);
+      //ShowMessage(sql.Text);
       Open;
     end;
     SCreateCDS20(ADOQueryMain, CDS_HZ);