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-05-22 11:44:22 +08:00
parent b61155c25a
commit 7841a073d2
14 changed files with 188 additions and 115 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -80,7 +80,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A09财务通用管理\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">

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

@ -1,64 +1,64 @@
<?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.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.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.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.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.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.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.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.734,=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.630,=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.422,=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.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.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.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.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.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.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.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm</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.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.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.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.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.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.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.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.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.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.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.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.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.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.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_PayableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm</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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.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.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.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.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>2026-05-15 11:04:20.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas</Transaction>
<Transaction>2026-05-15 11:04:20.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>
@ -77,7 +77,7 @@
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/> <File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/> <File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/> <File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="D:\Dp10RepoV1"/> <File Path="D:\D10V1W"/>
<File Path="..\..\..\public10"/> <File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/> <File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/> <File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>

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

@ -8,6 +8,7 @@ inherited DataLink_Financial: TDataLink_Financial
StyleDisabled.LookAndFeel.SkinName = '' StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = ''
StyleReadOnly.LookAndFeel.SkinName = ''
PixelsPerInch = 96 PixelsPerInch = 96
end end
inherited cxImageList_bar: TcxImageList inherited cxImageList_bar: TcxImageList

3
A09财务通用管理/U_DataLink.pas
View File

@ -7,7 +7,8 @@ uses
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
System.ImageList, U_BaseDataLink, System.ImageList, U_BaseDataLink,
cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm, dxSkinsCore, cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm, dxSkinsCore,
dxSkinsDefaultPainters, dxCore, cxLocalization, dxLayoutLookAndFeels; dxSkinsDefaultPainters, dxCore, cxLocalization, dxLayoutLookAndFeels,
dxSkinWXI;
type type
TMyThread = class(TThread) TMyThread = class(TThread)

25
A09财务通用管理/U_ExpenseInput.pas
View File

@ -15,7 +15,7 @@ uses
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, dxCore, cxDateUtils, cxCurrencyEdit, dxSkinsCore, dxSkinsDefaultPainters, dxCore, cxDateUtils,
dxScrollbarAnnotations, Vcl.Menus, Clipbrd; dxScrollbarAnnotations, Vcl.Menus, Clipbrd, dxCoreGraphics, dxSkinWXI;
type type
TfrmExpenseInput = class(TForm) TfrmExpenseInput = class(TForm)
@ -113,6 +113,8 @@ uses
{$R *.dfm} {$R *.dfm}
procedure TfrmExpenseInput.InitGrid(); procedure TfrmExpenseInput.InitGrid();
var
nAmount: Double;
begin begin
try try
@ -128,7 +130,11 @@ begin
if not ADOQueryMain.IsEmpty then if not ADOQueryMain.IsEmpty then
begin begin
SCSHData(ADOQueryMain, ScrollBox1, 2); SCSHData(ADOQueryMain, ScrollBox1, 2);
if ADOQueryMain.FieldByName('Amount').AsString <> '' then
begin
nAmount := ADOQueryMain.FieldByName('Amount').AsFloat;
Amount.Text := FormatFloat('#,##0', nAmount);
end;
end end
else else
begin begin
@ -416,6 +422,9 @@ begin
end; end;
procedure TfrmExpenseInput.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmExpenseInput.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
CurrentAmount: Double;
TaxAmount: Double;
begin begin
try try
frmInvoiceSel := TfrmInvoiceSel.Create(Application); frmInvoiceSel := TfrmInvoiceSel.Create(Application);
@ -434,17 +443,21 @@ begin
with frmInvoiceSel.CDS_Invoice do with frmInvoiceSel.CDS_Invoice do
begin begin
CurrentAmount := StrToFloatDef(StringReplace(Self.Amount.Text, ',', '', [rfReplaceAll]), 0);
TaxAmount := FieldByName('TaxAmount').AsFloat;
if Self.IVNo.Text = '' then if Self.IVNo.Text = '' then
begin begin
Self.IVNo.Text := frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').AsString; Self.IVNo.Text := frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').AsString;
Self.IVNo.Properties.LookupItems.Text := frmInvoiceSel.CDS_Invoice.FieldByName('IVID').AsString; Self.IVNo.Properties.LookupItems.Text := frmInvoiceSel.CDS_Invoice.FieldByName('IVID').AsString;
Self.Amount.Text := frmInvoiceSel.CDS_Invoice.FieldByName('TaxAmount').AsString; Self.Amount.Text := FormatFloat('#,##0', TaxAmount);
// Self.Amount.Text := frmInvoiceSel.CDS_Invoice.FieldByName('TaxAmount').AsString;
end end
else else
begin begin
Self.IVNo.Text := Trim(Self.IVNo.Text) + ',' + Trim(frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').AsString); Self.IVNo.Text := Trim(Self.IVNo.Text) + ',' + Trim(frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').AsString);
Self.IVNo.Properties.LookupItems.Text := trim(Self.IVNo.Properties.LookupItems.Text) + ',' + Trim(frmInvoiceSel.CDS_Invoice.FieldByName('IVID').AsString); Self.IVNo.Properties.LookupItems.Text := trim(Self.IVNo.Properties.LookupItems.Text) + ',' + Trim(frmInvoiceSel.CDS_Invoice.FieldByName('IVID').AsString);
Self.Amount.Text := FloatToStr(strtofloatdef(Self.Amount.Text, 0) + frmInvoiceSel.CDS_Invoice.FieldByName('TaxAmount').asfloat); Self.Amount.Text := FormatFloat('#,##0', CurrentAmount + TaxAmount);
// Self.Amount.Text := FloatToStr(strtofloatdef(Self.Amount.Text, 0) + frmInvoiceSel.CDS_Invoice.FieldByName('TaxAmount').asfloat);
end; end;
Self.OppCoName.Text := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString; Self.OppCoName.Text := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString;
@ -506,6 +519,7 @@ end;
function TfrmExpenseInput.SaveData(): Boolean; function TfrmExpenseInput.SaveData(): Boolean;
var var
MaxId, MaxSubId, FCoCode, FCCID: string; MaxId, MaxSubId, FCoCode, FCCID: string;
CleanAmount: string;
begin begin
try try
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
@ -520,6 +534,7 @@ begin
end; end;
FFID.Text := MaxId; FFID.Text := MaxId;
CleanAmount := StringReplace(Amount.Text, ',', '', [rfReplaceAll]);
with ADOQueryCmd do with ADOQueryCmd do
begin begin
@ -557,6 +572,8 @@ begin
// FieldByName('FFID').Value := Trim(MaxId); // FieldByName('FFID').Value := Trim(MaxId);
FieldByName('OppCoNo').Value := trim(OppCoName.Properties.LookupItems.Text); FieldByName('OppCoNo').Value := trim(OppCoName.Properties.LookupItems.Text);
FieldByName('IVID').Value := trim(IVNO.Properties.LookupItems.Text); FieldByName('IVID').Value := trim(IVNO.Properties.LookupItems.Text);
if CleanAmount <> '' then
FieldByName('Amount').AsFloat := StrToFloatDef(CleanAmount, 0);
RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 2); RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 2);
Post; Post;

89
A09财务通用管理/U_ExpenseList.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
TfrmExpenseList = class(TfrmBaseList) TfrmExpenseList = class(TfrmBaseList)
@ -152,6 +152,7 @@ begin
if Trim(FAuthority) = '审核' then if Trim(FAuthority) = '审核' then
begin begin
btnAdd.Enabled := true; btnAdd.Enabled := true;
TbFP.Enabled := true;
cxTabControl1.Tabs[2].Visible := False; cxTabControl1.Tabs[2].Visible := False;
cxTabControl1.Tabs[3].Visible := False; cxTabControl1.Tabs[3].Visible := False;
// cxTabControl1.Tabs[0].caption := 'aa'; // cxTabControl1.Tabs[0].caption := 'aa';
@ -161,7 +162,7 @@ begin
btnEdit.Enabled := true; btnEdit.Enabled := true;
btnDel.Enabled := true; btnDel.Enabled := true;
btnChk.Enabled := true; btnChk.Enabled := true;
TbFP.Enabled := true; // TbFP.Enabled := true;
end; end;
1: 1:
begin begin
@ -183,6 +184,7 @@ begin
if Trim(FAuthority) = '审核2' then if Trim(FAuthority) = '审核2' then
begin begin
btnAdd.Enabled := true; btnAdd.Enabled := true;
TbFP.Enabled := true;
cxTabControl1.Tabs[0].Visible := False; cxTabControl1.Tabs[0].Visible := False;
cxTabControl1.Tabs[3].Visible := False; cxTabControl1.Tabs[3].Visible := False;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
@ -191,7 +193,7 @@ begin
btnEdit.Enabled := true; btnEdit.Enabled := true;
btnDel.Enabled := true; btnDel.Enabled := true;
// btnChk.Enabled := true; // btnChk.Enabled := true;
TbFP.Enabled := true; // TbFP.Enabled := true;
end; end;
1: 1:
begin begin
@ -216,13 +218,14 @@ begin
cxTabControl1.Tabs[1].Visible := False; cxTabControl1.Tabs[1].Visible := False;
cxTabControl1.Tabs[2].caption := '未付款'; cxTabControl1.Tabs[2].caption := '未付款';
btnAdd.Enabled := true; btnAdd.Enabled := true;
TbFP.Enabled := true;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
btnEdit.Enabled := true; btnEdit.Enabled := true;
btnDel.Enabled := true; btnDel.Enabled := true;
TbFP.Enabled := true; // TbFP.Enabled := true;
// btnChk.Enabled := true; // btnChk.Enabled := true;
end; end;
1: 1:
@ -377,12 +380,12 @@ begin
self.ADOQueryCmd.Edit; self.ADOQueryCmd.Edit;
self.ADOQueryCmd.FieldByName('IVNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').AsString; self.ADOQueryCmd.FieldByName('IVNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').AsString;
self.ADOQueryCmd.FieldByName('IVID').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('IVID').AsString; self.ADOQueryCmd.FieldByName('IVID').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('IVID').AsString;
self.ADOQueryCmd.FieldByName('OppCoName').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString; // self.ADOQueryCmd.FieldByName('OppCoName').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString;
self.ADOQueryCmd.FieldByName('OppCoNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString; // self.ADOQueryCmd.FieldByName('OppCoNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString;
self.ADOQueryCmd.FieldByName('oppShuiNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('SupplierShuiNo').AsString; // self.ADOQueryCmd.FieldByName('oppShuiNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('SupplierShuiNo').AsString;
self.ADOQueryCmd.FieldByName('Amount').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Amount').AsString; // self.ADOQueryCmd.FieldByName('Amount').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Amount').AsString;
self.ADOQueryCmd.FieldByName('OppBankName').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('BankName').AsString; // self.ADOQueryCmd.FieldByName('OppBankName').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('BankName').AsString;
self.ADOQueryCmd.FieldByName('OppBankCardNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('BankNo').AsString; // self.ADOQueryCmd.FieldByName('OppBankCardNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('BankNo').AsString;
self.ADOQueryCmd.Post; self.ADOQueryCmd.Post;
end; end;
@ -403,6 +406,10 @@ var
btnOK, btnCancel: TButton; btnOK, btnCancel: TButton;
lblDate, lblBankSlip: TLabel; lblDate, lblBankSlip: TLabel;
BankSlipCode: string; BankSlipCode: string;
cxOurBankName, cxOurBankCardNo: TcxTextEdit;
lblOurBankName, lblOurBankCardNo: TLabel;
OurBankName, OurBankCardNo: string;
begin begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
exit; exit;
@ -413,12 +420,30 @@ begin
Exit; Exit;
end; end;
OurBankName := '';
OurBankCardNo := '';
with CDS_1 do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean then
begin
if OurBankName = '' then
OurBankName := Trim(FieldByName('OurBankName').AsString);
if OurBankCardNo = '' then
OurBankCardNo := Trim(FieldByName('OurBankCardNo').AsString);
end;
Next;
end;
end;
// 创建一个窗体 // 创建一个窗体
DateForm := TForm.Create(nil); DateForm := TForm.Create(nil);
try try
DateForm.Caption := '付款信息'; DateForm.Caption := '付款信息';
DateForm.Width := 350; DateForm.Width := 350;
DateForm.Height := 200; DateForm.Height := 260;
DateForm.Position := poScreenCenter; DateForm.Position := poScreenCenter;
DateForm.BorderStyle := bsDialog; DateForm.BorderStyle := bsDialog;
DateForm.BorderIcons := [biSystemMenu]; DateForm.BorderIcons := [biSystemMenu];
@ -443,18 +468,46 @@ begin
cxDateEdit.Top := 18; cxDateEdit.Top := 18;
cxDateEdit.Width := 200; cxDateEdit.Width := 200;
lblOurBankName := TLabel.Create(DateForm);
lblOurBankName.Parent := DateForm;
lblOurBankName.Caption := '付款账号:';
lblOurBankName.Left := 20;
lblOurBankName.Top := 63;
cxOurBankName := TcxTextEdit.Create(DateForm);
cxOurBankName.Parent := DateForm;
cxOurBankName.Left := 120;
cxOurBankName.Top := 58;
cxOurBankName.Width := 200;
cxOurBankName.Text := OurBankName;
// ====== 新增结束 ======
// ====== 新增：付款银行 ======
lblOurBankCardNo := TLabel.Create(DateForm);
lblOurBankCardNo.Parent := DateForm;
lblOurBankCardNo.Caption := '付款银行:';
lblOurBankCardNo.Left := 20;
lblOurBankCardNo.Top := 103;
cxOurBankCardNo := TcxTextEdit.Create(DateForm);
cxOurBankCardNo.Parent := DateForm;
cxOurBankCardNo.Left := 120;
cxOurBankCardNo.Top := 98;
cxOurBankCardNo.Width := 200;
cxOurBankCardNo.Text := OurBankCardNo;
// 创建银行水单编码标签 // 创建银行水单编码标签
lblBankSlip := TLabel.Create(DateForm); lblBankSlip := TLabel.Create(DateForm);
lblBankSlip.Parent := DateForm; lblBankSlip.Parent := DateForm;
lblBankSlip.Caption := '银行水单编码:'; lblBankSlip.Caption := '银行水单编码:';
lblBankSlip.Left := 20; lblBankSlip.Left := 20;
lblBankSlip.Top := 63; lblBankSlip.Top := 143;
// 创建 cxTextEdit 用于输入银行水单编码 // 创建 cxTextEdit 用于输入银行水单编码
cxTextEdit := TcxTextEdit.Create(DateForm); cxTextEdit := TcxTextEdit.Create(DateForm);
cxTextEdit.Parent := DateForm; cxTextEdit.Parent := DateForm;
cxTextEdit.Left := 120; cxTextEdit.Left := 120;
cxTextEdit.Top := 58; cxTextEdit.Top := 138;
cxTextEdit.Width := 200; cxTextEdit.Width := 200;
cxTextEdit.Text := ''; cxTextEdit.Text := '';
@ -464,7 +517,7 @@ begin
btnOK.Caption := '确定'; btnOK.Caption := '确定';
btnOK.ModalResult := mrOK; btnOK.ModalResult := mrOK;
btnOK.Left := 80; btnOK.Left := 80;
btnOK.Top := 110; btnOK.Top := 180;
btnOK.Width := 80; btnOK.Width := 80;
btnOK.Default := True; btnOK.Default := True;
@ -474,7 +527,7 @@ begin
btnCancel.Caption := '取消'; btnCancel.Caption := '取消';
btnCancel.ModalResult := mrCancel; btnCancel.ModalResult := mrCancel;
btnCancel.Left := 180; btnCancel.Left := 180;
btnCancel.Top := 110; btnCancel.Top := 180;
btnCancel.Width := 80; btnCancel.Width := 80;
btnCancel.Cancel := True; btnCancel.Cancel := True;
@ -485,6 +538,9 @@ begin
SelectedDate := Trunc(cxDateEdit.Date); // 取日期部分 SelectedDate := Trunc(cxDateEdit.Date); // 取日期部分
BankSlipCode := Trim(cxTextEdit.Text); BankSlipCode := Trim(cxTextEdit.Text);
OurBankName := Trim(cxOurBankName.Text);
OurBankCardNo := Trim(cxOurBankCardNo.Text);
// 验证输入 // 验证输入
if BankSlipCode = '' then if BankSlipCode = '' then
begin begin
@ -541,6 +597,9 @@ begin
sql.Add(',@PayTime=' + QuotedStr(FormatDateTime('yyyy-mm-dd', SelectedDate))); sql.Add(',@PayTime=' + QuotedStr(FormatDateTime('yyyy-mm-dd', SelectedDate)));
// 添加银行水单编码参数 - 需要修改存储过程 // 添加银行水单编码参数 - 需要修改存储过程
sql.Add(',@BankSlipNumber=' + QuotedStr(BankSlipCode)); sql.Add(',@BankSlipNumber=' + QuotedStr(BankSlipCode));
sql.Add(',@OurBankName=' + QuotedStr(OurBankName));
sql.Add(',@OurBankCardNo=' + QuotedStr(OurBankCardNo));
Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName))); Sql.Add(',@DName=' + quotedstr(Trim(DName)));
open; open;

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

@ -78,8 +78,8 @@ begin
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 := '<27>뵙2'; Parameters1 := '<27>뵙2';
Parameters1 := '마운'; // Parameters1 := '마운';
end end
else else
begin begin

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

@ -249,8 +249,9 @@ object frmInvoiceSel: TfrmInvoiceSel
Caption = #21333#20215 Caption = #21333#20215
DataBinding.FieldName = 'Price' DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged Properties.DecimalPlaces = 0
Properties.DisplayFormat = '#,##0'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 93 Width = 93
@ -259,8 +260,9 @@ object frmInvoiceSel: TfrmInvoiceSel
Caption = #24635#37329#39069#26410#21547#31246 Caption = #24635#37329#39069#26410#21547#31246
DataBinding.FieldName = 'Amount' DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.OnEditValueChanged = Tv1AmountPropertiesEditValueChanged Properties.DecimalPlaces = 0
Properties.DisplayFormat = '#,##0'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 111 Width = 111
@ -269,13 +271,9 @@ object frmInvoiceSel: TfrmInvoiceSel
Caption = #31246#37329 Caption = #31246#37329
DataBinding.FieldName = 'TaxFee' DataBinding.FieldName = 'TaxFee'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Buttons = < Properties.DecimalPlaces = 0
item Properties.DisplayFormat = '#,##0'
Default = True
Kind = bkEllipsis
end>
Properties.OnEditValueChanged = Tv1AmountPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 65 Width = 65
@ -284,8 +282,9 @@ object frmInvoiceSel: TfrmInvoiceSel
Caption = #24635#37329#39069#24050#21547#31246 Caption = #24635#37329#39069#24050#21547#31246
DataBinding.FieldName = 'TaxAmount' DataBinding.FieldName = 'TaxAmount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged Properties.DecimalPlaces = 0
Properties.DisplayFormat = '#,##0'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 114 Width = 114

2
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; cxMaskEdit, dxSkinWXI, cxCurrencyEdit;
type type
TfrmInvoiceSel = class(TForm) TfrmInvoiceSel = class(TForm)

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

@ -160,7 +160,6 @@ inherited frmPayList: TfrmPayList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 5 TabOrder = 5
ExplicitTop = 24
object Label3: TLabel object Label3: TLabel
Left = 252 Left = 252
Top = 8 Top = 8
@ -534,7 +533,6 @@ inherited frmPayList: TfrmPayList
#20840#37096) #20840#37096)
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 95
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end

2
A09财务通用管理/U_PayList.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
TfrmPayList = class(TfrmBaseList) TfrmPayList = class(TfrmBaseList)

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

@ -19,7 +19,7 @@ inherited frmReceivableList: TfrmReceivableList
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 99
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
DisabledImages = DataLink_Financial.cxImageList_bar DisabledImages = DataLink_Financial.cxImageList_bar
@ -37,7 +37,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object btnAdd: TToolButton object btnAdd: TToolButton
Left = 63 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
@ -45,7 +45,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = btnAddClick OnClick = btnAddClick
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 126 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#26032#22686 Caption = #25209#37327#26032#22686
@ -53,7 +53,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object btnEdit: TToolButton object btnEdit: TToolButton
Left = 213 Left = 245
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -61,7 +61,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = btnEditClick OnClick = btnEditClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 276 Left = 316
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21333#20215#20462#25913 Caption = #21333#20215#20462#25913
@ -69,7 +69,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object btnDel: TToolButton object btnDel: TToolButton
Left = 363 Left = 419
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -77,7 +77,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = btnDelClick OnClick = btnDelClick
end end
object btnChk: TToolButton object btnChk: TToolButton
Left = 426 Left = 490
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23457#26680 Caption = #23457#26680
@ -85,7 +85,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = btnChkClick OnClick = btnChkClick
end end
object btnReChk: TToolButton object btnReChk: TToolButton
Left = 489 Left = 561
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680
@ -93,7 +93,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = btnReChkClick OnClick = btnReChkClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 576 Left = 664
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20837 Caption = #23548#20837
@ -101,7 +101,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 639 Left = 735
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -109,7 +109,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 702 Left = 806
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
@ -117,7 +117,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 765 Left = 877
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -125,7 +125,7 @@ inherited frmReceivableList: TfrmReceivableList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 852 Left = 980
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -299,8 +299,6 @@ inherited frmReceivableList: TfrmReceivableList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 5 TabOrder = 5
ExplicitLeft = -107
ExplicitTop = 147
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_ReceivableList.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
TfrmReceivableList = class(TfrmBaseList) TfrmReceivableList = class(TfrmBaseList)

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

Binary file not shown.