From 7841a073d283b2df4c8fd794714f042d51862d20 Mon Sep 17 00:00:00 2001 From: funa <1559646174@qq.com> Date: Fri, 22 May 2026 11:44:22 +0800 Subject: [PATCH] =?UTF-8?q?=E8=B4=A2=E5=8A=A1?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- A09财务通用管理/Financial.dproj | 2 +- A09财务通用管理/Financial.dproj.local | 118 +++++++++++++------------- A09财务通用管理/U_DataLink.dfm | 1 + A09财务通用管理/U_DataLink.pas | 3 +- A09财务通用管理/U_ExpenseInput.pas | 25 +++++- A09财务通用管理/U_ExpenseList.pas | 89 +++++++++++++++---- A09财务通用管理/U_GetDllForm.pas | 4 +- A09财务通用管理/U_InvoiceSel.dfm | 25 +++--- A09财务通用管理/U_InvoiceSel.pas | 2 +- A09财务通用管理/U_PayList.dfm | 2 - A09财务通用管理/U_PayList.pas | 2 +- A09财务通用管理/U_ReceivableList.dfm | 28 +++--- A09财务通用管理/U_ReceivableList.pas | 2 +- A09财务通用管理/testDll.res | Bin 3308 -> 3308 bytes 14 files changed, 188 insertions(+), 115 deletions(-) diff --git a/A09财务通用管理/Financial.dproj b/A09财务通用管理/Financial.dproj index 70661b4..4740156 100644 --- a/A09财务通用管理/Financial.dproj +++ b/A09财务通用管理/Financial.dproj @@ -80,7 +80,7 @@ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A09财务通用管理\testDll.exe + D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\testDll.exe diff --git a/A09财务通用管理/Financial.dproj.local b/A09财务通用管理/Financial.dproj.local index b20887a..50dae36 100644 --- a/A09财务通用管理/Financial.dproj.local +++ b/A09财务通用管理/Financial.dproj.local @@ -1,64 +1,64 @@  - 1899-12-30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899-12-30 00:00:00.000.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.pas - 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.pas - 1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm - 1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj - 1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm - 1899-12-30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas - 1899-12-30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas - 1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas - 1899-12-30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899-12-30 00:00:00.000.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas - 1899-12-30 00:00:00.000.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.pas - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas - 1899-12-30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas - 1899-12-30 00:00:00.000.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.pas - 1899-12-30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.pas - 1899-12-30 00:00:00.000.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas - 2026-05-15 11:04:20.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas - 2026-05-15 11:04:20.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm + 1899/12/30 00:00:00.000.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas + 1899/12/30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas + 1899/12/30 00:00:00.000.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.pas + 1899/12/30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas + 1899/12/30 00:00:00.000.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas + 1899/12/30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899/12/30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas + 1899/12/30 00:00:00.000.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899/12/30 00:00:00.000.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.pas + 1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm + 1899/12/30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas + 1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas + 1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas + 1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas + 1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas + 1899/12/30 00:00:00.000.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.pas + 1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas + 1899/12/30 00:00:00.000.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas + 1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899/12/30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas @@ -77,7 +77,7 @@ - + diff --git a/A09财务通用管理/U_DataLink.dfm b/A09财务通用管理/U_DataLink.dfm index 4949260..ac2490a 100644 --- a/A09财务通用管理/U_DataLink.dfm +++ b/A09财务通用管理/U_DataLink.dfm @@ -8,6 +8,7 @@ inherited DataLink_Financial: TDataLink_Financial StyleDisabled.LookAndFeel.SkinName = '' StyleFocused.LookAndFeel.SkinName = '' StyleHot.LookAndFeel.SkinName = '' + StyleReadOnly.LookAndFeel.SkinName = '' PixelsPerInch = 96 end inherited cxImageList_bar: TcxImageList diff --git a/A09财务通用管理/U_DataLink.pas b/A09财务通用管理/U_DataLink.pas index 2f27d0e..d03ba17 100644 --- a/A09财务通用管理/U_DataLink.pas +++ b/A09财务通用管理/U_DataLink.pas @@ -7,7 +7,8 @@ uses Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, System.ImageList, U_BaseDataLink, cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm, dxSkinsCore, - dxSkinsDefaultPainters, dxCore, cxLocalization, dxLayoutLookAndFeels; + dxSkinsDefaultPainters, dxCore, cxLocalization, dxLayoutLookAndFeels, + dxSkinWXI; type TMyThread = class(TThread) diff --git a/A09财务通用管理/U_ExpenseInput.pas b/A09财务通用管理/U_ExpenseInput.pas index 4b16035..234e244 100644 --- a/A09财务通用管理/U_ExpenseInput.pas +++ b/A09财务通用管理/U_ExpenseInput.pas @@ -15,7 +15,7 @@ uses cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinsCore, dxSkinsDefaultPainters, dxCore, cxDateUtils, - dxScrollbarAnnotations, Vcl.Menus, Clipbrd; + dxScrollbarAnnotations, Vcl.Menus, Clipbrd, dxCoreGraphics, dxSkinWXI; type TfrmExpenseInput = class(TForm) @@ -113,6 +113,8 @@ uses {$R *.dfm} procedure TfrmExpenseInput.InitGrid(); +var + nAmount: Double; begin try @@ -128,7 +130,11 @@ begin if not ADOQueryMain.IsEmpty then begin SCSHData(ADOQueryMain, ScrollBox1, 2); - + if ADOQueryMain.FieldByName('Amount').AsString <> '' then + begin + nAmount := ADOQueryMain.FieldByName('Amount').AsFloat; + Amount.Text := FormatFloat('#,##0', nAmount); + end; end else begin @@ -416,6 +422,9 @@ begin end; procedure TfrmExpenseInput.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +var + CurrentAmount: Double; + TaxAmount: Double; begin try frmInvoiceSel := TfrmInvoiceSel.Create(Application); @@ -434,17 +443,21 @@ begin with frmInvoiceSel.CDS_Invoice do begin + CurrentAmount := StrToFloatDef(StringReplace(Self.Amount.Text, ',', '', [rfReplaceAll]), 0); + TaxAmount := FieldByName('TaxAmount').AsFloat; if Self.IVNo.Text = '' then begin Self.IVNo.Text := frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').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 else begin 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.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; Self.OppCoName.Text := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString; @@ -506,6 +519,7 @@ end; function TfrmExpenseInput.SaveData(): Boolean; var MaxId, MaxSubId, FCoCode, FCCID: string; + CleanAmount: string; begin try ADOQueryCmd.Connection.BeginTrans; @@ -520,6 +534,7 @@ begin end; FFID.Text := MaxId; + CleanAmount := StringReplace(Amount.Text, ',', '', [rfReplaceAll]); with ADOQueryCmd do begin @@ -557,6 +572,8 @@ begin // FieldByName('FFID').Value := Trim(MaxId); FieldByName('OppCoNo').Value := trim(OppCoName.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); Post; diff --git a/A09财务通用管理/U_ExpenseList.pas b/A09财务通用管理/U_ExpenseList.pas index b554528..ee62104 100644 --- a/A09财务通用管理/U_ExpenseList.pas +++ b/A09财务通用管理/U_ExpenseList.pas @@ -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 TfrmExpenseList = class(TfrmBaseList) @@ -152,6 +152,7 @@ begin if Trim(FAuthority) = '' then begin btnAdd.Enabled := true; + TbFP.Enabled := true; cxTabControl1.Tabs[2].Visible := False; cxTabControl1.Tabs[3].Visible := False; // cxTabControl1.Tabs[0].caption := 'aa'; @@ -161,7 +162,7 @@ begin btnEdit.Enabled := true; btnDel.Enabled := true; btnChk.Enabled := true; - TbFP.Enabled := true; +// TbFP.Enabled := true; end; 1: begin @@ -183,6 +184,7 @@ begin if Trim(FAuthority) = '2' then begin btnAdd.Enabled := true; + TbFP.Enabled := true; cxTabControl1.Tabs[0].Visible := False; cxTabControl1.Tabs[3].Visible := False; case cxTabControl1.TabIndex of @@ -191,7 +193,7 @@ begin btnEdit.Enabled := true; btnDel.Enabled := true; // btnChk.Enabled := true; - TbFP.Enabled := true; +// TbFP.Enabled := true; end; 1: begin @@ -216,13 +218,14 @@ begin cxTabControl1.Tabs[1].Visible := False; cxTabControl1.Tabs[2].caption := 'δ'; btnAdd.Enabled := true; + TbFP.Enabled := true; case cxTabControl1.TabIndex of 0: begin btnEdit.Enabled := true; btnDel.Enabled := true; - TbFP.Enabled := true; +// TbFP.Enabled := true; // btnChk.Enabled := true; end; 1: @@ -377,12 +380,12 @@ begin self.ADOQueryCmd.Edit; self.ADOQueryCmd.FieldByName('IVNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('IVNo').AsString; self.ADOQueryCmd.FieldByName('IVID').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('IVID').AsString; - self.ADOQueryCmd.FieldByName('OppCoName').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString; - self.ADOQueryCmd.FieldByName('OppCoNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString; - self.ADOQueryCmd.FieldByName('oppShuiNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('SupplierShuiNo').AsString; - self.ADOQueryCmd.FieldByName('Amount').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Amount').AsString; - self.ADOQueryCmd.FieldByName('OppBankName').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('BankName').AsString; - self.ADOQueryCmd.FieldByName('OppBankCardNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('BankNo').AsString; +// self.ADOQueryCmd.FieldByName('OppCoName').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString; +// self.ADOQueryCmd.FieldByName('OppCoNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Supplier').AsString; +// self.ADOQueryCmd.FieldByName('oppShuiNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('SupplierShuiNo').AsString; +// self.ADOQueryCmd.FieldByName('Amount').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('Amount').AsString; +// self.ADOQueryCmd.FieldByName('OppBankName').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('BankName').AsString; +// self.ADOQueryCmd.FieldByName('OppBankCardNo').AsString := frmInvoiceSel.CDS_Invoice.FieldByName('BankNo').AsString; self.ADOQueryCmd.Post; end; @@ -403,6 +406,10 @@ var btnOK, btnCancel: TButton; lblDate, lblBankSlip: TLabel; BankSlipCode: string; + + cxOurBankName, cxOurBankCardNo: TcxTextEdit; + lblOurBankName, lblOurBankCardNo: TLabel; + OurBankName, OurBankCardNo: string; begin if CDS_1.IsEmpty then exit; @@ -413,12 +420,30 @@ begin Exit; 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); try DateForm.Caption := 'Ϣ'; DateForm.Width := 350; - DateForm.Height := 200; + DateForm.Height := 260; DateForm.Position := poScreenCenter; DateForm.BorderStyle := bsDialog; DateForm.BorderIcons := [biSystemMenu]; @@ -443,18 +468,46 @@ begin cxDateEdit.Top := 18; 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.Parent := DateForm; lblBankSlip.Caption := 'ˮ:'; lblBankSlip.Left := 20; - lblBankSlip.Top := 63; + lblBankSlip.Top := 143; // cxTextEdit ˮ cxTextEdit := TcxTextEdit.Create(DateForm); cxTextEdit.Parent := DateForm; cxTextEdit.Left := 120; - cxTextEdit.Top := 58; + cxTextEdit.Top := 138; cxTextEdit.Width := 200; cxTextEdit.Text := ''; @@ -464,7 +517,7 @@ begin btnOK.Caption := 'ȷ'; btnOK.ModalResult := mrOK; btnOK.Left := 80; - btnOK.Top := 110; + btnOK.Top := 180; btnOK.Width := 80; btnOK.Default := True; @@ -474,7 +527,7 @@ begin btnCancel.Caption := 'ȡ'; btnCancel.ModalResult := mrCancel; btnCancel.Left := 180; - btnCancel.Top := 110; + btnCancel.Top := 180; btnCancel.Width := 80; btnCancel.Cancel := True; @@ -485,6 +538,9 @@ begin SelectedDate := Trunc(cxDateEdit.Date); // ȡڲ BankSlipCode := Trim(cxTextEdit.Text); + OurBankName := Trim(cxOurBankName.Text); + OurBankCardNo := Trim(cxOurBankCardNo.Text); + // ֤ if BankSlipCode = '' then begin @@ -541,6 +597,9 @@ begin sql.Add(',@PayTime=' + QuotedStr(FormatDateTime('yyyy-mm-dd', SelectedDate))); // ˮ - Ҫ޸Ĵ洢 sql.Add(',@BankSlipNumber=' + QuotedStr(BankSlipCode)); + + sql.Add(',@OurBankName=' + QuotedStr(OurBankName)); + sql.Add(',@OurBankCardNo=' + QuotedStr(OurBankCardNo)); Sql.Add(',@DCode=' + quotedstr(Trim(DCode))); Sql.Add(',@DName=' + quotedstr(Trim(DName))); open; diff --git a/A09财务通用管理/U_GetDllForm.pas b/A09财务通用管理/U_GetDllForm.pas index b33bed1..a8c7299 100644 --- a/A09财务通用管理/U_GetDllForm.pas +++ b/A09财务通用管理/U_GetDllForm.pas @@ -78,8 +78,8 @@ begin pswd := 'rightsoft,.KXY@YN'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; Parameters1:=''; -// Parameters1 := '2'; - Parameters1 := ''; + Parameters1 := '2'; +// Parameters1 := ''; end else begin diff --git a/A09财务通用管理/U_InvoiceSel.dfm b/A09财务通用管理/U_InvoiceSel.dfm index 62ade22..fb0216b 100644 --- a/A09财务通用管理/U_InvoiceSel.dfm +++ b/A09财务通用管理/U_InvoiceSel.dfm @@ -249,8 +249,9 @@ object frmInvoiceSel: TfrmInvoiceSel Caption = #21333#20215 DataBinding.FieldName = 'Price' DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '#,##0' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 93 @@ -259,8 +260,9 @@ object frmInvoiceSel: TfrmInvoiceSel Caption = #24635#37329#39069#26410#21547#31246 DataBinding.FieldName = 'Amount' DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = Tv1AmountPropertiesEditValueChanged + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '#,##0' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 111 @@ -269,13 +271,9 @@ object frmInvoiceSel: TfrmInvoiceSel Caption = #31246#37329 DataBinding.FieldName = 'TaxFee' DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - Properties.OnEditValueChanged = Tv1AmountPropertiesEditValueChanged + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '#,##0' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 65 @@ -284,8 +282,9 @@ object frmInvoiceSel: TfrmInvoiceSel Caption = #24635#37329#39069#24050#21547#31246 DataBinding.FieldName = 'TaxAmount' DataBinding.IsNullValueType = True - PropertiesClassName = 'TcxTextEditProperties' - Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DecimalPlaces = 0 + Properties.DisplayFormat = '#,##0' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 114 diff --git a/A09财务通用管理/U_InvoiceSel.pas b/A09财务通用管理/U_InvoiceSel.pas index 332d1fa..818f2f4 100644 --- a/A09财务通用管理/U_InvoiceSel.pas +++ b/A09财务通用管理/U_InvoiceSel.pas @@ -12,7 +12,7 @@ uses cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar, dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxPC, cxContainer, dxCore, cxDateUtils, cxCheckBox, - cxMaskEdit; + cxMaskEdit, dxSkinWXI, cxCurrencyEdit; type TfrmInvoiceSel = class(TForm) diff --git a/A09财务通用管理/U_PayList.dfm b/A09财务通用管理/U_PayList.dfm index 9d1ecb9..d445722 100644 --- a/A09财务通用管理/U_PayList.dfm +++ b/A09财务通用管理/U_PayList.dfm @@ -160,7 +160,6 @@ inherited frmPayList: TfrmPayList Color = clWhite ParentBackground = False TabOrder = 5 - ExplicitTop = 24 object Label3: TLabel Left = 252 Top = 8 @@ -534,7 +533,6 @@ inherited frmPayList: TfrmPayList #20840#37096) LookAndFeel.Kind = lfUltraFlat OnChange = cxTabControl1Change - ExplicitTop = 95 ClientRectRight = 0 ClientRectTop = 0 end diff --git a/A09财务通用管理/U_PayList.pas b/A09财务通用管理/U_PayList.pas index 5860ed4..825d158 100644 --- a/A09财务通用管理/U_PayList.pas +++ b/A09财务通用管理/U_PayList.pas @@ -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 TfrmPayList = class(TfrmBaseList) diff --git a/A09财务通用管理/U_ReceivableList.dfm b/A09财务通用管理/U_ReceivableList.dfm index 45080f8..cd2de54 100644 --- a/A09财务通用管理/U_ReceivableList.dfm +++ b/A09财务通用管理/U_ReceivableList.dfm @@ -19,7 +19,7 @@ inherited frmReceivableList: TfrmReceivableList Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 83 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_Financial.cxImageList_bar @@ -37,7 +37,7 @@ inherited frmReceivableList: TfrmReceivableList OnClick = TBRafreshClick end object btnAdd: TToolButton - Left = 63 + Left = 71 Top = 0 AutoSize = True Caption = #26032#22686 @@ -45,7 +45,7 @@ inherited frmReceivableList: TfrmReceivableList OnClick = btnAddClick end object ToolButton6: TToolButton - Left = 126 + Left = 142 Top = 0 AutoSize = True Caption = #25209#37327#26032#22686 @@ -53,7 +53,7 @@ inherited frmReceivableList: TfrmReceivableList OnClick = ToolButton6Click end object btnEdit: TToolButton - Left = 213 + Left = 245 Top = 0 AutoSize = True Caption = #20462#25913 @@ -61,7 +61,7 @@ inherited frmReceivableList: TfrmReceivableList OnClick = btnEditClick end object ToolButton1: TToolButton - Left = 276 + Left = 316 Top = 0 AutoSize = True Caption = #21333#20215#20462#25913 @@ -69,7 +69,7 @@ inherited frmReceivableList: TfrmReceivableList OnClick = ToolButton1Click end object btnDel: TToolButton - Left = 363 + Left = 419 Top = 0 AutoSize = True Caption = #21024#38500 @@ -77,7 +77,7 @@ inherited frmReceivableList: TfrmReceivableList OnClick = btnDelClick end object btnChk: TToolButton - Left = 426 + Left = 490 Top = 0 AutoSize = True Caption = #23457#26680 @@ -85,7 +85,7 @@ inherited frmReceivableList: TfrmReceivableList OnClick = btnChkClick end object btnReChk: TToolButton - Left = 489 + Left = 561 Top = 0 AutoSize = True Caption = #25764#38144#23457#26680 @@ -93,7 +93,7 @@ inherited frmReceivableList: TfrmReceivableList OnClick = btnReChkClick end object ToolButton2: TToolButton - Left = 576 + Left = 664 Top = 0 AutoSize = True Caption = #23548#20837 @@ -101,7 +101,7 @@ inherited frmReceivableList: TfrmReceivableList OnClick = ToolButton2Click end object ToolButton4: TToolButton - Left = 639 + Left = 735 Top = 0 AutoSize = True Caption = #23548#20986 @@ -109,7 +109,7 @@ inherited frmReceivableList: TfrmReceivableList OnClick = ToolButton4Click end object ToolButton3: TToolButton - Left = 702 + Left = 806 Top = 0 AutoSize = True Caption = #38468#20214 @@ -117,7 +117,7 @@ inherited frmReceivableList: TfrmReceivableList OnClick = ToolButton3Click end object ToolButton5: TToolButton - Left = 765 + Left = 877 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -125,7 +125,7 @@ inherited frmReceivableList: TfrmReceivableList OnClick = ToolButton5Click end object TBClose: TToolButton - Left = 852 + Left = 980 Top = 0 AutoSize = True Caption = #20851#38381 @@ -299,8 +299,6 @@ inherited frmReceivableList: TfrmReceivableList Align = alClient PopupMenu = PopupMenu1 TabOrder = 5 - ExplicitLeft = -107 - ExplicitTop = 147 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False diff --git a/A09财务通用管理/U_ReceivableList.pas b/A09财务通用管理/U_ReceivableList.pas index 7ffee63..1edae39 100644 --- a/A09财务通用管理/U_ReceivableList.pas +++ b/A09财务通用管理/U_ReceivableList.pas @@ -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 TfrmReceivableList = class(TfrmBaseList) diff --git a/A09财务通用管理/testDll.res b/A09财务通用管理/testDll.res index 2465ca0e30696a8467f3b1371b2f343eab2cd121..e116c482ff64a90aae29d14ae002699b9b83f166 100644 GIT binary patch delta 12 TcmaDO`9^ZX3mz6m1_lNIB7g(5 delta 12 TcmaDO`9^ZX3m%rnDGUq%COibl