财务

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

@@ -1,70 +1,70 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj</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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</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.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.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.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.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.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.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.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.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.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.630,=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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</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.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.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.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.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.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.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.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.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.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas</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.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.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.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.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.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.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.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas</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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.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_ExpenseInput.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.pas</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.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.dfm</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 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_InvoiceSel.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.pas</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.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.dfm</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>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="..\..\D10SZKaiXiYa"/>

A09财务通用管理/U_CollectList.dfm

@@ -19,7 +19,7 @@ inherited frmCollectList: TfrmCollectList
     Height = 30
     AutoSize = True
     ButtonHeight = 30
-    ButtonWidth = 99
+    ButtonWidth = 83
     Caption = 'ToolBar1'
     Color = clSkyBlue
     DisabledImages = DataLink_Financial.cxImageList_bar
@@ -37,7 +37,7 @@ inherited frmCollectList: TfrmCollectList
       OnClick = TBRafreshClick
     end
     object btnAdd: TToolButton
-      Left = 71
+      Left = 63
       Top = 0
       AutoSize = True
       Caption = #26032#22686
@@ -45,7 +45,7 @@ inherited frmCollectList: TfrmCollectList
       OnClick = btnAddClick
     end
     object btnEdit: TToolButton
-      Left = 142
+      Left = 126
       Top = 0
       AutoSize = True
       Caption = #20462#25913
@@ -53,7 +53,7 @@ inherited frmCollectList: TfrmCollectList
       OnClick = btnEditClick
     end
     object btnDel: TToolButton
-      Left = 213
+      Left = 189
       Top = 0
       AutoSize = True
       Caption = #21024#38500
@@ -61,7 +61,7 @@ inherited frmCollectList: TfrmCollectList
       OnClick = btnDelClick
     end
     object btnChk: TToolButton
-      Left = 284
+      Left = 252
       Top = 0
       AutoSize = True
       Caption = #23457#26680
@@ -69,7 +69,7 @@ inherited frmCollectList: TfrmCollectList
       OnClick = btnChkClick
     end
     object btnReChk: TToolButton
-      Left = 355
+      Left = 315
       Top = 0
       AutoSize = True
       Caption = #25764#38144#23457#26680
@@ -77,23 +77,33 @@ inherited frmCollectList: TfrmCollectList
       OnClick = btnReChkClick
     end
     object ToolButton7: TToolButton
-      Left = 458
+      Left = 402
       Top = 0
       AutoSize = True
       Caption = #26680#38144
       ImageIndex = 3
+      Visible = False
       OnClick = ToolButton7Click
     end
     object ToolButton8: TToolButton
-      Left = 529
+      Left = 465
       Top = 0
       AutoSize = True
       Caption = #26680#38144#26085#24535
       ImageIndex = 4
+      Visible = False
       OnClick = ToolButton8Click
     end
+    object TBInvoice: TToolButton
+      Left = 552
+      Top = 0
+      AutoSize = True
+      Caption = #20851#32852#21457#31080
+      ImageIndex = 3
+      OnClick = TBInvoiceClick
+    end
     object ToolButton1: TToolButton
-      Left = 632
+      Left = 639
       Top = 0
       AutoSize = True
       Caption = #23548#20837
@@ -101,7 +111,7 @@ inherited frmCollectList: TfrmCollectList
       OnClick = ToolButton1Click
     end
     object ToolButton4: TToolButton
-      Left = 703
+      Left = 702
       Top = 0
       AutoSize = True
       Caption = #23548#20986
@@ -109,7 +119,7 @@ inherited frmCollectList: TfrmCollectList
       OnClick = ToolButton4Click
     end
     object ToolButton9: TToolButton
-      Left = 774
+      Left = 765
       Top = 0
       AutoSize = True
       Caption = #38468#20214
@@ -117,7 +127,7 @@ inherited frmCollectList: TfrmCollectList
       OnClick = ToolButton9Click
     end
     object ToolButton5: TToolButton
-      Left = 845
+      Left = 828
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -125,7 +135,7 @@ inherited frmCollectList: TfrmCollectList
       OnClick = ToolButton5Click
     end
     object TBClose: TToolButton
-      Left = 948
+      Left = 915
       Top = 0
       AutoSize = True
       Caption = #20851#38381

A09财务通用管理/U_CollectList.pas

@@ -84,6 +84,7 @@ type
     begdate: TcxDateEdit;
     Enddate: TcxDateEdit;
     CheckBox1: TcxCheckBox;
+    TBInvoice: TToolButton;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
     procedure btnDelClick(Sender: TObject);
@@ -105,6 +106,7 @@ type
     procedure ToolButton9Click(Sender: TObject);
     procedure N3Click(Sender: TObject);
     procedure ToolButton1Click(Sender: TObject);
+    procedure TBInvoiceClick(Sender: TObject);
   private
     procedure InitGrid();
     procedure SetStatus();
@@ -116,7 +118,7 @@ implementation
 
 uses
   U_DataLink, U_RTFun, U_CollectInput2, U_CollectInput, U_ZDYHelp, U_CollectWriteOff,
-  U_CollectWriteOffList, U_AttachmentUpload, U_CollectImport;
+  U_CollectWriteOffList, U_AttachmentUpload, U_CollectImport,U_InvoiceOutSel;
 
 {$R *.dfm}
 procedure TfrmCollectList.SetStatus();
@@ -128,6 +130,7 @@ begin
   btnAdd.Enabled := false;     //ÐÂÔö
   btnEdit.Enabled := false;     //ÐÞ¸Ä
   btnDel.Enabled := false;           //ɾ³ý
+  TBInvoice.Enabled := false;
 
 //  if Trim(FAuthority) = '¹ÜÀí' then
   begin
@@ -138,6 +141,7 @@ begin
           btnEdit.Enabled := true;
           btnDel.Enabled := true;
           btnChk.Enabled := true;
+          TBInvoice.Enabled := true;
         end;
       1:
         begin
@@ -226,6 +230,135 @@ begin
   Close;
 end;
 
+procedure TfrmCollectList.TBInvoiceClick(Sender: TObject);
+var
+  FFFIDList: TStringList;
+  IVID, IVNo: string;
+  i: Integer;
+  LogMsg: string;
+begin
+  inherited;
+
+  if CDS_1.IsEmpty then Exit;
+  if not CDS_1.Locate('SSel', True, []) then
+  begin
+    Application.MessageBox('请先勾选需要关联发票的收款记录！', '提示', MB_OK + MB_ICONINFORMATION);
+    Exit;
+  end;
+
+  try
+    frmInvoiceOutSel := TfrmInvoiceOutSel.Create(Application);
+    frmInvoiceOutSel.cxTabControl1.TabIndex := 0;
+    if frmInvoiceOutSel.ShowModal <> mrOk then
+      Exit;
+    if frmInvoiceOutSel.CDS_Invoice.IsEmpty then
+    begin
+      Application.MessageBox('未选择任何发票！', '提示', MB_OK + MB_ICONWARNING);
+      Exit;
+    end;
+    IVID := frmInvoiceOutSel.CDS_Invoice.FieldByName('IVID').AsString;
+    IVNo := frmInvoiceOutSel.CDS_Invoice.FieldByName('IVNo').AsString;
+    if Trim(IVID) = '' then
+    begin
+      Application.MessageBox('发票数据异常，IVID 为空！', '提示', MB_OK + MB_ICONERROR);
+      Exit;
+    end;
+  finally
+    frmInvoiceOutSel.Free;
+  end;
+
+  FFFIDList := TStringList.Create;
+  try
+    CDS_1.DisableControls;
+    CDS_1.First;
+    while not CDS_1.Eof do
+    begin
+      if CDS_1.FieldByName('SSel').AsBoolean then
+        FFFIDList.Add(CDS_1.FieldByName('FFID').AsString);
+      CDS_1.Next;
+    end;
+
+    if FFFIDList.Count = 0 then
+    begin
+      Application.MessageBox('没有勾选任何收款记录！', '提示', MB_OK + MB_ICONINFORMATION);
+      Exit;
+    end;
+
+    ADOQueryCmd.Connection.BeginTrans;
+    try
+      for i := 0 to FFFIDList.Count - 1 do
+      begin
+        ADOQueryCmd.Close;
+        ADOQueryCmd.SQL.Text := 'UPDATE Finance_Flow SET IVID = :IVID, IVNo = :IVNo WHERE FFID = :FFID';
+        ADOQueryCmd.Parameters.ParamByName('IVID').Value := IVID;
+        ADOQueryCmd.Parameters.ParamByName('IVNo').Value := IVNo;
+        ADOQueryCmd.Parameters.ParamByName('FFID').Value := FFFIDList[i];
+        ADOQueryCmd.ExecSQL;
+      end;
+
+      CDS_1.First;
+      while not CDS_1.Eof do
+      begin
+        if CDS_1.FieldByName('SSel').AsBoolean then
+        begin
+          CDS_1.Edit;
+          CDS_1.FieldByName('IVID').Value := IVID;
+          CDS_1.FieldByName('IVNo').Value := IVNo;
+          CDS_1.Post;
+        end;
+        CDS_1.Next;
+      end;
+
+      ADOQueryCmd.Connection.CommitTrans;
+
+      LogMsg := Format(
+        '批量关联发票成功，发票号：%s，IVID：%s，影响记录数：%d，FFIDs：%s',
+        [IVNo, IVID, FFFIDList.Count, FFFIDList.CommaText]
+      );
+      ADOQueryCmd.Close;
+      ADOQueryCmd.SQL.Text :=
+        'INSERT INTO SY_Syslog (Operor, OperTime, Model, Acction, OPEvent, Result) ' +
+        'VALUES (:Operor, GETDATE(), :Model, :Acction, :OPEvent, :Result)';
+      ADOQueryCmd.Parameters.ParamByName('Operor').Value := DName + '(' + DCode + ')';
+      ADOQueryCmd.Parameters.ParamByName('Model').Value   := '收款登记';
+      ADOQueryCmd.Parameters.ParamByName('Acction').Value := '发票关联';
+      ADOQueryCmd.Parameters.ParamByName('OPEvent').Value := LogMsg;
+      ADOQueryCmd.Parameters.ParamByName('Result').Value  := '成功';
+      ADOQueryCmd.ExecSQL;
+
+      Application.MessageBox('发票关联成功！', '提示', MB_OK + MB_ICONINFORMATION);
+      InitGrid;
+    except
+      on E: Exception do
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        LogMsg := Format(
+          '批量关联发票失败，发票号：%s，IVID：%s，影响记录数：%d，FFIDs：%s，原因：%s',
+          [IVNo, IVID, FFFIDList.Count, FFFIDList.CommaText, E.Message]
+        );
+        try
+          ADOQueryCmd.Close;
+          ADOQueryCmd.SQL.Text :=
+            'INSERT INTO SY_Syslog (Operor, OperTime, Model, Acction, OPEvent, Result) ' +
+            'VALUES (:Operor, GETDATE(), :Model, :Acction, :OPEvent, :Result)';
+          ADOQueryCmd.Parameters.ParamByName('Operor').Value := DName + '(' + DCode + ')';
+          ADOQueryCmd.Parameters.ParamByName('Model').Value   := '收款登记';
+          ADOQueryCmd.Parameters.ParamByName('Acction').Value := '发票关联';
+          ADOQueryCmd.Parameters.ParamByName('OPEvent').Value := LogMsg;
+          ADOQueryCmd.Parameters.ParamByName('Result').Value  := '失败';
+          ADOQueryCmd.ExecSQL;
+        except
+        end;
+        Application.MessageBox(PChar('发票关联失败：' + E.Message), '错误', MB_OK + MB_ICONERROR);
+        InitGrid;
+      end;
+    end;
+  finally
+    FFFIDList.Free;
+    CDS_1.EnableControls;
+  end;
+end;
+
 procedure TfrmCollectList.btnDelClick(Sender: TObject);
 var
   FFFIDS: string;

A09财务通用管理/U_GETableBatchInput.dfm

@@ -132,6 +132,11 @@ inherited frmGetableBatchInput: TfrmGetableBatchInput
           Format = '#,###.##'
           Kind = skSum
           Column = Tv1Tax
+        end
+        item
+          Format = '#,###.##'
+          Kind = skSum
+          Column = Tv1Column2
         end>
       DataController.Summary.SummaryGroups = <>
       OptionsBehavior.GoToNextCellOnEnter = True

A09财务通用管理/U_GETableBatchInput.pas

@@ -724,9 +724,15 @@ begin
           self.CDS_1.FieldByName('BuyConMID').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('FROMCPMID').AsString);
           self.CDS_1.FieldByName('BuyConSID').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('FROMCPSID').AsString);
 
-//          self.CDS_1.FieldByName('F_Code').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Code').AsString);
+          self.CDS_1.FieldByName('F_Code').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Code').AsString);
-//          self.CDS_1.FieldByName('F_Name').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Name').AsString);
+          self.CDS_1.FieldByName('F_Name').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Name').AsString);
-//          self.CDS_1.FieldByName('F_Color').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Color').AsString);
+          self.CDS_1.FieldByName('F_Spec').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Spec').AsString);
+          self.CDS_1.FieldByName('F_Pattern').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Pattern').AsString);
+          self.CDS_1.FieldByName('F_Composition').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Composition').AsString);
+          self.CDS_1.FieldByName('F_Color').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Color').AsString);
+          self.CDS_1.FieldByName('F_Colorno').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Colorno').AsString);
+          self.CDS_1.FieldByName('F_Width').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Width').AsString);
+          self.CDS_1.FieldByName('F_GramWeight').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_GramWeight').AsString);
 //          self.CDS_1.FieldByName('Piece').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString);
 //          self.CDS_1.FieldByName('Qty').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Qty').AsString);
 //          self.CDS_1.FieldByName('QtyUnit').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('QtyUnit').AsString);

A09财务通用管理/U_GetDllForm.pas

@@ -78,7 +78,7 @@ begin
     pswd := 'rightsoft,.KXY@YN';
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
        Parameters1:='管理';
-    Parameters1 := 'ÉóºË2';
+//    Parameters1 := 'ÉóºË2';
 //    Parameters1 := '付款';
   end
   else

A09财务通用管理/U_GetableSel.dfm

@@ -115,7 +115,6 @@ inherited frmGetableSel: TfrmGetableSel
       #20840#37096)
     LookAndFeel.Kind = lfUltraFlat
     OnChange = cxTabControl1Change
-    ExplicitTop = 36
     ClientRectRight = 0
     ClientRectTop = 0
   end
@@ -126,10 +125,6 @@ inherited frmGetableSel: TfrmGetableSel
     Height = 513
     Align = alClient
     TabOrder = 2
-    ExplicitLeft = -134
-    ExplicitTop = 112
-    ExplicitWidth = 1540
-    ExplicitHeight = 460
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       Navigator.Buttons.Delete.Enabled = False
@@ -142,7 +137,7 @@ inherited frmGetableSel: TfrmGetableSel
       DataController.Summary.FooterSummaryItems = <
         item
           Kind = skSum
-          Column = Tv1Column12
+          Column = Tv1Qty
         end
         item
           Kind = skSum
@@ -158,7 +153,7 @@ inherited frmGetableSel: TfrmGetableSel
         end
         item
           Kind = skSum
-          Column = Tv1Column11
+          Column = Tv1Piece
         end
         item
           Kind = skSum
@@ -182,7 +177,7 @@ inherited frmGetableSel: TfrmGetableSel
       end
       object v2CRTime: TcxGridDBColumn
         Tag = 7
-        Caption = #21457#29983#26085#26399
+        Caption = #30331#35760#26085#26399
         DataBinding.FieldName = 'FFTime'
         DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
@@ -192,15 +187,7 @@ inherited frmGetableSel: TfrmGetableSel
         Options.Editing = False
         Width = 82
       end
-      object Tv1Column23: TcxGridDBColumn
+      object v2OurCoName: TcxGridDBColumn
-        Caption = #23545#36134#26085#26399
-        DataBinding.FieldName = 'ReconciliationDate'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 112
-      end
-      object v2Column2: TcxGridDBColumn
         Caption = #25105#26041#21333#20301
         DataBinding.FieldName = 'OurCoName'
         DataBinding.IsNullValueType = True
@@ -208,6 +195,101 @@ inherited frmGetableSel: TfrmGetableSel
         Options.Editing = False
         Width = 100
       end
+      object Tv1FFAbstract: TcxGridDBColumn
+        Caption = #25688#35201
+        DataBinding.FieldName = 'FFAbstract'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 79
+      end
+      object Tv1BuyConNo: TcxGridDBColumn
+        Caption = #38754#26009#21512#21516#21495
+        DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 117
+      end
+      object Tv1ConNo: TcxGridDBColumn
+        Caption = #22383#24067#21512#21516#21495
+        DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 98
+      end
+      object Tv1OrderNo: TcxGridDBColumn
+        Caption = #32455#36896#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 82
+      end
+      object Tv1F_Code: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'F_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1F_Name: TcxGridDBColumn
+        Caption = #21697#21517
+        DataBinding.FieldName = 'F_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1F_Width: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'F_Width'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1F_GramWeight: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'F_GramWeight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1F_Color: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'F_Color'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1F_ColorNo: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'F_ColorNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Piece: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Qty: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
       object v2FactoryName: TcxGridDBColumn
         Caption = #23545#26041#21333#20301
         DataBinding.FieldName = 'OppCoName'
@@ -233,53 +315,6 @@ inherited frmGetableSel: TfrmGetableSel
         Options.Editing = False
         Width = 91
       end
-      object Tv1Column19: TcxGridDBColumn
-        Caption = #21512#21516#21495
-        DataBinding.FieldName = 'ConNo'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 77
-      end
-      object Tv1Column24: TcxGridDBColumn
-        Caption = #25688#35201
-        DataBinding.FieldName = 'FFAbstract'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 79
-      end
-      object Tv1Column20: TcxGridDBColumn
-        Caption = #35745#21010#21333#21495
-        DataBinding.FieldName = 'OrderNo'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 82
-      end
-      object Tv1Column21: TcxGridDBColumn
-        Caption = #23458#25143#21333#21495
-        DataBinding.FieldName = 'BuyConNo'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Width = 80
-      end
-      object Tv1Column4: TcxGridDBColumn
-        Caption = #32534#21495
-        DataBinding.FieldName = 'F_Code'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-      end
-      object Tv1Column5: TcxGridDBColumn
-        Caption = #21697#21517
-        DataBinding.FieldName = 'F_Name'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-      end
       object Tv1Column6: TcxGridDBColumn
         Caption = #33457#22411
         DataBinding.FieldName = 'F_Pattern'
@@ -288,14 +323,6 @@ inherited frmGetableSel: TfrmGetableSel
         Options.Editing = False
         Width = 66
       end
-      object Tv1Column7: TcxGridDBColumn
-        Caption = #39068#33394
-        DataBinding.FieldName = 'F_Color'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-      end
       object Tv1Column28: TcxGridDBColumn
         Caption = #27454#21495
         DataBinding.FieldName = 'F_StyleNo'
@@ -304,30 +331,6 @@ inherited frmGetableSel: TfrmGetableSel
         Options.Editing = False
         Width = 72
       end
-      object Tv1Column8: TcxGridDBColumn
-        Caption = #38376#24133
-        DataBinding.FieldName = 'F_Width'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-      end
-      object Tv1Column9: TcxGridDBColumn
-        Caption = #20811#37325
-        DataBinding.FieldName = 'F_GramWeight'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-      end
-      object Tv1Column10: TcxGridDBColumn
-        Caption = #33394#21495
-        DataBinding.FieldName = 'F_ColorNo'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-      end
       object Tv1Column27: TcxGridDBColumn
         Caption = #38468#20214
         DataBinding.FieldName = 'FJFlag'
@@ -336,22 +339,6 @@ inherited frmGetableSel: TfrmGetableSel
         Options.Editing = False
         Width = 48
       end
-      object Tv1Column11: TcxGridDBColumn
-        Caption = #21305#25968
-        DataBinding.FieldName = 'Piece'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-      end
-      object Tv1Column12: TcxGridDBColumn
-        Caption = #25968#37327
-        DataBinding.FieldName = 'Qty'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-      end
       object Tv1Column13: TcxGridDBColumn
         Caption = #21333#20301
         DataBinding.FieldName = 'QtyUnit'

A09财务通用管理/U_GetableSel.pas

@@ -41,26 +41,25 @@ type
     Tv1: TcxGridDBTableView;
     Tv1Column22: TcxGridDBColumn;
     v2CRTime: TcxGridDBColumn;
-    Tv1Column23: TcxGridDBColumn;
+    v2OurCoName: TcxGridDBColumn;
-    v2Column2: TcxGridDBColumn;
     v2FactoryName: TcxGridDBColumn;
     v2OrderNo: TcxGridDBColumn;
     Tv1Column3: TcxGridDBColumn;
-    Tv1Column19: TcxGridDBColumn;
+    Tv1ConNo: TcxGridDBColumn;
-    Tv1Column24: TcxGridDBColumn;
+    Tv1FFAbstract: TcxGridDBColumn;
-    Tv1Column20: TcxGridDBColumn;
+    Tv1OrderNo: TcxGridDBColumn;
-    Tv1Column21: TcxGridDBColumn;
+    Tv1BuyConNo: TcxGridDBColumn;
-    Tv1Column4: TcxGridDBColumn;
+    Tv1F_Code: TcxGridDBColumn;
-    Tv1Column5: TcxGridDBColumn;
+    Tv1F_Name: TcxGridDBColumn;
     Tv1Column6: TcxGridDBColumn;
-    Tv1Column7: TcxGridDBColumn;
+    Tv1F_Color: TcxGridDBColumn;
     Tv1Column28: TcxGridDBColumn;
-    Tv1Column8: TcxGridDBColumn;
+    Tv1F_Width: TcxGridDBColumn;
-    Tv1Column9: TcxGridDBColumn;
+    Tv1F_GramWeight: TcxGridDBColumn;
-    Tv1Column10: TcxGridDBColumn;
+    Tv1F_ColorNo: TcxGridDBColumn;
     Tv1Column27: TcxGridDBColumn;
-    Tv1Column11: TcxGridDBColumn;
+    Tv1Piece: TcxGridDBColumn;
-    Tv1Column12: TcxGridDBColumn;
+    Tv1Qty: TcxGridDBColumn;
     Tv1Column13: TcxGridDBColumn;
     Tv1Column14: TcxGridDBColumn;
     Tv1Column15: TcxGridDBColumn;

A09财务通用管理/U_InvoiceOutInPut.dfm

@@ -150,6 +150,20 @@ object frmInvoiceOutInPut: TfrmInvoiceOutInPut
         HeaderAlignmentHorz = taCenter
         Width = 77
       end
+      object Tv1FIAbstract: TcxGridDBColumn
+        Caption = #25688#35201
+        DataBinding.FieldName = 'FIAbstract'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = Tv1FIAbstractPropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
       object Tv1SupplierShuiNo: TcxGridDBColumn
         Caption = #23458#25143#31246#21495
         DataBinding.FieldName = 'SupplierShuiNo'

A09财务通用管理/U_InvoiceOutInPut.pas

@@ -11,7 +11,7 @@ uses
   DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit,
   cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar,
   dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters,
-  dxScrollbarAnnotations, cxCurrencyEdit;
+  dxScrollbarAnnotations, cxCurrencyEdit, dxSkinWXI;
 
 type
   TfrmInvoiceOutInPut = class(TForm)
@@ -49,6 +49,7 @@ type
     Tv1SupplierNo: TcxGridDBColumn;
     cxGridLevel1: TcxGridLevel;
     ToolButton5: TToolButton;
+    Tv1FIAbstract: TcxGridDBColumn;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TSaveClick(Sender: TObject);
@@ -68,6 +69,8 @@ type
     procedure Tv1SupplierPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure Tv1AmountPropertiesEditValueChanged(Sender: TObject);
     procedure ToolButton5Click(Sender: TObject);
+    procedure Tv1FIAbstractPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
   private
     procedure initGrid();
     function SaveDate(): Boolean;
@@ -185,8 +188,9 @@ begin
       end;
     end;
     ADOQueryCmd.Connection.CommitTrans;
+    Result := True;
     application.MessageBox('保存成功！', '提示');
-    Modalresult := 1;
+//    Modalresult := 1;
   except
     ADOQueryCmd.Connection.RollbackTrans;
     application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
@@ -569,6 +573,28 @@ begin
   end;
 end;
 
+procedure TfrmInvoiceOutInPut.Tv1FIAbstractPropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'FIAbstract';
+      flagname := '摘要';
+      if ShowModal = 1 then
+      begin
+        Self.CDS_Invoice.Edit;
+        Self.CDS_Invoice.FieldByName('FIAbstract').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        Self.CDS_Invoice.Post;
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+
+end;
+
 procedure TfrmInvoiceOutInPut.Tv1SupplierPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
 begin
   try

A09财务通用管理/U_InvoiceOutList.dfm

@@ -312,14 +312,17 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
           Kind = skSum
         end
         item
+          Format = '#,###.##'
           Kind = skSum
           Column = Tv1Amount
         end
         item
+          Format = '#,###.##'
           Kind = skSum
           Column = Tv1TaxFee
         end
         item
+          Format = '#,###.##'
           Kind = skSum
           Column = Tv1TaxAmount
         end>
@@ -359,6 +362,14 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
         Options.Editing = False
         Width = 79
       end
+      object Tv1FIAbstract: TcxGridDBColumn
+        Caption = #25688#35201
+        DataBinding.FieldName = 'FIAbstract'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
       object Tv1SupplierShuiNo: TcxGridDBColumn
         Caption = #23458#25143#31246#21495
         DataBinding.FieldName = 'SupplierShuiNo'

A09财务通用管理/U_InvoiceOutList.pas

@@ -88,6 +88,7 @@ type
     begdate: TcxDateEdit;
     Enddate: TcxDateEdit;
     ToolButton6: TToolButton;
+    Tv1FIAbstract: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);

A09财务通用管理/U_ReceivableList.dfm

@@ -7,7 +7,6 @@ inherited frmReceivableList: TfrmReceivableList
   Font.Height = -16
   FormStyle = fsMDIChild
   Visible = True
-  ExplicitLeft = -181
   ExplicitWidth = 1556
   ExplicitHeight = 629
   PixelsPerInch = 96
@@ -331,6 +330,16 @@ inherited frmReceivableList: TfrmReceivableList
         end
         item
           Kind = skSum
+        end
+        item
+          Format = '#,###.##'
+          Kind = skSum
+          Column = Tv1NoTaxInclude
+        end
+        item
+          Format = '#,###.##'
+          Kind = skSum
+          Column = Tv1Column2
         end>
       DataController.Summary.SummaryGroups = <>
       OptionsBehavior.GoToNextCellOnEnter = True
@@ -360,6 +369,30 @@ inherited frmReceivableList: TfrmReceivableList
         Options.Editing = False
         Width = 82
       end
+      object Tv1CIVNO: TcxGridDBColumn
+        Caption = #21457#31080#21495
+        DataBinding.FieldName = 'CIVNO'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object Tv1BGDNum: TcxGridDBColumn
+        Caption = #25253#20851#21333#21495
+        DataBinding.FieldName = 'BGDNum'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object Tv1IVDate: TcxGridDBColumn
+        Caption = #21457#31080#26085#26399
+        DataBinding.FieldName = 'IVDate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
       object Tv1oppShuiNo: TcxGridDBColumn
         Caption = #23458#25143#31246#21495
         DataBinding.FieldName = 'oppShuiNo'
@@ -509,6 +542,16 @@ inherited frmReceivableList: TfrmReceivableList
         HeaderAlignmentHorz = taCenter
         Width = 99
       end
+      object Tv1NoTaxInclude: TcxGridDBColumn
+        Caption = #19981#21547#31246#37329#39069
+        DataBinding.FieldName = 'NoTaxInclude'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCurrencyEditProperties'
+        Properties.DisplayFormat = '#,###.##'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
       object Tv1TaxRate: TcxGridDBColumn
         Caption = #31246#29575
         DataBinding.FieldName = 'TaxRate'

A09财务通用管理/U_ReceivableList.pas

@@ -93,6 +93,10 @@ type
     Tv1Column1: TcxGridDBColumn;
     Tv1Column2: TcxGridDBColumn;
     ToolButton6: TToolButton;
+    Tv1NoTaxInclude: TcxGridDBColumn;
+    Tv1CIVNO: TcxGridDBColumn;
+    Tv1BGDNum: TcxGridDBColumn;
+    Tv1IVDate: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
     procedure btnDelClick(Sender: TObject);

A09财务通用管理/U_SingleCustStatement.dfm

@@ -198,9 +198,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
     Height = 542
     Align = alClient
     TabOrder = 2
-    ExplicitTop = 73
     object TV1: TcxGridDBBandedTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DS_HZ
       DataController.Summary.DefaultGroupSummaryItems = <>
       DataController.Summary.FooterSummaryItems = <
@@ -241,8 +241,6 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       OptionsData.Editing = False
       OptionsView.Footer = True
       OptionsView.GroupByBox = False
-      Styles.Header = DataLink_Financial.Default
-      Styles.BandHeader = DataLink_Financial.Default
       Bands = <
         item
         end
@@ -261,6 +259,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column2: TcxGridDBBandedColumn
         Caption = #23545#36134#26085#26399
         DataBinding.FieldName = 'ReconciliationDate'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -274,6 +273,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column4: TcxGridDBBandedColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'F_Code'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -287,6 +287,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column5: TcxGridDBBandedColumn
         Caption = #21697#21517
         DataBinding.FieldName = 'F_Name'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -300,6 +301,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column6: TcxGridDBBandedColumn
         Caption = #35268#26684
         DataBinding.FieldName = 'F_Spec'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -313,6 +315,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column7: TcxGridDBBandedColumn
         Caption = #25968#37327
         DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -326,6 +329,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column8: TcxGridDBBandedColumn
         Caption = #21333#20215
         DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -339,6 +343,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column9: TcxGridDBBandedColumn
         Caption = #24212#25910#37329#39069
         DataBinding.FieldName = 'BQYSAmount'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -352,6 +357,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column12: TcxGridDBBandedColumn
         Caption = #25910#27454#37329#39069
         DataBinding.FieldName = 'BQSKAmount'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -365,6 +371,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column15: TcxGridDBBandedColumn
         Caption = #32047#35745#20313#39069
         DataBinding.FieldName = 'BQJYAmount'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -378,6 +385,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column3: TcxGridDBBandedColumn
         Caption = #25688#35201
         DataBinding.FieldName = 'FFAbstract'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -390,6 +398,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       end
       object V1Column10: TcxGridDBBandedColumn
         DataBinding.FieldName = 'CWID'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         Visible = False
@@ -405,6 +414,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column14: TcxGridDBBandedColumn
         Caption = #24207#21495
         DataBinding.FieldName = 'keyNO'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -418,6 +428,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column16: TcxGridDBBandedColumn
         Caption = #24320#31080#37329#39069
         DataBinding.FieldName = 'BQKPAmount'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -431,6 +442,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column17: TcxGridDBBandedColumn
         Caption = #32047#35745#27424#31080
         DataBinding.FieldName = 'BQWKPAmount'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -444,6 +456,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column20: TcxGridDBBandedColumn
         Caption = #31080#21495
         DataBinding.FieldName = 'IVNo'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -457,6 +470,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column21: TcxGridDBBandedColumn
         Caption = #35745#21010#21333#21495
         DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -470,6 +484,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column22: TcxGridDBBandedColumn
         Caption = #21305#25968
         DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -483,6 +498,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column23: TcxGridDBBandedColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'P_Color'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -496,6 +512,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column25: TcxGridDBBandedColumn
         Caption = #22791#27880
         DataBinding.FieldName = 'MxNote'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -508,6 +525,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column26: TcxGridDBBandedColumn
         Caption = #22791#27880
         DataBinding.FieldName = 'YMxNote'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.Alignment.Horz = taCenter
         HeaderAlignmentHorz = taCenter
@@ -521,6 +539,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column33: TcxGridDBBandedColumn
         Caption = #20854#20182#36153
         DataBinding.FieldName = 'OtherFee'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Moving = False
@@ -532,6 +551,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object V1Column34: TcxGridDBBandedColumn
         Caption = #36135#27454
         DataBinding.FieldName = 'HKMONEY'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Moving = False
@@ -543,6 +563,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
       object TV1Column1: TcxGridDBBandedColumn
         Caption = #20943#20813#37329#39069
         DataBinding.FieldName = 'Deduction'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Options.Moving = False

A09财务通用管理/U_SingleCustStatement.pas

@@ -15,7 +15,7 @@ uses
   cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
   cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
   cxNavigator,   dxDateRanges,
-  dxBarBuiltInMenu;
+  dxBarBuiltInMenu, dxSkinsCore, dxSkinWXI, dxScrollbarAnnotations;
 
 type
   TfrmSingleCustStatement = class(TForm)

A09财务通用管理/U_SingleFtyStatement.dfm

@@ -87,7 +87,6 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
     BevelOuter = bvLowered
     Color = clSkyBlue
     TabOrder = 1
-    ExplicitTop = 32
     object Label1: TLabel
       Left = 698
       Top = 45
@@ -245,7 +244,6 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
     Font.Style = []
     ParentFont = False
     TabOrder = 2
-    ExplicitTop = 97
     object TV1: TcxGridDBBandedTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>

A09财务通用管理/U_SingleFtyStatement.pas

@@ -15,7 +15,8 @@ uses
   cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
   cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
   cxNavigator, dxDateRanges, dxBarBuiltInMenu, dxSkinsCore,
-  dxSkinsDefaultPainters, dxScrollbarAnnotations, cxCurrencyEdit, U_BaseHelp;
+  dxSkinsDefaultPainters, dxScrollbarAnnotations, cxCurrencyEdit, U_BaseHelp,
+  dxSkinWXI;
 
 type
   TfrmSingleFtyStatement = class(TfrmBaseHELP)