diff --git a/报关管理(BaoGuan.dll)/U_YFGLList.dfm b/报关管理(BaoGuan.dll)/U_YFGLList.dfm
index 06dacd5..6562791 100644
--- a/报关管理(BaoGuan.dll)/U_YFGLList.dfm
+++ b/报关管理(BaoGuan.dll)/U_YFGLList.dfm
@@ -284,9 +284,11 @@ object frmYFGLList: TfrmYFGLList
       DataController.Summary.FooterSummaryItems = <
         item
           Kind = skSum
+          Column = TV1ZUSD
         end
         item
           Kind = skSum
+          Column = TV1ZRMB
         end
         item
           Kind = skSum
@@ -391,17 +393,17 @@ object frmYFGLList: TfrmYFGLList
         HeaderAlignmentHorz = taCenter
         Width = 66
       end
-      object TV1Column13: TcxGridDBColumn
+      object TV1ZUSD: TcxGridDBColumn
         Caption = #24635'USD'#37329#39069
         DataBinding.FieldName = 'ZUSD'
         HeaderAlignmentHorz = taCenter
         Width = 78
       end
-      object TV1Column14: TcxGridDBColumn
+      object TV1ZRMB: TcxGridDBColumn
         Caption = #24635'RMB'#37329#39069
         DataBinding.FieldName = 'ZRMB'
         HeaderAlignmentHorz = taCenter
-        Width = 66
+        Width = 78
       end
       object TV1Column15: TcxGridDBColumn
         Caption = #22791#27880
diff --git a/报关管理(BaoGuan.dll)/U_YFGLList.pas b/报关管理(BaoGuan.dll)/U_YFGLList.pas
index b40fedd..a6420c1 100644
--- a/报关管理(BaoGuan.dll)/U_YFGLList.pas
+++ b/报关管理(BaoGuan.dll)/U_YFGLList.pas
@@ -79,8 +79,8 @@ type
     TV1Column10: TcxGridDBColumn;
     TV1Column11: TcxGridDBColumn;
     TV1Column12: TcxGridDBColumn;
-    TV1Column13: TcxGridDBColumn;
-    TV1Column14: TcxGridDBColumn;
+    TV1ZUSD: TcxGridDBColumn;
+    TV1ZRMB: TcxGridDBColumn;
     TV1Column15: TcxGridDBColumn;
     TV1Column16: TcxGridDBColumn;
     ToolButton3: TToolButton;
@@ -160,7 +160,8 @@ type
 implementation
 
 uses
-  U_DataLink, U_RTFun, U_ZDYHelp, U_BaoGuanInPut, U_Fun, U_YFGLInPut, U_LabelPrintFun;
+  U_DataLink, U_RTFun, U_ZDYHelp, U_BaoGuanInPut, U_Fun, U_YFGLInPut,
+  U_LabelPrintFun;
 
 {$R *.dfm}
 function TfrmYFGLList.GetShellFolders(strDir: string): string;
@@ -1067,7 +1068,7 @@ end;
 
 procedure TfrmYFGLList.ToolButton8Click(Sender: TObject);
 var
-  MPrintJson, JsonResult, msql: string;
+  MPrintJson, JsonResult, msql, Pwhere: string;
 begin
 
   if CDS_Main.IsEmpty then
@@ -1086,6 +1087,12 @@ begin
     msql := msql + ' and FILLTIME<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + ''' ';
 
   end;
+
+  Pwhere := SGetFilters(Panel1, 1, 2);
+
+  if trim(Pwhere) <> '' then
+    msql := msql + ' and ' + trim(Pwhere);
+
   msql := msql + 'ORDER BY YWY desc, FILLTIME  ';
 
   MPrintJson := '{ "LBName": "��ҵ��Ա����","QrCodeField": "ssid","DConString": "' + DConString + '","DCode": "' + DCode + '","DName": "' + DName + '","IsPreview": true,"printerIndex": 0,"ExportFileType": "xls", "PrtArgs": [ {"SqlStr": "' + msql + '" }] }';