财务

A09财务通用管理/Financial.dpr

@@ -22,7 +22,7 @@ uses
   U_BankSel in '..\A00通用窗体\U_BankSel.pas' {frmBankSel},
   U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
   U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
-  U_AttachmentUpload in '..\A00通用窗体\U_AttachmentUpload.pas' {frmAttachmentUpload},
+  U_AttachmentUploadIvI in 'U_AttachmentUploadIvI.pas' {frmAttachmentUploadIvI},
   U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
   U_ReceivableList in 'U_ReceivableList.pas' {frmReceivableList},
   U_CollectList in 'U_CollectList.pas' {frmCollectList},
@@ -51,7 +51,8 @@ uses
   U_FinPurchasePlanSel in 'U_FinPurchasePlanSel.pas' {frmFinPurchasePlanSel},
   U_CollectInput2 in 'U_CollectInput2.pas' {frmCollectInput2},
   U_InvoiceOutSel in 'U_InvoiceOutSel.pas' {frmInvoiceOutSel},
-  U_CollectImport in 'U_CollectImport.pas' {frmCollectImport};
+  U_CollectImport in 'U_CollectImport.pas' {frmCollectImport},
+  U_AttachmentUpload in '..\A00通用窗体\U_AttachmentUpload.pas' {frmAttachmentUpload};
 
 {$R *.res}
 

A09财务通用管理/Financial.dproj

@@ -134,8 +134,8 @@
             <Form>frmLabelPrint</Form>
             <FormType>dfm</FormType>
         </DCCReference>
-        <DCCReference Include="..\A00通用窗体\U_AttachmentUpload.pas">
+        <DCCReference Include="U_AttachmentUploadIvI.pas">
-            <Form>frmAttachmentUpload</Form>
+            <Form>frmAttachmentUploadIvI</Form>
             <FormType>dfm</FormType>
         </DCCReference>
         <DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
@@ -237,6 +237,10 @@
             <Form>frmCollectImport</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="..\A00通用窗体\U_AttachmentUpload.pas">
+            <Form>frmAttachmentUpload</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

A09财务通用管理/Financial.dproj.local

@@ -1,81 +1,82 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj</Transaction>
     <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm</Transaction>
     <Transaction>1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
     <Transaction>1899/12/30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
+    <Transaction>1899/12/30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
     <Transaction>2026/05/22 14:41:58.000.210,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.pas</Transaction>
-    <Transaction>2026/05/22 14:42:09.000.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.pas</Transaction>
+    <Transaction>2026/05/22 14:42:09.000.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.dfm</Transaction>
-    <Transaction>2026/05/22 14:42:09.000.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.dfm</Transaction>
+    <Transaction>2026/05/22 14:42:09.000.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.pas</Transaction>
     <Transaction>2026/05/22 15:10:32.000.542,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.pas</Transaction>
-    <Transaction>2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.dfm</Transaction>
+    <Transaction>2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.dfm</Transaction>
-    <Transaction>2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.pas</Transaction>
+    <Transaction>2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.pas</Transaction>
     <Transaction>2026/05/30 14:03:53.000.690,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas</Transaction>
-    <Transaction>2026/05/30 14:04:26.000.060,D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.dfm</Transaction>
+    <Transaction>2026/05/30 14:04:26.000.060,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.dfm=D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.dfm</Transaction>
-    <Transaction>2026/05/30 14:04:26.000.060,D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas</Transaction>
+    <Transaction>2026/05/30 14:04:26.000.060,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas=D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.pas</Transaction>
     <Transaction>2026/05/30 14:05:55.000.119,D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.pas=</Transaction>
     <Transaction>2026/05/30 14:42:33.000.201,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas</Transaction>
+    <Transaction>2026/06/06 10:50:33.795,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_AttachmentUploadIvI.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>2026/06/06 10:50:33.795,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_AttachmentUploadIvI.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A00通用窗体\U_AttachmentUpload.dfm</Transaction>
+    <Transaction>2026/06/06 10:51:08.483,=D:\D10V1W\项目代码\D10SZKaiXiYa\A00通用窗体\U_AttachmentUpload.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="..\..\D10SZKaiXiYa"/>
     <File Path="..\A00通用窗体"/>
-    <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
-    <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
     <File Path="..\A00通用窗体\U_BankSel.pas"/>
     <File Path="..\A00通用窗体\U_BankSel.dfm"/>
     <File Path="..\A00通用窗体\U_ClothInfoSel.pas"/>
@@ -88,6 +89,8 @@
     <File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
     <File Path="..\A00通用窗体\U_LabelPrint.pas"/>
     <File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
+    <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
+    <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
     <File Path="D:\D10V1W"/>
     <File Path="..\..\..\public10"/>
     <File Path="..\..\..\public10\design"/>
@@ -160,5 +163,7 @@
     <File Path="U_InvoiceOutSel.dfm"/>
     <File Path="U_CollectImport.pas"/>
     <File Path="U_CollectImport.dfm"/>
+    <File Path="U_AttachmentUploadIvI.pas"/>
+    <File Path="U_AttachmentUploadIvI.dfm"/>
   </ProjectSortOrder>
 </BorlandProject>

A09财务通用管理/U_AttachmentUploadIvI.pas

@@ -0,0 +1,413 @@
+unit U_AttachmentUploadIvI;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ExtCtrls, ComCtrls, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons,
+  DB, ADODB, ImgList, shellapi, IdBaseComponent, IdComponent, IdTCPConnection,
+  IdTCPClient, IdFTP, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, cxDBData, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
+  cxGrid, cxLookAndFeels, cxNavigator, dxDateRanges,
+  IdExplicitTLSClientServerBase, System.ImageList, U_BaseHelp, Vcl.ToolWin,
+  dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
+  dxSkinWXI;
+
+type
+  TfrmAttachmentUploadIvI = class(TfrmBaseHelp)
+    ListView1: TListView;
+    ADOQueryTmp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Panel2: TPanel;
+    IdFTP1: TIdFTP;
+    ADOConnection1: TADOConnection;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    DataSource1: TDataSource;
+    v1Column4: TcxGridDBColumn;
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBAdd: TToolButton;
+    TBClose: TToolButton;
+    TBDel: TToolButton;
+    btnDown: TToolButton;
+    ImageList1: TImageList;
+    cxImageList_bar: TcxImageList;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure ListView1DblClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure Panel2DblClick(Sender: TObject);
+    procedure Tv1DblClick(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure btnDownClick(Sender: TObject);
+  private
+    procedure InitData();
+    { Private declarations }
+  public
+    fkeyNO: string;
+    fType: string;
+    fId: integer;
+    FEditAuthority: Boolean;
+
+    { Public declarations }
+  end;
+
+var
+  frmAttachmentUploadIvI: TfrmAttachmentUploadIvI;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_CompressionFun, U_AttachmentUpload;
+{$R *.dfm}
+
+procedure TfrmAttachmentUploadIvI.InitData();
+var
+  sql1: string;
+begin
+  ListView1.Items.Clear;
+  try
+    if fType = '进项发票' then
+    begin
+      sql1 := 'select * from FJ_File where (WBID = ' + QuotedStr(Trim(fkeyNO)) +
+             ' and TFType = ' + QuotedStr(Trim(fType)) + ')';
+      sql1 := sql1 + ' union all ';
+      sql1 := sql1 + 'select * from FJ_File where WBID in ' +
+             '(select FFID from Finance_Flow where CHARINDEX(' +
+             QuotedStr(',' + Trim(fkeyNO) + ',') + ', '','' + IVID + '','') > 0) ' +
+             'and TFType = ''费用登记''';
+    end
+    else
+    begin
+      sql1 := 'select * from FJ_File where WBID = ' + QuotedStr(Trim(fkeyNO)) +
+             ' and TFType = ' + QuotedStr(Trim(fType));
+    end;
+
+    with adoqueryTmp do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add(sql1);
+      Open;
+    end;
+  except
+  end;
+end;
+
+procedure TfrmAttachmentUploadIvI.FormDestroy(Sender: TObject);
+begin
+  frmAttachmentUploadIvI := nil;
+end;
+
+procedure TfrmAttachmentUploadIvI.FormCreate(Sender: TObject);
+begin
+  try
+    with ADOConnection1 do
+    begin
+      Connected := false;
+      ConnectionString := DConString;
+      Connected := true;
+    end;
+    ADOQueryBaseCmd.Connection := ADOConnection1;
+    ADOQueryBaseTemp.Connection := ADOConnection1;
+  except
+    application.MessageBox('网络连接失败！', '提示信息');
+  end;
+end;
+
+procedure TfrmAttachmentUploadIvI.FormShow(Sender: TObject);
+begin
+//  if FEditAuthority then
+//  begin
+//    btnDown.Visible := True;
+//    TBDel.Visible := True;
+//    TBAdd.Visible := True;
+//  end
+//  else
+//  begin
+//    btnDown.Visible := false;
+//    TBDel.Visible := false;
+//    TBAdd.Visible := false;
+//  end;
+
+  initdata();
+end;
+
+procedure TfrmAttachmentUploadIvI.ListView1DblClick(Sender: TObject);
+var
+  sFieldName: string;
+  fileName: string;
+begin
+  if ListView1.Items.Count < 1 then
+    EXIT;
+
+  if listView1.SelCount < 1 then
+    exit;
+  sFieldName := 'D:\附件查看';
+
+  if not DirectoryExists(pchar(sFieldName)) then
+    CreateDirectory(pchar(sFieldName), nil);
+
+  fileName := ListView1.Selected.Caption;
+
+  sFieldName := sFieldName + '\' + trim(fileName);
+
+  try
+    IdFTP1.Host := PicSvr;
+    IdFTP1.Username := 'three';
+    IdFTP1.Password := '641010';
+    IdFTP1.Connect();
+  except
+    ;
+  end;
+
+  if IdFTP1.Connected then
+  begin
+
+    Panel2.Caption := '正在下载数据，请稍等...';
+    Panel2.Visible := true;
+    application.ProcessMessages;
+    try
+      IdFTP1.Get('FJ\' + Trim(fileName), sFieldName, false, true);
+    except
+      Panel2.Visible := false;
+      Application.MessageBox('附件文件不存在', '提示', MB_ICONWARNING);
+      IdFTP1.Quit;
+      Exit;
+    end;
+  end
+  else
+  begin
+    Panel2.Visible := false;
+    Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING);
+    IdFTP1.Quit;
+    Exit;
+  end;
+  Panel2.Visible := false;
+  if IdFTP1.Connected then
+    IdFTP1.Quit;
+  ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
+
+end;
+
+procedure TfrmAttachmentUploadIvI.btnDownClick(Sender: TObject);
+var
+  SaveDialog: TSaveDialog;
+  fFileName: string;
+  fFilePath: string;
+  ff: TADOBlobStream;
+  FJStream: TMemoryStream;
+begin
+  if adoqueryTmp.IsEmpty then
+    exit;
+
+  try
+
+    fFileName := adoqueryTmp.fieldbyname('FileName').AsString;
+
+    SaveDialog := TSaveDialog.Create(Self);
+
+    SaveDialog.FileName := fFileName;
+    if SaveDialog.Execute then
+    begin
+      Panel2.Caption := '正在保存数据，请稍等...';
+      Panel2.Visible := true;
+      application.ProcessMessages;
+      fFilePath := SaveDialog.FileName;
+
+      try
+        ff := TADOBlobstream.Create(adoqueryTmp.fieldByName('FilesOther') as TblobField, bmRead);
+
+        FJStream := TMemoryStream.Create;
+        ff.SaveToStream(FJStream);
+        UnCompressionStream(FJStream);
+        FJStream.SaveToFile(fFilePath);
+      // ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL);
+      finally
+        FJStream.free;
+        ff.Free;
+      end;
+
+      Panel2.Visible := false;
+  //   if IdFTP1.Connected then IdFTP1.Quit;
+    end;
+  except
+    Panel2.Visible := false;
+  end;
+end;
+
+procedure TfrmAttachmentUploadIvI.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  if fId = 10 then
+    Action := cafree
+  else
+    Action := cahide;
+end;
+
+procedure TfrmAttachmentUploadIvI.Panel2DblClick(Sender: TObject);
+begin
+  Panel2.Visible := false;
+end;
+
+procedure TfrmAttachmentUploadIvI.TBAddClick(Sender: TObject);
+var
+  OpenDiaLog: TOpenDialog;
+  fFileName: string;
+  fFilePath: string;
+  maxNo: string;
+  FJStream: TMemoryStream;
+  mfileSize: integer;
+  mCreationTime: TdateTime;
+  mWriteTime: TdateTime;
+begin
+
+  try
+    adoqueryCmd.Connection.BeginTrans;
+    OpenDiaLog := TOpenDialog.Create(Self);
+    if OpenDiaLog.Execute then
+    begin
+      fFilePath := OpenDiaLog.FileName;
+      fFileName := ExtractFileName(OpenDiaLog.FileName);
+      Panel2.Caption := '正在上传数据，请稍等...';
+      Panel2.Visible := true;
+      application.ProcessMessages;
+
+      if GetLSNo(ADOQueryCmd, maxNo, 'FJ', 'FJ_File', 4, 1) = False then
+      begin
+        adoqueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('取最大号失败！', '提示', 0);
+        Exit;
+      end;
+      //获取文件信息
+      GetFileInfo(fFilePath, mfileSize, mCreationTime, mWriteTime);
+      with adoqueryCmd do
+      begin
+        close;
+        sql.Clear;
+        sql.Add('delete from FJ_File ');
+        sql.Add('where TFID=' + quotedstr(trim(maxNo)));
+        execsql;
+      end;
+      try
+        FJStream := TMemoryStream.Create;
+        with adoqueryCmd do
+        begin
+          close;
+          sql.Clear;
+          sql.Add('select * from FJ_File ');
+          sql.Add('where TFID=' + quotedstr(trim(maxNo)));
+          open;
+          append;
+          fieldbyname('TFID').Value := trim(maxNo);
+          fieldbyname('WBID').Value := trim(fkeyNO);
+          fieldbyname('TFType').Value := trim(fType);
+          fieldbyname('Filler').Value := trim(DName);
+          fieldbyname('FileName').Value := trim(fFileName);
+          fieldbyname('TFDate').Value := mWriteTime;
+          FJStream.LoadFromFile(fFilePath);
+          CompressionStream(FJStream);
+          tblobfield(FieldByName('Filesother')).LoadFromStream(FJStream);
+          post;
+        end;
+        Panel2.Visible := false;
+        initdata();
+      finally
+        FJStream.Free;
+      end;
+
+    end;
+    adoqueryCmd.Connection.CommitTrans;
+  except
+    adoqueryCmd.Connection.RollbackTrans;
+    application.MessageBox('附件保存失败！', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmAttachmentUploadIvI.TBCloseClick(Sender: TObject);
+begin
+  ADOQueryTmp.Close;
+  ADOQuerycmd.Close;
+  ListView1.Free;
+  ModalResult := 1;
+end;
+
+procedure TfrmAttachmentUploadIvI.TBDelClick(Sender: TObject);
+var
+  fFileName: string;
+  fFilePath: string;
+begin
+
+  if ADOQueryTmp.IsEmpty then
+    exit;
+  if trim(ADOQueryTmp.fieldbyname('Filler').AsString) <> trim(DName) then
+  begin
+    Application.MessageBox('权限不足，上传账户可删除!', '提示', 0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
+
+  with ADOQueryCmd do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('delete  from FJ_File ');
+    sql.Add('where TFID=' + quotedstr(trim(ADOQueryTmp.fieldbyname('TFID').AsString)));
+    execsql;
+  end;
+  initData();
+
+end;
+
+procedure TfrmAttachmentUploadIvI.TBRafreshClick(Sender: TObject);
+begin
+  initData();
+end;
+
+procedure TfrmAttachmentUploadIvI.Tv1DblClick(Sender: TObject);
+var
+  sFieldName: string;
+  fileName: string;
+  ff: TADOBlobStream;
+  FJStream: TMemoryStream;
+begin
+
+  if adoqueryTmp.IsEmpty then
+    exit;
+
+  sFieldName := 'D:\附件查看';
+
+  if not DirectoryExists(pchar(sFieldName)) then
+    CreateDirectory(pchar(sFieldName), nil);
+
+  fileName := adoqueryTmp.fieldbyname('FileName').AsString;
+
+  sFieldName := sFieldName + '\' + trim(fileName);
+
+  try
+    ff := TADOBlobstream.Create(adoqueryTmp.fieldByName('FilesOther') as TblobField, bmRead);
+
+    FJStream := TMemoryStream.Create;
+    ff.SaveToStream(FJStream);
+    UnCompressionStream(FJStream);
+    FJStream.SaveToFile(sFieldName);
+    ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
+  finally
+    FJStream.free;
+    ff.Free;
+  end;
+
+end;
+
+end.
+

A09财务通用管理/U_CollectList.pas

@@ -414,7 +414,7 @@ end;
 
 procedure TfrmCollectList.TBRafreshClick(Sender: TObject);
 begin
-  begdate.SetFocus;
+  toolbar1.SetFocus;
 
   InitGrid();
 

A09财务通用管理/U_CustStatement.pas

@@ -152,6 +152,7 @@ end;
 
 procedure TfrmCustStatement.TBRafreshClick(Sender: TObject);
 begin
+  toolbar1.SetFocus;
   InitGrid();
 end;
 

A09财务通用管理/U_ExpenseList.dfm

@@ -19,7 +19,7 @@ inherited frmExpenseList: TfrmExpenseList
     Height = 30
     AutoSize = True
     ButtonHeight = 30
-    ButtonWidth = 107
+    ButtonWidth = 131
     Caption = 'ToolBar1'
     Color = clSkyBlue
     DisabledImages = DataLink_Financial.ImageList_new32
@@ -37,7 +37,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = TBRafreshClick
     end
     object btnAdd: TToolButton
-      Left = 63
+      Left = 71
       Top = 0
       AutoSize = True
       Caption = #26032#22686
@@ -45,7 +45,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = btnAddClick
     end
     object btnEdit: TToolButton
-      Left = 126
+      Left = 142
       Top = 0
       AutoSize = True
       Caption = #20462#25913
@@ -53,7 +53,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = btnEditClick
     end
     object btnDel: TToolButton
-      Left = 189
+      Left = 213
       Top = 0
       AutoSize = True
       Caption = #21024#38500
@@ -61,7 +61,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = btnDelClick
     end
     object btnChk: TToolButton
-      Left = 252
+      Left = 284
       Top = 0
       AutoSize = True
       Caption = #23457#26680'1'
@@ -69,7 +69,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = btnChkClick
     end
     object btnReChk: TToolButton
-      Left = 322
+      Left = 364
       Top = 0
       AutoSize = True
       Caption = #25764#38144#23457#26680'1'
@@ -77,7 +77,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = btnReChkClick
     end
     object btnChk2: TToolButton
-      Left = 416
+      Left = 476
       Top = 0
       AutoSize = True
       Caption = #23457#26680'2'
@@ -85,7 +85,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = btnChk2Click
     end
     object btnReChk2: TToolButton
-      Left = 486
+      Left = 556
       Top = 0
       AutoSize = True
       Caption = #25764#38144#23457#26680'2'
@@ -93,7 +93,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = btnReChk2Click
     end
     object TbnPay: TToolButton
-      Left = 580
+      Left = 668
       Top = 0
       AutoSize = True
       Caption = #20184#27454
@@ -101,7 +101,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = TbnPayClick
     end
     object TbnRePay: TToolButton
-      Left = 643
+      Left = 739
       Top = 0
       AutoSize = True
       Caption = #25764#38144#20184#27454
@@ -109,7 +109,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = TbnRePayClick
     end
     object TbFP: TToolButton
-      Left = 730
+      Left = 842
       Top = 0
       AutoSize = True
       Caption = #20851#32852#21457#31080
@@ -117,7 +117,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = TbFPClick
     end
     object TbCancelFP: TToolButton
-      Left = 817
+      Left = 945
       Top = 0
       AutoSize = True
       Caption = #25764#38144#20851#32852#21457#31080
@@ -125,7 +125,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = TbCancelFPClick
     end
     object ToolButton9: TToolButton
-      Left = 928
+      Left = 1080
       Top = 0
       AutoSize = True
       Caption = #38468#20214#19978#20256
@@ -133,7 +133,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = ToolButton9Click
     end
     object ToolButton4: TToolButton
-      Left = 1015
+      Left = 1183
       Top = 0
       AutoSize = True
       Caption = #23548#20986
@@ -141,7 +141,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = ToolButton4Click
     end
     object TbPrint: TToolButton
-      Left = 1078
+      Left = 1254
       Top = 0
       AutoSize = True
       Caption = #25171#21360
@@ -149,7 +149,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = TbPrintClick
     end
     object ToolButton5: TToolButton
-      Left = 1141
+      Left = 1325
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -157,7 +157,7 @@ inherited frmExpenseList: TfrmExpenseList
       OnClick = ToolButton5Click
     end
     object TBClose: TToolButton
-      Left = 1228
+      Left = 1428
       Top = 0
       AutoSize = True
       Caption = #20851#38381

A09财务通用管理/U_ExpenseList.pas

@@ -445,46 +445,59 @@ begin
 end;
 
 procedure TfrmExpenseList.TbFPClick(Sender: TObject);
+var
+  selIVNo, selIVID: string;
 begin
-  if CDS_1.Locate('ssel', True, []) = false then
+  if not CDS_1.Locate('ssel', True, []) then
   begin
-    Application.MessageBox('ÇëÏÈÑ¡ÔñÊý¾Ý', 'ÌáʾÐÅÏ¢', MB_OK);
+    Application.MessageBox('请先选择付款申请数据', '提示信息', MB_OK);
     Exit;
   end;
+
   try
-
-    CDS_1.Locate('ssel', True, []);
-    with ADOQueryCmd do
-    begin
-      Close;
-      sql.Clear;
-      sql.add(' select * from Finance_Flow where FFID = ' + QuotedStr(Trim(CDS_1.fieldByName('FFID').AsString)));
-      Open;
-    end;
-
     frmInvoiceSel := TfrmInvoiceSel.Create(Application);
-    with frmInvoiceSel do
+    try
-    begin
+      if frmInvoiceSel.ShowModal = 1 then
-      if ShowModal = 1 then
       begin
-        with frmInvoiceSel.CDS_Invoice do
+        selIVNo := frmInvoiceSel.FSelectedIVNo;
-        begin
+        selIVID := frmInvoiceSel.FSelectedIVID;
-          self.ADOQueryCmd.Edit;
-          self.ADOQueryCmd.FieldByName('IVNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').AsString;
-          self.ADOQueryCmd.FieldByName('IVID').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('IVID').AsString;
-//          self.ADOQueryCmd.FieldByName('OppCoName').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString;
-//          self.ADOQueryCmd.FieldByName('OppCoNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString;
-//          self.ADOQueryCmd.FieldByName('oppShuiNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('SupplierShuiNo').AsString;
-//          self.ADOQueryCmd.FieldByName('Amount').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Amount').AsString;
-//          self.ADOQueryCmd.FieldByName('OppBankName').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('BankName').AsString;
-//          self.ADOQueryCmd.FieldByName('OppBankCardNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('BankNo').AsString;
-          self.ADOQueryCmd.Post;
 
+        CDS_1.DisableControls;
+        try
+          CDS_1.First;
+          while not CDS_1.Eof do
+          begin
+            if CDS_1.FieldByName('SSel').AsBoolean then
+            begin
+              with ADOQueryCmd do
+              begin
+                Close;
+                SQL.Clear;
+                SQL.Add('select * from Finance_Flow where FFID = ' + QuotedStr(Trim(CDS_1.FieldByName('FFID').AsString)));
+                Open;
+                if not IsEmpty then
+                begin
+                  Edit;
+                  FieldByName('IVNo').AsString := selIVNo;
+                  FieldByName('IVID').AsString := selIVID;
+                  Post;
+                end;
+              end;
+            end;
+            CDS_1.Next;
+          end;
+        finally
+          CDS_1.EnableControls;
         end;
+
+        InitGrid();
       end;
+    finally
+      frmInvoiceSel.Free;
     end;
-  finally
+  except
-    frmInvoiceSel.Free;
+    on E: Exception do
+      Application.MessageBox(PChar('关联发票失败：' + E.Message), '错误', MB_ICONERROR);
   end;
 end;
 

A09财务通用管理/U_FKandFPUpload.pas

@@ -11,7 +11,8 @@ uses
   cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
   cxGrid, cxLookAndFeels, cxNavigator, dxDateRanges,
   IdExplicitTLSClientServerBase, System.ImageList, U_BaseHelp, Vcl.ToolWin,
-  dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters;
+  dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
+  dxSkinWXI;
 
 type
   TfrmFKandFPUpload = class(TfrmBaseHelp)
@@ -78,10 +79,12 @@ var
   Flag: Cardinal;
   info: SHFILEINFOA;
   Icon: TIcon;
+  WSql: string;
+  InvoiceIDs: TStringList;
+  i: Integer;
 begin
   ListView1.Items.Clear;
   try
-
     with adoqueryTmp do
     begin
       close;
@@ -89,9 +92,27 @@ begin
       sql.Add('select * from FJ_File ');
       sql.Add('where (WBID=' + quotedstr(trim(fkeyNO)));
       sql.Add('and TFType=' + quotedstr(trim(fType)) + ')');
-      sql.Add('or (WBID=' + quotedstr(trim(fkeyNO2)));
+
-      sql.Add('and TFType=' + quotedstr(trim(fType2)) + ')');
+      if Trim(fkeyNO2) <> '' then
-//      ShowMessage(SQL.Text);
+      begin
+        InvoiceIDs := TStringList.Create;
+        try
+          InvoiceIDs.CommaText := fkeyNO2;
+
+          sql.Add('or (TFType=' + quotedstr(trim(fType2)) + ' and WBID in (');
+
+          for i := 0 to InvoiceIDs.Count - 1 do
+          begin
+            if i > 0 then
+              sql.Add(',');
+            sql.Add(quotedstr(trim(InvoiceIDs[i])));
+          end;
+
+          sql.Add('))');
+        finally
+          InvoiceIDs.Free;
+        end;
+      end;
       open;
     end;
   except

A09财务通用管理/U_InvoiceInList.pas

@@ -116,7 +116,6 @@ type
     procedure SaveFlowInvoice(const IVID, FFFIDs: string);
   private
     { Private declarations }
-
     procedure InitGrid();
     procedure SetStatus();
   public
@@ -131,7 +130,7 @@ implementation
 
 uses
   U_DataLink, U_RTFun, U_ZDYHelp, U_InvoiceInInPut, U_LabelPrint,
-  U_AttachmentUpload, U_PayableSel;
+  U_AttachmentUploadIvI, U_PayableSel;
 
 {$R *.dfm}
 
@@ -198,14 +197,14 @@ begin
       sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''进项发票'' and X.WBID=A.IVNo)>0 THEN 1 ELSE 0 END) AS BIT)');
       sql.Add(',checkStatus=case when A.status = ''0'' then ''未审核'' else ''已审核'' end ');
 
-      sql.Add(',PayStatus=(SELECT TOP 1 X.PayStatus FROM Finance_Flow X ');
+      sql.Add(',PayStatus = CASE ');
-      sql.Add('            WHERE CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0 ) ');
+      sql.Add('   WHEN NOT EXISTS (SELECT 1 FROM Finance_Flow X WHERE CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0) THEN ''마운灌<EC9AB4>헝'' ');
+      sql.Add('   WHEN EXISTS (SELECT 1 FROM Finance_Flow X WHERE CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0 AND X.PayStatus = ''綠마운'') THEN ''綠마운'' ');
+      sql.Add('   ELSE ''마운綠<EC9AB4>헝'' ');
+      sql.Add(' END ');
 
-      sql.Add(',PayTime=case when (SELECT TOP 1 X.PayStatus FROM Finance_Flow X ');
+      sql.Add(',PayTime = (SELECT TOP 1 X.PayTime FROM Finance_Flow X ');
-      sql.Add('                        WHERE CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0 ) = ''δ¸¶¿î'' ');
+      sql.Add('               WHERE CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0 AND X.PayStatus = ''綠마운'') ');
-      sql.Add('             then null ');
-      sql.Add('             else (SELECT TOP 1 X.PayTime FROM Finance_Flow X ');
-      sql.Add('                   WHERE CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0 ) end ');
 
       sql.Add('  from Finance_Invoice A ');
 
@@ -720,8 +719,8 @@ begin
   if CDS_Invoice.IsEmpty then
     Exit;
   try
-    frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
+    frmAttachmentUploadIvI := TfrmAttachmentUploadIvI.Create(Application);
-    with frmAttachmentUpload do
+    with frmAttachmentUploadIvI do
     begin
       fkeyNO := Trim(Self.CDS_Invoice.fieldbyname('IVID').AsString);
       fType := '进项发票';
@@ -732,7 +731,7 @@ begin
       end;
     end;
   finally
-    frmAttachmentUpload.Free;
+    frmAttachmentUploadIvI.Free;
   end;
 end;
 

A09财务通用管理/U_InvoiceSel.pas

@@ -93,6 +93,8 @@ type
   public
     FIVID: string;
     fInvoiceFlag: string;
+    FSelectedIVNo: string;    // 拼接后的发票号
+    FSelectedIVID: string;
     { Public declarations }
   end;
 
@@ -308,11 +310,46 @@ begin
 end;
 
 procedure TfrmInvoiceSel.TbsselClick(Sender: TObject);
+var
+  ivNoList, ivIDList: string;
+  found: Boolean;
 begin
-  if CDS_Invoice.IsEmpty then
+  if CDS_Invoice.IsEmpty then Exit;
-  begin
+
-    Exit;
+  ivNoList := '';
+  ivIDList := '';
+  found := False;
+
+  CDS_Invoice.DisableControls;
+  try
+    CDS_Invoice.First;
+    while not CDS_Invoice.Eof do
+    begin
+      if CDS_Invoice.FieldByName('SSel').AsBoolean then
+      begin
+        if found then
+        begin
+          ivNoList := ivNoList + ',';
+          ivIDList := ivIDList + ',';
+        end;
+        ivNoList := ivNoList + Trim(CDS_Invoice.FieldByName('IVNo').AsString);
+        ivIDList := ivIDList + Trim(CDS_Invoice.FieldByName('IVID').AsString);
+        found := True;
+      end;
+      CDS_Invoice.Next;
+    end;
+  finally
+    CDS_Invoice.EnableControls;
   end;
+
+  if not found then
+  begin
+    ivNoList := Trim(CDS_Invoice.FieldByName('IVNo').AsString);
+    ivIDList := Trim(CDS_Invoice.FieldByName('IVID').AsString);
+  end;
+
+  FSelectedIVNo := ivNoList;
+  FSelectedIVID := ivIDList;
   ModalResult := 1;
 end;