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"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.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.422,=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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.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.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.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.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.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.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: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_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_ExpenseInput.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.pas</Transaction>
<Transaction>2026/05/22 15:10:32.000.542,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.pas</Transaction>
<Transaction>2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.dfm</Transaction>
<Transaction>2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.pas</Transaction>
<Transaction>2026/05/30 14:03:53.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.060,D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas</Transaction>
<Transaction>2026/05/30 14:05:55.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/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_InvoiceSel.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.pas</Transaction>
<Transaction>2026/05/30 14:03:53.000.690,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas</Transaction>
<Transaction>2026/05/30 14:04:26.000.060,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.dfm=D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.dfm</Transaction>
<Transaction>2026/05/30 14:04:26.000.060,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas=D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.pas</Transaction>
<Transaction>2026/05/30 14:05:55.000.119,D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.pas=</Transaction>
<Transaction>2026/05/30 14:42:33.000.201,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<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]
ParentFont = False
TabOrder = 3
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 2
Properties.TabIndex = 0

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

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

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

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

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

@ -16,7 +16,7 @@ uses
dxBarBuiltInMenu, cxPC, dxDateRanges,
U_BaseList, Vcl.Menus, Vcl.Clipbrd, DateUtils, cxContainer, dxCore,
cxDateUtils, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations, cxProgressBar, dxSkinWXI;
dxScrollbarAnnotations, cxProgressBar, dxSkinWXI, cxCurrencyEdit;
type
TfrmCustStatement = class(TfrmBaseList)
@ -94,7 +94,7 @@ begin
Filtered := False;
Close;
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(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.Date + 1))));
case cxTabControl1.TabIndex of
@ -187,7 +187,7 @@ begin
begdate.Date := self.begdate.Date;
enddate.Date := self.Enddate.Date;
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;
case cxTabControl1.TabIndex of
0:

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

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

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

@ -41,23 +41,21 @@ type
CDS_1: TClientDataSet;
btnAdd: TToolButton;
v2FactoryName: TcxGridDBColumn;
F_Name: TcxTextEdit;
PayMent: TcxTextEdit;
Label4: TLabel;
Label6: TLabel;
P_Code: TcxTextEdit;
oppShuiNo: TcxTextEdit;
Tv1OppBankName: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
Label10: TLabel;
ConNo: TcxTextEdit;
Label11: TLabel;
BuyConNo: TcxTextEdit;
Use: TcxTextEdit;
btnChk: TToolButton;
btnReChk: TToolButton;
PM_1: TPopupMenu;
N1: TMenuItem;
ToolButton4: TToolButton;
Label2: TLabel;
OppParentCoName: TcxTextEdit;
FFID: TcxTextEdit;
ToolButton5: TToolButton;
N2: TMenuItem;
btnEdit: TToolButton;
@ -95,6 +93,7 @@ type
TbFP: TToolButton;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
TbCancelFP: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
@ -120,6 +119,7 @@ type
procedure btnChk2Click(Sender: TObject);
procedure btnReChk2Click(Sender: TObject);
procedure TbFPClick(Sender: TObject);
procedure TbCancelFPClick(Sender: TObject);
private
FPayOurBankName: TcxButtonEdit;
FPayOurBankCardNo: TcxTextEdit;
@ -331,6 +331,10 @@ begin
end;
end;
if Trim(Use.Text) <> '' then
begin
SQL.Add(' and A.[Use] like ''%' + Trim(Use.Text) + '%'' ');
end;
if CheckBox1.Checked then
begin
sql.Add(' and A.FFTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.Date) + ''' ');
@ -370,6 +374,70 @@ begin
Action := caFree;
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);
begin
@ -982,7 +1050,7 @@ end;
procedure TfrmExpenseList.TBRafreshClick(Sender: TObject);
begin
begdate.SetFocus;
toolbar1.SetFocus;
InitGrid();

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

@ -77,9 +77,9 @@ begin
user := 'kaixiyasa';
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 := '付款';
Parameters1:='管理';
Parameters1 := '审核2';
Parameters1 := '申请';
end
else
begin

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

@ -197,9 +197,16 @@ begin
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(',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(',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(',PayStatus=(SELECT TOP 1 X.PayStatus FROM Finance_Flow X ');
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(' where A.IVDate>=''' + formatdatetime('yyyy-MM-dd', begdate.Date) + ''' ');
@ -256,7 +263,7 @@ end;
procedure TfrmInvoiceInList.TBRafreshClick(Sender: TObject);
begin
begdate.SetFocus;
toolbar1.SetFocus;
InitGrid();
end;

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

@ -356,7 +356,7 @@ object frmInvoiceSel: TfrmInvoiceSel
end
object begdate: TcxDateEdit
Left = 87
Top = 2
Top = -2
Properties.ShowTime = False
TabOrder = 0
Width = 120
@ -368,6 +368,32 @@ object frmInvoiceSel: TfrmInvoiceSel
TabOrder = 1
Width = 120
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
object DataSource1: TDataSource
DataSet = CDS_Invoice

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

@ -12,7 +12,7 @@ uses
cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar,
dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations, cxPC, cxContainer, dxCore, cxDateUtils, cxCheckBox,
cxMaskEdit, dxSkinWXI, cxCurrencyEdit;
cxMaskEdit, dxSkinWXI, cxCurrencyEdit, cxLabel;
type
TfrmInvoiceSel = class(TForm)
@ -56,6 +56,10 @@ type
ToolButton6: TToolButton;
Label4: TLabel;
Tv1Column1: TcxGridDBColumn;
SupplierShuiNo: TcxTextEdit;
cxLabel1: TcxLabel;
Supplier: TcxTextEdit;
cxLabel2: TcxLabel;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TSaveClick(Sender: TObject);
@ -80,6 +84,7 @@ type
procedure Tv1DblClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure SupplierShuiNoKeyPress(Sender: TObject; var Key: Char);
private
procedure initGrid();
procedure SaveDate();
@ -181,6 +186,14 @@ begin
end;
end;
procedure TfrmInvoiceSel.SupplierShuiNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmInvoiceSel.SaveDate();
var
MaxNo: string;
@ -247,13 +260,14 @@ begin
end;
procedure TfrmInvoiceSel.initGrid();
var
filterStr: string;
begin
with ADOQueryTmp do
begin
close;
sql.Clear;
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 (');
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'' ');
if cxTabControl1.TabIndex = 1 then
begin
sql.Add(' and A.ivdate>=''' + FormatDateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add(' and A.ivdate<''' + FormatDateTime('yyyy-MM-dd', Enddate.Date + 1) + ''' ');
end;
sql.Add(' and A.ivdate>=''' + FormatDateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add(' and A.ivdate<''' + FormatDateTime('yyyy-MM-dd', Enddate.Date + 1) + ''' ');
if cxTabControl1.TabIndex = 0 then
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;
if cxTabControl1.TabIndex = 1 then
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;
open;
@ -826,6 +844,7 @@ end;
procedure TfrmInvoiceSel.ToolButton6Click(Sender: TObject);
begin
toolbar1.SetFocus;
initGrid();
end;

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

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

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

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

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

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

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

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

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

@ -101,7 +101,7 @@ begin
Close;
SQL.Clear;
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(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))));
sql.Add(' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo)));

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

Binary file not shown.