Group_99/D10SZKaiXiYa
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

财务

Browse Source
This commit is contained in:
funa 2026-06-04 17:23:35 +08:00
parent 6f51064fe8
commit d852057d36
18 changed files with 266 additions and 151 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,75 +1,75 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <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.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.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.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.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.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.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.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.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.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.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.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.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.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.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.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.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.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.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.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.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.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>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.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.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.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.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.076,=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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>2026/05/22 14:41:58.000.210,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.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: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.690,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.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.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.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.119,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.201,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas</Transaction> <Transaction>2026/05/30 14:42:33.000.201,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>

BIN
A09财务通用管理/Financial.identcache
View File

Binary file not shown.

1
A09财务通用管理/U_CollectList.dfm
View File

@ -451,6 +451,7 @@ inherited frmCollectList: TfrmCollectList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 2 Properties.Style = 2
Properties.TabIndex = 0 Properties.TabIndex = 0

6
A09财务通用管理/U_CollectList.pas
View File

@ -122,6 +122,8 @@ begin
btnChk.Enabled := false; //审核 btnChk.Enabled := false; //审核
btnReChk.Enabled := false; //撤销 btnReChk.Enabled := false; //撤销
btnChk.Visible := false; //ÉóºË
btnReChk.Visible := false; //³·Ïú
btnAdd.Enabled := false; //新增 btnAdd.Enabled := false; //新增
btnEdit.Enabled := false; //修改 btnEdit.Enabled := false; //修改
@ -136,12 +138,12 @@ begin
begin begin
btnEdit.Enabled := true; btnEdit.Enabled := true;
btnDel.Enabled := true; btnDel.Enabled := true;
btnChk.Enabled := true; // btnChk.Enabled := true;
TBInvoice.Enabled := true; TBInvoice.Enabled := true;
end; end;
1: 1:
begin begin
btnReChk.Enabled := true; // btnReChk.Enabled := true;
end; end;
2: 2:
begin begin

20
A09财务通用管理/U_CustStatement.dfm
View File

@ -178,18 +178,22 @@ inherited frmCustStatement: TfrmCustStatement
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Format = '#,###.##'
Kind = skSum Kind = skSum
Column = v2Column5 Column = v2Column5
end end
item item
Format = '#,###.##'
Kind = skSum Kind = skSum
Column = v2Column1 Column = v2Column1
end end
item item
Format = '#,###.##'
Kind = skSum Kind = skSum
Column = v2Column2 Column = v2Column2
end end
item item
Format = '#,###.##'
Kind = skSum Kind = skSum
Column = v2Column3 Column = v2Column3
end end
@ -286,8 +290,8 @@ inherited frmCustStatement: TfrmCustStatement
Caption = #19978#26399#27424#27454 Caption = #19978#26399#27424#27454
DataBinding.FieldName = 'SQJYAmount' DataBinding.FieldName = 'SQJYAmount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taCenter Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 96 Width = 96
@ -296,8 +300,8 @@ inherited frmCustStatement: TfrmCustStatement
Caption = #26412#26399#24212#25910 Caption = #26412#26399#24212#25910
DataBinding.FieldName = 'BQYSAmount' DataBinding.FieldName = 'BQYSAmount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taCenter Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 106 Width = 106
@ -306,8 +310,8 @@ inherited frmCustStatement: TfrmCustStatement
Caption = #26412#26399#25910#27454 Caption = #26412#26399#25910#27454
DataBinding.FieldName = 'BQSKAmount' DataBinding.FieldName = 'BQSKAmount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taCenter Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 108 Width = 108
@ -316,8 +320,8 @@ inherited frmCustStatement: TfrmCustStatement
Caption = #26412#26399#27424#27454 Caption = #26412#26399#27424#27454
DataBinding.FieldName = 'BQJYAmount' DataBinding.FieldName = 'BQJYAmount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taCenter Properties.DisplayFormat = '#,###.##'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 104 Width = 104

6
A09财务通用管理/U_CustStatement.pas
View File

@ -16,7 +16,7 @@ uses
dxBarBuiltInMenu, cxPC, dxDateRanges, dxBarBuiltInMenu, cxPC, dxDateRanges,
U_BaseList, Vcl.Menus, Vcl.Clipbrd, DateUtils, cxContainer, dxCore, U_BaseList, Vcl.Menus, Vcl.Clipbrd, DateUtils, cxContainer, dxCore,
cxDateUtils, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters, cxDateUtils, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations, cxProgressBar, dxSkinWXI; dxScrollbarAnnotations, cxProgressBar, dxSkinWXI, cxCurrencyEdit;
type type
TfrmCustStatement = class(TfrmBaseList) TfrmCustStatement = class(TfrmBaseList)
@ -94,7 +94,7 @@ begin
Filtered := False; Filtered := False;
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' exec P_Fin_CustStatement '); sql.Add(' exec P_Fin_CustStatement_New ');
sql.Add(' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.Date)))); sql.Add(' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.Date))));
sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.Date + 1)))); sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.Date + 1))));
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
@ -187,7 +187,7 @@ begin
begdate.Date := self.begdate.Date; begdate.Date := self.begdate.Date;
enddate.Date := self.Enddate.Date; enddate.Date := self.Enddate.Date;
OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString; OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString; FOppCoNo := self.CDS_HZ.fieldbyname('oppshuino').AsString;
FZKType := Self.FZKType; FZKType := Self.FZKType;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:

110
A09财务通用管理/U_ExpenseList.dfm
View File

@ -19,7 +19,7 @@ inherited frmExpenseList: TfrmExpenseList
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 108 ButtonWidth = 107
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
DisabledImages = DataLink_Financial.ImageList_new32 DisabledImages = DataLink_Financial.ImageList_new32
@ -37,7 +37,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object btnAdd: TToolButton object btnAdd: TToolButton
Left = 71 Left = 63
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
@ -45,7 +45,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = btnAddClick OnClick = btnAddClick
end end
object btnEdit: TToolButton object btnEdit: TToolButton
Left = 142 Left = 126
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -53,7 +53,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = btnEditClick OnClick = btnEditClick
end end
object btnDel: TToolButton object btnDel: TToolButton
Left = 213 Left = 189
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -61,7 +61,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = btnDelClick OnClick = btnDelClick
end end
object btnChk: TToolButton object btnChk: TToolButton
Left = 284 Left = 252
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23457#26680'1' Caption = #23457#26680'1'
@ -69,7 +69,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = btnChkClick OnClick = btnChkClick
end end
object btnReChk: TToolButton object btnReChk: TToolButton
Left = 364 Left = 322
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680'1' Caption = #25764#38144#23457#26680'1'
@ -77,7 +77,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = btnReChkClick OnClick = btnReChkClick
end end
object btnChk2: TToolButton object btnChk2: TToolButton
Left = 476 Left = 416
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23457#26680'2' Caption = #23457#26680'2'
@ -85,7 +85,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = btnChk2Click OnClick = btnChk2Click
end end
object btnReChk2: TToolButton object btnReChk2: TToolButton
Left = 556 Left = 486
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680'2' Caption = #25764#38144#23457#26680'2'
@ -93,7 +93,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = btnReChk2Click OnClick = btnReChk2Click
end end
object TbnPay: TToolButton object TbnPay: TToolButton
Left = 668 Left = 580
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20184#27454 Caption = #20184#27454
@ -101,7 +101,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TbnPayClick OnClick = TbnPayClick
end end
object TbnRePay: TToolButton object TbnRePay: TToolButton
Left = 739 Left = 643
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#20184#27454 Caption = #25764#38144#20184#27454
@ -109,15 +109,23 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TbnRePayClick OnClick = TbnRePayClick
end end
object TbFP: TToolButton object TbFP: TToolButton
Left = 842 Left = 730
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#32852#21457#31080 Caption = #20851#32852#21457#31080
ImageIndex = 52 ImageIndex = 52
OnClick = TbFPClick OnClick = TbFPClick
end end
object TbCancelFP: TToolButton
Left = 817
Top = 0
AutoSize = True
Caption = #25764#38144#20851#32852#21457#31080
ImageIndex = 11
OnClick = TbCancelFPClick
end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 945 Left = 928
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214#19978#20256 Caption = #38468#20214#19978#20256
@ -125,7 +133,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 1048 Left = 1015
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -133,7 +141,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TbPrint: TToolButton object TbPrint: TToolButton
Left = 1119 Left = 1078
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -141,7 +149,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TbPrintClick OnClick = TbPrintClick
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 1190 Left = 1141
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -149,7 +157,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1293 Left = 1228
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -178,37 +186,30 @@ inherited frmExpenseList: TfrmExpenseList
object Label4: TLabel object Label4: TLabel
Left = 456 Left = 456
Top = 6 Top = 6
Width = 32 Width = 64
Height = 21 Height = 21
Caption = #21697#21517 Caption = #20184#27454#26041#24335
end end
object Label6: TLabel object Label6: TLabel
Left = 456 Left = 456
Top = 37 Top = 37
Width = 32
Height = 21
Caption = #32534#21495
end
object Label10: TLabel
Left = 665
Top = 37
Width = 68
Height = 21
Caption = #21512' '#21516' '#21495
end
object Label11: TLabel
Left = 669
Top = 6
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #23458#25143#21333#21495 Caption = #23545#26041#31246#21495
end
object Label11: TLabel
Left = 714
Top = 6
Width = 32
Height = 21
Caption = #29992#36884
end end
object Label2: TLabel object Label2: TLabel
Left = 218 Left = 218
Top = 37 Top = 37
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #19978#32423#21333#20301 Caption = #30003#35831#21333#21495
end end
object Label1: TLabel object Label1: TLabel
Left = 67 Left = 67
@ -225,43 +226,36 @@ inherited frmExpenseList: TfrmExpenseList
OnKeyPress = OppCoNameKeyPress OnKeyPress = OppCoNameKeyPress
Width = 150 Width = 150
end end
object F_Name: TcxTextEdit object PayMent: TcxTextEdit
Tag = 2 Tag = 2
Left = 490 Left = 542
Top = 2 Top = 0
TabOrder = 1 TabOrder = 1
OnKeyPress = OppCoNameKeyPress OnKeyPress = OppCoNameKeyPress
Width = 150 Width = 150
end end
object P_Code: TcxTextEdit object oppShuiNo: TcxTextEdit
Tag = 1 Tag = 2
Left = 490 Left = 542
Top = 33 Top = 33
TabOrder = 2 TabOrder = 2
OnKeyPress = OppCoNameKeyPress OnKeyPress = OppCoNameKeyPress
Width = 150 Width = 150
end end
object ConNo: TcxTextEdit object Use: TcxTextEdit
Tag = 2 Tag = 77
Left = 734 Left = 752
Top = 33 Top = 0
Hint = 'A.'
TabOrder = 3 TabOrder = 3
OnKeyPress = OppCoNameKeyPress OnKeyPress = OppCoNameKeyPress
Width = 150 Width = 150
end end
object BuyConNo: TcxTextEdit object FFID: TcxTextEdit
Tag = 2 Tag = 2
Left = 734 Left = 283
Top = 2
TabOrder = 4
OnKeyPress = OppCoNameKeyPress
Width = 150
end
object OppParentCoName: TcxTextEdit
Tag = 2
Left = 281
Top = 33 Top = 33
TabOrder = 5 TabOrder = 4
OnKeyPress = OppCoNameKeyPress OnKeyPress = OppCoNameKeyPress
Width = 150 Width = 150
end end
@ -269,14 +263,14 @@ inherited frmExpenseList: TfrmExpenseList
Left = 87 Left = 87
Top = 2 Top = 2
Properties.ShowTime = False Properties.ShowTime = False
TabOrder = 6 TabOrder = 5
Width = 120 Width = 120
end end
object Enddate: TcxDateEdit object Enddate: TcxDateEdit
Left = 87 Left = 87
Top = 33 Top = 33
Properties.ShowTime = False Properties.ShowTime = False
TabOrder = 7 TabOrder = 6
Width = 120 Width = 120
end end
object CheckBox1: TcxCheckBox object CheckBox1: TcxCheckBox
@ -284,7 +278,7 @@ inherited frmExpenseList: TfrmExpenseList
Top = 4 Top = 4
Caption = #26597#35810#26085#26399 Caption = #26597#35810#26085#26399
State = cbsChecked State = cbsChecked
TabOrder = 8 TabOrder = 7
end end
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]

82
A09财务通用管理/U_ExpenseList.pas
View File

@ -41,23 +41,21 @@ type
CDS_1: TClientDataSet; CDS_1: TClientDataSet;
btnAdd: TToolButton; btnAdd: TToolButton;
v2FactoryName: TcxGridDBColumn; v2FactoryName: TcxGridDBColumn;
F_Name: TcxTextEdit; PayMent: TcxTextEdit;
Label4: TLabel; Label4: TLabel;
Label6: TLabel; Label6: TLabel;
P_Code: TcxTextEdit; oppShuiNo: TcxTextEdit;
Tv1OppBankName: TcxGridDBColumn; Tv1OppBankName: TcxGridDBColumn;
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
Label10: TLabel;
ConNo: TcxTextEdit;
Label11: TLabel; Label11: TLabel;
BuyConNo: TcxTextEdit; Use: TcxTextEdit;
btnChk: TToolButton; btnChk: TToolButton;
btnReChk: TToolButton; btnReChk: TToolButton;
PM_1: TPopupMenu; PM_1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
ToolButton4: TToolButton; ToolButton4: TToolButton;
Label2: TLabel; Label2: TLabel;
OppParentCoName: TcxTextEdit; FFID: TcxTextEdit;
ToolButton5: TToolButton; ToolButton5: TToolButton;
N2: TMenuItem; N2: TMenuItem;
btnEdit: TToolButton; btnEdit: TToolButton;
@ -95,6 +93,7 @@ type
TbFP: TToolButton; TbFP: TToolButton;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
TbCancelFP: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);
@ -120,6 +119,7 @@ type
procedure btnChk2Click(Sender: TObject); procedure btnChk2Click(Sender: TObject);
procedure btnReChk2Click(Sender: TObject); procedure btnReChk2Click(Sender: TObject);
procedure TbFPClick(Sender: TObject); procedure TbFPClick(Sender: TObject);
procedure TbCancelFPClick(Sender: TObject);
private private
FPayOurBankName: TcxButtonEdit; FPayOurBankName: TcxButtonEdit;
FPayOurBankCardNo: TcxTextEdit; FPayOurBankCardNo: TcxTextEdit;
@ -331,6 +331,10 @@ begin
end; end;
end; end;
if Trim(Use.Text) <> '' then
begin
SQL.Add(' and A.[Use] like ''%' + Trim(Use.Text) + '%'' ');
end;
if CheckBox1.Checked then if CheckBox1.Checked then
begin begin
sql.Add(' and A.FFTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.Date) + ''' '); sql.Add(' and A.FFTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.Date) + ''' ');
@ -370,6 +374,70 @@ begin
Action := caFree; Action := caFree;
end; end;
procedure TfrmExpenseList.TbCancelFPClick(Sender: TObject);
var
FFFIDS: 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;
with CDS_1 do
begin
DisableControls;
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean then
begin
if Trim(FieldByName('IVID').AsString) = '' then
begin
Application.MessageBox(PChar('记录【' + FieldByName('FFID').AsString + '】未关联发票，无需撤销'), '提示信息', MB_OK + MB_ICONWARNING);
EnableControls;
Exit;
end;
FFFIDS := FFFIDS + Trim(FieldByName('FFID').AsString) + ',';
end;
Next;
end;
EnableControls;
end;
if FFFIDS <> '' then
FFFIDS := Copy(FFFIDS, 1, Length(FFFIDS) - 1)
else
Exit;
try
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add('UPDATE Finance_Flow SET IVNo = '''', IVID = '''' ');
SQL.Add('WHERE FFID IN (SELECT rtvalue FROM dbo.F_Tool_SplitString(' +
QuotedStr(FFFIDS) + ', '',''))');
ExecSQL;
end;
Application.MessageBox('撤销关联发票成功', '提示信息', MB_OK + MB_ICONINFORMATION);
InitGrid();
except
on E: Exception do
begin
Application.MessageBox(PChar('撤销关联发票失败：' + E.Message), '错误信息', MB_OK + MB_ICONERROR);
end;
end;
end;
procedure TfrmExpenseList.TBCloseClick(Sender: TObject); procedure TfrmExpenseList.TBCloseClick(Sender: TObject);
begin begin
@ -982,7 +1050,7 @@ end;
procedure TfrmExpenseList.TBRafreshClick(Sender: TObject); procedure TfrmExpenseList.TBRafreshClick(Sender: TObject);
begin begin
begdate.SetFocus; toolbar1.SetFocus;
InitGrid(); InitGrid();

6
A09财务通用管理/U_GetDllForm.pas
View File

@ -77,9 +77,9 @@ begin
user := 'kaixiyasa'; user := 'kaixiyasa';
pswd := 'rightsoft,.KXY@YN'; pswd := 'rightsoft,.KXY@YN';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1:='管理'; Parameters1:='管理';
// Parameters1 := '审核2'; Parameters1 := '审核2';
// Parameters1 := '付款'; Parameters1 := '申请';
end end
else else
begin begin

15
A09财务通用管理/U_InvoiceInList.pas
View File

@ -197,9 +197,16 @@ begin
sql.Add(' select A.* '); sql.Add(' select A.* ');
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(',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(',checkStatus=case when A.status = ''0'' then ''未审核'' else ''已审核'' end ');
sql.Add(',PayStatus=(select PayStatus from Finance_Flow X where X.IVID = A.IVID ) ');
// sql.Add(',PayTime=(select PayTime from Finance_Flow X where X.IVID = A.IVID ) '); sql.Add(',PayStatus=(SELECT TOP 1 X.PayStatus FROM Finance_Flow X ');
sql.Add(',PayTime=case when (select PayStatus from Finance_Flow X where X.IVID = A.IVID ) = ''δ¸¶¿î'' then null else (select PayTime from Finance_Flow X where X.IVID = A.IVID ) end '); sql.Add(' WHERE CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0 ) ');
sql.Add(',PayTime=case when (SELECT TOP 1 X.PayStatus FROM Finance_Flow X ');
sql.Add(' WHERE CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0 ) = ''δ¸¶¿î'' ');
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 '); sql.Add(' from Finance_Invoice A ');
sql.add(' where A.IVDate>=''' + formatdatetime('yyyy-MM-dd', begdate.Date) + ''' '); sql.add(' where A.IVDate>=''' + formatdatetime('yyyy-MM-dd', begdate.Date) + ''' ');
@ -256,7 +263,7 @@ end;
procedure TfrmInvoiceInList.TBRafreshClick(Sender: TObject); procedure TfrmInvoiceInList.TBRafreshClick(Sender: TObject);
begin begin
begdate.SetFocus; toolbar1.SetFocus;
InitGrid(); InitGrid();
end; end;

28
A09财务通用管理/U_InvoiceSel.dfm
View File

@ -356,7 +356,7 @@ object frmInvoiceSel: TfrmInvoiceSel
end end
object begdate: TcxDateEdit object begdate: TcxDateEdit
Left = 87 Left = 87
Top = 2 Top = -2
Properties.ShowTime = False Properties.ShowTime = False
TabOrder = 0 TabOrder = 0
Width = 120 Width = 120
@ -368,6 +368,32 @@ object frmInvoiceSel: TfrmInvoiceSel
TabOrder = 1 TabOrder = 1
Width = 120 Width = 120
end end
object SupplierShuiNo: TcxTextEdit
Tag = 2
Left = 326
Top = 8
TabOrder = 2
OnKeyPress = SupplierShuiNoKeyPress
Width = 131
end
object cxLabel1: TcxLabel
Left = 240
Top = 6
Caption = #20379#24212#21830#31246#21495
end
object Supplier: TcxTextEdit
Tag = 2
Left = 576
Top = 8
TabOrder = 4
OnKeyPress = SupplierShuiNoKeyPress
Width = 150
end
object cxLabel2: TcxLabel
Left = 481
Top = 6
Caption = #20379#24212#21830#21517#31216
end
end end
object DataSource1: TDataSource object DataSource1: TDataSource
DataSet = CDS_Invoice DataSet = CDS_Invoice

37
A09财务通用管理/U_InvoiceSel.pas
View File

@ -12,7 +12,7 @@ uses
cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar,
dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations, cxPC, cxContainer, dxCore, cxDateUtils, cxCheckBox, dxScrollbarAnnotations, cxPC, cxContainer, dxCore, cxDateUtils, cxCheckBox,
cxMaskEdit, dxSkinWXI, cxCurrencyEdit; cxMaskEdit, dxSkinWXI, cxCurrencyEdit, cxLabel;
type type
TfrmInvoiceSel = class(TForm) TfrmInvoiceSel = class(TForm)
@ -56,6 +56,10 @@ type
ToolButton6: TToolButton; ToolButton6: TToolButton;
Label4: TLabel; Label4: TLabel;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
SupplierShuiNo: TcxTextEdit;
cxLabel1: TcxLabel;
Supplier: TcxTextEdit;
cxLabel2: TcxLabel;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TSaveClick(Sender: TObject); procedure TSaveClick(Sender: TObject);
@ -80,6 +84,7 @@ type
procedure Tv1DblClick(Sender: TObject); procedure Tv1DblClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton6Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject);
procedure SupplierShuiNoKeyPress(Sender: TObject; var Key: Char);
private private
procedure initGrid(); procedure initGrid();
procedure SaveDate(); procedure SaveDate();
@ -181,6 +186,14 @@ begin
end; end;
end; end;
procedure TfrmInvoiceSel.SupplierShuiNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmInvoiceSel.SaveDate(); procedure TfrmInvoiceSel.SaveDate();
var var
MaxNo: string; MaxNo: string;
@ -247,13 +260,14 @@ begin
end; end;
procedure TfrmInvoiceSel.initGrid(); procedure TfrmInvoiceSel.initGrid();
var
filterStr: string;
begin begin
with ADOQueryTmp do with ADOQueryTmp do
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('select A.*,B.BankName,B.BankNo,B.CoCode,C.BankDeposit,C.BankCardNo from Finance_Invoice A '); sql.Add('select A.*,B.BankName,B.BankNo,B.CoCode,C.BankDeposit,C.BankCardNo from Finance_Invoice A ');
sql.add(' left join BS_Company B on A.SupplierNo = B.CoCode '); sql.add(' left join BS_Company B on A.SupplierNo = B.CoCode ');
SQL.Add(' LEFT JOIN ('); SQL.Add(' LEFT JOIN (');
SQL.Add(' SELECT *, ROW_NUMBER() OVER (PARTITION BY GSTT ORDER BY (SELECT NULL)) AS rn'); SQL.Add(' SELECT *, ROW_NUMBER() OVER (PARTITION BY GSTT ORDER BY (SELECT NULL)) AS rn');
@ -262,18 +276,22 @@ begin
sql.add(' where isnull(A.Status,''0'')=''9'' '); sql.add(' where isnull(A.Status,''0'')=''9'' ');
if cxTabControl1.TabIndex = 1 then sql.Add(' and A.ivdate>=''' + FormatDateTime('yyyy-MM-dd', begdate.Date) + ''' ');
begin sql.Add(' and A.ivdate<''' + FormatDateTime('yyyy-MM-dd', Enddate.Date + 1) + ''' ');
sql.Add(' and A.ivdate>=''' + FormatDateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add(' and A.ivdate<''' + FormatDateTime('yyyy-MM-dd', Enddate.Date + 1) + ''' ');
end;
if cxTabControl1.TabIndex = 0 then if cxTabControl1.TabIndex = 0 then
begin begin
sql.add(' and not exists (select 1 from Finance_Flow X where X.IVID = A.IVID) '); sql.add(' and not exists (select 1 from Finance_Flow X where CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0) ');
end; end;
if cxTabControl1.TabIndex = 1 then if cxTabControl1.TabIndex = 1 then
begin begin
sql.add(' and exists (select 1 from Finance_Flow X where X.IVID = A.IVID) '); sql.add(' and exists (select 1 from Finance_Flow X where CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0) ');
end;
filterStr := SGetFilters(Panel1, 1, 2);
if filterStr <> '' then
begin
sql.add(' and ' + filterStr);
end; end;
open; open;
@ -826,6 +844,7 @@ end;
procedure TfrmInvoiceSel.ToolButton6Click(Sender: TObject); procedure TfrmInvoiceSel.ToolButton6Click(Sender: TObject);
begin begin
toolbar1.SetFocus;
initGrid(); initGrid();
end; end;

4
A09财务通用管理/U_PayInput.dfm
View File

@ -34,7 +34,6 @@ object frmPayInput: TfrmPayInput
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 784
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -66,9 +65,6 @@ object frmPayInput: TfrmPayInput
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 36
ExplicitWidth = 1180
ExplicitHeight = 553
object Label7: TLabel object Label7: TLabel
Left = 62 Left = 62
Top = 238 Top = 238

2
A09财务通用管理/U_PayInput.pas
View File

@ -14,7 +14,7 @@ uses
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer,
cxCurrencyEdit, dxSkinsCore, dxSkinsDefaultPainters; cxCurrencyEdit, dxSkinsCore, dxSkinsDefaultPainters, dxCoreGraphics, dxSkinWXI;
type type
TfrmPayInput = class(TForm) TfrmPayInput = class(TForm)

2
A09财务通用管理/U_PayableList.dfm
View File

@ -271,8 +271,6 @@ inherited frmPayableList: TfrmPayableList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitLeft = 102
ExplicitTop = 119
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False

2
A09财务通用管理/U_PayableList.pas
View File

@ -15,7 +15,7 @@ uses
cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus,
Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxSkinsCore, Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxSkinsCore,
dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar; dxSkinsDefaultPainters, dxScrollbarAnnotations, cxProgressBar, dxSkinWXI;
type type
TfrmPayableList = class(TfrmBaseList) TfrmPayableList = class(TfrmBaseList)

2
A09财务通用管理/U_SingleCustStatement.pas
View File

@ -101,7 +101,7 @@ begin
Close; Close;
SQL.Clear; SQL.Clear;
Filtered := False; Filtered := False;
sql.Add(' exec P_Fin_CustStatementSingle '); sql.Add(' exec P_Fin_CustStatementSingle_New ');
sql.Add(' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime)))); sql.Add(' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))));
sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1)))); sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))));
sql.Add(' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo))); sql.Add(' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo)));

BIN
A09财务通用管理/testDll.identcache
View File

Binary file not shown.