From 9766d2a628ea08deaf2c22f7ae7331535da4f2e6 Mon Sep 17 00:00:00 2001 From: funa <1559646174@qq.com> Date: Fri, 29 May 2026 17:34:34 +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.local | 82 ++++----- A09财务通用管理/Financial.identcache | Bin 3569 -> 3569 bytes A09财务通用管理/U_CollectList.dfm | 36 ++-- A09财务通用管理/U_CollectList.pas | 135 +++++++++++++- A09财务通用管理/U_GETableBatchInput.dfm | 5 + A09财务通用管理/U_GETableBatchInput.pas | 12 +- A09财务通用管理/U_GetDllForm.pas | 2 +- A09财务通用管理/U_GetableSel.dfm | 211 ++++++++++------------ A09财务通用管理/U_GetableSel.pas | 27 ++- A09财务通用管理/U_InvoiceOutInPut.dfm | 14 ++ A09财务通用管理/U_InvoiceOutInPut.pas | 30 ++- A09财务通用管理/U_InvoiceOutList.dfm | 11 ++ A09财务通用管理/U_InvoiceOutList.pas | 1 + A09财务通用管理/U_ReceivableList.dfm | 45 ++++- A09财务通用管理/U_ReceivableList.pas | 4 + A09财务通用管理/U_SingleCustStatement.dfm | 27 ++- A09财务通用管理/U_SingleCustStatement.pas | 2 +- A09财务通用管理/U_SingleFtyStatement.dfm | 2 - A09财务通用管理/U_SingleFtyStatement.pas | 3 +- A09财务通用管理/testDll.identcache | Bin 170 -> 170 bytes 20 files changed, 454 insertions(+), 195 deletions(-) diff --git a/A09财务通用管理/Financial.dproj.local b/A09财务通用管理/Financial.dproj.local index a53d8f6..8cf80eb 100644 --- a/A09财务通用管理/Financial.dproj.local +++ b/A09财务通用管理/Financial.dproj.local @@ -1,70 +1,70 @@  - 1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.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.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas + 1899/12/30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.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.630,=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.734,=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.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.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.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.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.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.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas - 1899/12/30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.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.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm - 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.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas + 1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899/12/30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas - 1899/12/30 00:00:00.000.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.pas + 1899/12/30 00:00:00.000.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm + 1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas 1899/12/30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.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.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas 2026/05/22 14:41:58.000.210,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.pas - 2026/05/22 14:42:09.000.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.pas - 2026/05/22 14:42:09.000.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.dfm + 2026/05/22 14:42:09.000.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.dfm + 2026/05/22 14:42:09.000.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.pas 2026/05/22 15:10:32.000.542,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.pas - 2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.pas - 2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.dfm + 2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.pas + 2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.dfm diff --git a/A09财务通用管理/Financial.identcache b/A09财务通用管理/Financial.identcache index cef47ab2169e5316b02ea6dbc2b5e4bb37e4ca26..cc2bb96fde76e9b67dfcc865e0fa4bcb73c618fd 100644 GIT binary patch delta 54 zcmV-60LlOH8}S>kp#qcd0zs2n2|bg*2MV*$16Tr+4+~MVCkp#qcl3r>@v0zs3x3R#l`2|bbs2eT#vTLQDv1?L2lJ_9$CxCI)M ThX*N>I}5y%W&$3wV+@V~*6|g; diff --git a/A09财务通用管理/U_CollectList.dfm b/A09财务通用管理/U_CollectList.dfm index 0ee1fee..bceac4d 100644 --- a/A09财务通用管理/U_CollectList.dfm +++ b/A09财务通用管理/U_CollectList.dfm @@ -19,7 +19,7 @@ inherited frmCollectList: TfrmCollectList Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 99 + ButtonWidth = 83 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_Financial.cxImageList_bar @@ -37,7 +37,7 @@ inherited frmCollectList: TfrmCollectList OnClick = TBRafreshClick end object btnAdd: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #26032#22686 @@ -45,7 +45,7 @@ inherited frmCollectList: TfrmCollectList OnClick = btnAddClick end object btnEdit: TToolButton - Left = 142 + Left = 126 Top = 0 AutoSize = True Caption = #20462#25913 @@ -53,7 +53,7 @@ inherited frmCollectList: TfrmCollectList OnClick = btnEditClick end object btnDel: TToolButton - Left = 213 + Left = 189 Top = 0 AutoSize = True Caption = #21024#38500 @@ -61,7 +61,7 @@ inherited frmCollectList: TfrmCollectList OnClick = btnDelClick end object btnChk: TToolButton - Left = 284 + Left = 252 Top = 0 AutoSize = True Caption = #23457#26680 @@ -69,7 +69,7 @@ inherited frmCollectList: TfrmCollectList OnClick = btnChkClick end object btnReChk: TToolButton - Left = 355 + Left = 315 Top = 0 AutoSize = True Caption = #25764#38144#23457#26680 @@ -77,23 +77,33 @@ inherited frmCollectList: TfrmCollectList OnClick = btnReChkClick end object ToolButton7: TToolButton - Left = 458 + Left = 402 Top = 0 AutoSize = True Caption = #26680#38144 ImageIndex = 3 + Visible = False OnClick = ToolButton7Click end object ToolButton8: TToolButton - Left = 529 + Left = 465 Top = 0 AutoSize = True Caption = #26680#38144#26085#24535 ImageIndex = 4 + Visible = False OnClick = ToolButton8Click end + object TBInvoice: TToolButton + Left = 552 + Top = 0 + AutoSize = True + Caption = #20851#32852#21457#31080 + ImageIndex = 3 + OnClick = TBInvoiceClick + end object ToolButton1: TToolButton - Left = 632 + Left = 639 Top = 0 AutoSize = True Caption = #23548#20837 @@ -101,7 +111,7 @@ inherited frmCollectList: TfrmCollectList OnClick = ToolButton1Click end object ToolButton4: TToolButton - Left = 703 + Left = 702 Top = 0 AutoSize = True Caption = #23548#20986 @@ -109,7 +119,7 @@ inherited frmCollectList: TfrmCollectList OnClick = ToolButton4Click end object ToolButton9: TToolButton - Left = 774 + Left = 765 Top = 0 AutoSize = True Caption = #38468#20214 @@ -117,7 +127,7 @@ inherited frmCollectList: TfrmCollectList OnClick = ToolButton9Click end object ToolButton5: TToolButton - Left = 845 + Left = 828 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -125,7 +135,7 @@ inherited frmCollectList: TfrmCollectList OnClick = ToolButton5Click end object TBClose: TToolButton - Left = 948 + Left = 915 Top = 0 AutoSize = True Caption = #20851#38381 diff --git a/A09财务通用管理/U_CollectList.pas b/A09财务通用管理/U_CollectList.pas index 9772853..9e5d9dd 100644 --- a/A09财务通用管理/U_CollectList.pas +++ b/A09财务通用管理/U_CollectList.pas @@ -84,6 +84,7 @@ type begdate: TcxDateEdit; Enddate: TcxDateEdit; CheckBox1: TcxCheckBox; + TBInvoice: TToolButton; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure btnDelClick(Sender: TObject); @@ -105,6 +106,7 @@ type procedure ToolButton9Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject); + procedure TBInvoiceClick(Sender: TObject); private procedure InitGrid(); procedure SetStatus(); @@ -116,7 +118,7 @@ implementation uses U_DataLink, U_RTFun, U_CollectInput2, U_CollectInput, U_ZDYHelp, U_CollectWriteOff, - U_CollectWriteOffList, U_AttachmentUpload, U_CollectImport; + U_CollectWriteOffList, U_AttachmentUpload, U_CollectImport,U_InvoiceOutSel; {$R *.dfm} procedure TfrmCollectList.SetStatus(); @@ -128,6 +130,7 @@ begin btnAdd.Enabled := false; // btnEdit.Enabled := false; //޸ btnDel.Enabled := false; //ɾ + TBInvoice.Enabled := false; // if Trim(FAuthority) = '' then begin @@ -138,6 +141,7 @@ begin btnEdit.Enabled := true; btnDel.Enabled := true; btnChk.Enabled := true; + TBInvoice.Enabled := true; end; 1: begin @@ -226,6 +230,135 @@ begin Close; end; +procedure TfrmCollectList.TBInvoiceClick(Sender: TObject); +var + FFFIDList: TStringList; + IVID, IVNo: string; + i: Integer; + LogMsg: string; +begin + inherited; + + if CDS_1.IsEmpty then Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ȹѡҪƱտ¼', 'ʾ', MB_OK + MB_ICONINFORMATION); + Exit; + end; + + try + frmInvoiceOutSel := TfrmInvoiceOutSel.Create(Application); + frmInvoiceOutSel.cxTabControl1.TabIndex := 0; + if frmInvoiceOutSel.ShowModal <> mrOk then + Exit; + if frmInvoiceOutSel.CDS_Invoice.IsEmpty then + begin + Application.MessageBox('δѡκηƱ', 'ʾ', MB_OK + MB_ICONWARNING); + Exit; + end; + IVID := frmInvoiceOutSel.CDS_Invoice.FieldByName('IVID').AsString; + IVNo := frmInvoiceOutSel.CDS_Invoice.FieldByName('IVNo').AsString; + if Trim(IVID) = '' then + begin + Application.MessageBox('Ʊ쳣IVID Ϊգ', 'ʾ', MB_OK + MB_ICONERROR); + Exit; + end; + finally + frmInvoiceOutSel.Free; + end; + + FFFIDList := TStringList.Create; + try + CDS_1.DisableControls; + CDS_1.First; + while not CDS_1.Eof do + begin + if CDS_1.FieldByName('SSel').AsBoolean then + FFFIDList.Add(CDS_1.FieldByName('FFID').AsString); + CDS_1.Next; + end; + + if FFFIDList.Count = 0 then + begin + Application.MessageBox('ûйѡκտ¼', 'ʾ', MB_OK + MB_ICONINFORMATION); + Exit; + end; + + ADOQueryCmd.Connection.BeginTrans; + try + for i := 0 to FFFIDList.Count - 1 do + begin + ADOQueryCmd.Close; + ADOQueryCmd.SQL.Text := 'UPDATE Finance_Flow SET IVID = :IVID, IVNo = :IVNo WHERE FFID = :FFID'; + ADOQueryCmd.Parameters.ParamByName('IVID').Value := IVID; + ADOQueryCmd.Parameters.ParamByName('IVNo').Value := IVNo; + ADOQueryCmd.Parameters.ParamByName('FFID').Value := FFFIDList[i]; + ADOQueryCmd.ExecSQL; + end; + + CDS_1.First; + while not CDS_1.Eof do + begin + if CDS_1.FieldByName('SSel').AsBoolean then + begin + CDS_1.Edit; + CDS_1.FieldByName('IVID').Value := IVID; + CDS_1.FieldByName('IVNo').Value := IVNo; + CDS_1.Post; + end; + CDS_1.Next; + end; + + ADOQueryCmd.Connection.CommitTrans; + + LogMsg := Format( + 'ƱɹƱţ%sIVID%sӰ¼%dFFIDs%s', + [IVNo, IVID, FFFIDList.Count, FFFIDList.CommaText] + ); + ADOQueryCmd.Close; + ADOQueryCmd.SQL.Text := + 'INSERT INTO SY_Syslog (Operor, OperTime, Model, Acction, OPEvent, Result) ' + + 'VALUES (:Operor, GETDATE(), :Model, :Acction, :OPEvent, :Result)'; + ADOQueryCmd.Parameters.ParamByName('Operor').Value := DName + '(' + DCode + ')'; + ADOQueryCmd.Parameters.ParamByName('Model').Value := 'տǼ'; + ADOQueryCmd.Parameters.ParamByName('Acction').Value := 'Ʊ'; + ADOQueryCmd.Parameters.ParamByName('OPEvent').Value := LogMsg; + ADOQueryCmd.Parameters.ParamByName('Result').Value := 'ɹ'; + ADOQueryCmd.ExecSQL; + + Application.MessageBox('Ʊɹ', 'ʾ', MB_OK + MB_ICONINFORMATION); + InitGrid; + except + on E: Exception do + begin + ADOQueryCmd.Connection.RollbackTrans; + LogMsg := Format( + 'ƱʧܣƱţ%sIVID%sӰ¼%dFFIDs%sԭ%s', + [IVNo, IVID, FFFIDList.Count, FFFIDList.CommaText, E.Message] + ); + try + ADOQueryCmd.Close; + ADOQueryCmd.SQL.Text := + 'INSERT INTO SY_Syslog (Operor, OperTime, Model, Acction, OPEvent, Result) ' + + 'VALUES (:Operor, GETDATE(), :Model, :Acction, :OPEvent, :Result)'; + ADOQueryCmd.Parameters.ParamByName('Operor').Value := DName + '(' + DCode + ')'; + ADOQueryCmd.Parameters.ParamByName('Model').Value := 'տǼ'; + ADOQueryCmd.Parameters.ParamByName('Acction').Value := 'Ʊ'; + ADOQueryCmd.Parameters.ParamByName('OPEvent').Value := LogMsg; + ADOQueryCmd.Parameters.ParamByName('Result').Value := 'ʧ'; + ADOQueryCmd.ExecSQL; + except + end; + Application.MessageBox(PChar('Ʊʧܣ' + E.Message), '', MB_OK + MB_ICONERROR); + InitGrid; + end; + end; + finally + FFFIDList.Free; + CDS_1.EnableControls; + end; +end; + procedure TfrmCollectList.btnDelClick(Sender: TObject); var FFFIDS: string; diff --git a/A09财务通用管理/U_GETableBatchInput.dfm b/A09财务通用管理/U_GETableBatchInput.dfm index 291693e..8dbb4a9 100644 --- a/A09财务通用管理/U_GETableBatchInput.dfm +++ b/A09财务通用管理/U_GETableBatchInput.dfm @@ -132,6 +132,11 @@ inherited frmGetableBatchInput: TfrmGetableBatchInput Format = '#,###.##' Kind = skSum Column = Tv1Tax + end + item + Format = '#,###.##' + Kind = skSum + Column = Tv1Column2 end> DataController.Summary.SummaryGroups = <> OptionsBehavior.GoToNextCellOnEnter = True diff --git a/A09财务通用管理/U_GETableBatchInput.pas b/A09财务通用管理/U_GETableBatchInput.pas index 2edfe49..1263522 100644 --- a/A09财务通用管理/U_GETableBatchInput.pas +++ b/A09财务通用管理/U_GETableBatchInput.pas @@ -724,9 +724,15 @@ begin self.CDS_1.FieldByName('BuyConMID').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('FROMCPMID').AsString); self.CDS_1.FieldByName('BuyConSID').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('FROMCPSID').AsString); -// self.CDS_1.FieldByName('F_Code').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Code').AsString); -// self.CDS_1.FieldByName('F_Name').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Name').AsString); -// self.CDS_1.FieldByName('F_Color').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Color').AsString); + self.CDS_1.FieldByName('F_Code').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Code').AsString); + self.CDS_1.FieldByName('F_Name').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Name').AsString); + self.CDS_1.FieldByName('F_Spec').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Spec').AsString); + self.CDS_1.FieldByName('F_Pattern').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Pattern').AsString); + self.CDS_1.FieldByName('F_Composition').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Composition').AsString); + self.CDS_1.FieldByName('F_Color').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Color').AsString); + self.CDS_1.FieldByName('F_Colorno').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Colorno').AsString); + self.CDS_1.FieldByName('F_Width').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Width').AsString); + self.CDS_1.FieldByName('F_GramWeight').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_GramWeight').AsString); // self.CDS_1.FieldByName('Piece').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString); // self.CDS_1.FieldByName('Qty').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Qty').AsString); // self.CDS_1.FieldByName('QtyUnit').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('QtyUnit').AsString); diff --git a/A09财务通用管理/U_GetDllForm.pas b/A09财务通用管理/U_GetDllForm.pas index a8c7299..07f3934 100644 --- a/A09财务通用管理/U_GetDllForm.pas +++ b/A09财务通用管理/U_GetDllForm.pas @@ -78,7 +78,7 @@ begin pswd := 'rightsoft,.KXY@YN'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; Parameters1:=''; - Parameters1 := '2'; +// Parameters1 := '2'; // Parameters1 := ''; end else diff --git a/A09财务通用管理/U_GetableSel.dfm b/A09财务通用管理/U_GetableSel.dfm index 4b099e6..faccd1a 100644 --- a/A09财务通用管理/U_GetableSel.dfm +++ b/A09财务通用管理/U_GetableSel.dfm @@ -115,7 +115,6 @@ inherited frmGetableSel: TfrmGetableSel #20840#37096) LookAndFeel.Kind = lfUltraFlat OnChange = cxTabControl1Change - ExplicitTop = 36 ClientRectRight = 0 ClientRectTop = 0 end @@ -126,10 +125,6 @@ inherited frmGetableSel: TfrmGetableSel Height = 513 Align = alClient TabOrder = 2 - ExplicitLeft = -134 - ExplicitTop = 112 - ExplicitWidth = 1540 - ExplicitHeight = 460 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -142,7 +137,7 @@ inherited frmGetableSel: TfrmGetableSel DataController.Summary.FooterSummaryItems = < item Kind = skSum - Column = Tv1Column12 + Column = Tv1Qty end item Kind = skSum @@ -158,7 +153,7 @@ inherited frmGetableSel: TfrmGetableSel end item Kind = skSum - Column = Tv1Column11 + Column = Tv1Piece end item Kind = skSum @@ -182,7 +177,7 @@ inherited frmGetableSel: TfrmGetableSel end object v2CRTime: TcxGridDBColumn Tag = 7 - Caption = #21457#29983#26085#26399 + Caption = #30331#35760#26085#26399 DataBinding.FieldName = 'FFTime' DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' @@ -192,15 +187,7 @@ inherited frmGetableSel: TfrmGetableSel Options.Editing = False Width = 82 end - object Tv1Column23: TcxGridDBColumn - Caption = #23545#36134#26085#26399 - DataBinding.FieldName = 'ReconciliationDate' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 112 - end - object v2Column2: TcxGridDBColumn + object v2OurCoName: TcxGridDBColumn Caption = #25105#26041#21333#20301 DataBinding.FieldName = 'OurCoName' DataBinding.IsNullValueType = True @@ -208,6 +195,101 @@ inherited frmGetableSel: TfrmGetableSel Options.Editing = False Width = 100 end + object Tv1FFAbstract: TcxGridDBColumn + Caption = #25688#35201 + DataBinding.FieldName = 'FFAbstract' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 79 + end + object Tv1BuyConNo: TcxGridDBColumn + Caption = #38754#26009#21512#21516#21495 + DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 117 + end + object Tv1ConNo: TcxGridDBColumn + Caption = #22383#24067#21512#21516#21495 + DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 98 + end + object Tv1OrderNo: TcxGridDBColumn + Caption = #32455#36896#21333#21495 + DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 82 + end + object Tv1F_Code: TcxGridDBColumn + Caption = #32534#21495 + DataBinding.FieldName = 'F_Code' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1F_Name: TcxGridDBColumn + Caption = #21697#21517 + DataBinding.FieldName = 'F_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1F_Width: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'F_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1F_GramWeight: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'F_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1F_Color: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'F_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1F_ColorNo: TcxGridDBColumn + Caption = #33394#21495 + DataBinding.FieldName = 'F_ColorNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Piece: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Qty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end object v2FactoryName: TcxGridDBColumn Caption = #23545#26041#21333#20301 DataBinding.FieldName = 'OppCoName' @@ -233,53 +315,6 @@ inherited frmGetableSel: TfrmGetableSel Options.Editing = False Width = 91 end - object Tv1Column19: TcxGridDBColumn - Caption = #21512#21516#21495 - DataBinding.FieldName = 'ConNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 77 - end - object Tv1Column24: TcxGridDBColumn - Caption = #25688#35201 - DataBinding.FieldName = 'FFAbstract' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 79 - end - object Tv1Column20: TcxGridDBColumn - Caption = #35745#21010#21333#21495 - DataBinding.FieldName = 'OrderNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 82 - end - object Tv1Column21: TcxGridDBColumn - Caption = #23458#25143#21333#21495 - DataBinding.FieldName = 'BuyConNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Width = 80 - end - object Tv1Column4: TcxGridDBColumn - Caption = #32534#21495 - DataBinding.FieldName = 'F_Code' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column5: TcxGridDBColumn - Caption = #21697#21517 - DataBinding.FieldName = 'F_Name' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end object Tv1Column6: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'F_Pattern' @@ -288,14 +323,6 @@ inherited frmGetableSel: TfrmGetableSel Options.Editing = False Width = 66 end - object Tv1Column7: TcxGridDBColumn - Caption = #39068#33394 - DataBinding.FieldName = 'F_Color' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end object Tv1Column28: TcxGridDBColumn Caption = #27454#21495 DataBinding.FieldName = 'F_StyleNo' @@ -304,30 +331,6 @@ inherited frmGetableSel: TfrmGetableSel Options.Editing = False Width = 72 end - object Tv1Column8: TcxGridDBColumn - Caption = #38376#24133 - DataBinding.FieldName = 'F_Width' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column9: TcxGridDBColumn - Caption = #20811#37325 - DataBinding.FieldName = 'F_GramWeight' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column10: TcxGridDBColumn - Caption = #33394#21495 - DataBinding.FieldName = 'F_ColorNo' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end object Tv1Column27: TcxGridDBColumn Caption = #38468#20214 DataBinding.FieldName = 'FJFlag' @@ -336,22 +339,6 @@ inherited frmGetableSel: TfrmGetableSel Options.Editing = False Width = 48 end - object Tv1Column11: TcxGridDBColumn - Caption = #21305#25968 - DataBinding.FieldName = 'Piece' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end - object Tv1Column12: TcxGridDBColumn - Caption = #25968#37327 - DataBinding.FieldName = 'Qty' - DataBinding.IsNullValueType = True - HeaderAlignmentHorz = taCenter - Options.Editing = False - Width = 66 - end object Tv1Column13: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' diff --git a/A09财务通用管理/U_GetableSel.pas b/A09财务通用管理/U_GetableSel.pas index b62df18..555e99c 100644 --- a/A09财务通用管理/U_GetableSel.pas +++ b/A09财务通用管理/U_GetableSel.pas @@ -41,26 +41,25 @@ type Tv1: TcxGridDBTableView; Tv1Column22: TcxGridDBColumn; v2CRTime: TcxGridDBColumn; - Tv1Column23: TcxGridDBColumn; - v2Column2: TcxGridDBColumn; + v2OurCoName: TcxGridDBColumn; v2FactoryName: TcxGridDBColumn; v2OrderNo: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn; - Tv1Column19: TcxGridDBColumn; - Tv1Column24: TcxGridDBColumn; - Tv1Column20: TcxGridDBColumn; - Tv1Column21: TcxGridDBColumn; - Tv1Column4: TcxGridDBColumn; - Tv1Column5: TcxGridDBColumn; + Tv1ConNo: TcxGridDBColumn; + Tv1FFAbstract: TcxGridDBColumn; + Tv1OrderNo: TcxGridDBColumn; + Tv1BuyConNo: TcxGridDBColumn; + Tv1F_Code: TcxGridDBColumn; + Tv1F_Name: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; - Tv1Column7: TcxGridDBColumn; + Tv1F_Color: TcxGridDBColumn; Tv1Column28: TcxGridDBColumn; - Tv1Column8: TcxGridDBColumn; - Tv1Column9: TcxGridDBColumn; - Tv1Column10: TcxGridDBColumn; + Tv1F_Width: TcxGridDBColumn; + Tv1F_GramWeight: TcxGridDBColumn; + Tv1F_ColorNo: TcxGridDBColumn; Tv1Column27: TcxGridDBColumn; - Tv1Column11: TcxGridDBColumn; - Tv1Column12: TcxGridDBColumn; + Tv1Piece: TcxGridDBColumn; + Tv1Qty: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn; diff --git a/A09财务通用管理/U_InvoiceOutInPut.dfm b/A09财务通用管理/U_InvoiceOutInPut.dfm index 7ecb1c5..45ec269 100644 --- a/A09财务通用管理/U_InvoiceOutInPut.dfm +++ b/A09财务通用管理/U_InvoiceOutInPut.dfm @@ -150,6 +150,20 @@ object frmInvoiceOutInPut: TfrmInvoiceOutInPut HeaderAlignmentHorz = taCenter Width = 77 end + object Tv1FIAbstract: TcxGridDBColumn + Caption = #25688#35201 + DataBinding.FieldName = 'FIAbstract' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv1FIAbstractPropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 80 + end object Tv1SupplierShuiNo: TcxGridDBColumn Caption = #23458#25143#31246#21495 DataBinding.FieldName = 'SupplierShuiNo' diff --git a/A09财务通用管理/U_InvoiceOutInPut.pas b/A09财务通用管理/U_InvoiceOutInPut.pas index 741c1c9..913f96d 100644 --- a/A09财务通用管理/U_InvoiceOutInPut.pas +++ b/A09财务通用管理/U_InvoiceOutInPut.pas @@ -11,7 +11,7 @@ uses DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar, dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters, - dxScrollbarAnnotations, cxCurrencyEdit; + dxScrollbarAnnotations, cxCurrencyEdit, dxSkinWXI; type TfrmInvoiceOutInPut = class(TForm) @@ -49,6 +49,7 @@ type Tv1SupplierNo: TcxGridDBColumn; cxGridLevel1: TcxGridLevel; ToolButton5: TToolButton; + Tv1FIAbstract: TcxGridDBColumn; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TSaveClick(Sender: TObject); @@ -68,6 +69,8 @@ type procedure Tv1SupplierPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1AmountPropertiesEditValueChanged(Sender: TObject); procedure ToolButton5Click(Sender: TObject); + procedure Tv1FIAbstractPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); private procedure initGrid(); function SaveDate(): Boolean; @@ -185,8 +188,9 @@ begin end; end; ADOQueryCmd.Connection.CommitTrans; + Result := True; application.MessageBox('保存成功！', '提示'); - Modalresult := 1; +// Modalresult := 1; except ADOQueryCmd.Connection.RollbackTrans; application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0); @@ -569,6 +573,28 @@ begin end; end; +procedure TfrmInvoiceOutInPut.Tv1FIAbstractPropertiesButtonClick( + Sender: TObject; AButtonIndex: Integer); +begin + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := 'FIAbstract'; + flagname := '摘要'; + if ShowModal = 1 then + begin + Self.CDS_Invoice.Edit; + Self.CDS_Invoice.FieldByName('FIAbstract').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + Self.CDS_Invoice.Post; + end; + end; + finally + frmZDYHelp.Free; + end; + +end; + procedure TfrmInvoiceOutInPut.Tv1SupplierPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try diff --git a/A09财务通用管理/U_InvoiceOutList.dfm b/A09财务通用管理/U_InvoiceOutList.dfm index ad0b48e..35173c5 100644 --- a/A09财务通用管理/U_InvoiceOutList.dfm +++ b/A09财务通用管理/U_InvoiceOutList.dfm @@ -312,14 +312,17 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList Kind = skSum end item + Format = '#,###.##' Kind = skSum Column = Tv1Amount end item + Format = '#,###.##' Kind = skSum Column = Tv1TaxFee end item + Format = '#,###.##' Kind = skSum Column = Tv1TaxAmount end> @@ -359,6 +362,14 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList Options.Editing = False Width = 79 end + object Tv1FIAbstract: TcxGridDBColumn + Caption = #25688#35201 + DataBinding.FieldName = 'FIAbstract' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end object Tv1SupplierShuiNo: TcxGridDBColumn Caption = #23458#25143#31246#21495 DataBinding.FieldName = 'SupplierShuiNo' diff --git a/A09财务通用管理/U_InvoiceOutList.pas b/A09财务通用管理/U_InvoiceOutList.pas index dd82c58..0cb79a5 100644 --- a/A09财务通用管理/U_InvoiceOutList.pas +++ b/A09财务通用管理/U_InvoiceOutList.pas @@ -88,6 +88,7 @@ type begdate: TcxDateEdit; Enddate: TcxDateEdit; ToolButton6: TToolButton; + Tv1FIAbstract: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/A09财务通用管理/U_ReceivableList.dfm b/A09财务通用管理/U_ReceivableList.dfm index 7d3d56d..9adbce8 100644 --- a/A09财务通用管理/U_ReceivableList.dfm +++ b/A09财务通用管理/U_ReceivableList.dfm @@ -7,7 +7,6 @@ inherited frmReceivableList: TfrmReceivableList Font.Height = -16 FormStyle = fsMDIChild Visible = True - ExplicitLeft = -181 ExplicitWidth = 1556 ExplicitHeight = 629 PixelsPerInch = 96 @@ -331,6 +330,16 @@ inherited frmReceivableList: TfrmReceivableList end item Kind = skSum + end + item + Format = '#,###.##' + Kind = skSum + Column = Tv1NoTaxInclude + end + item + Format = '#,###.##' + Kind = skSum + Column = Tv1Column2 end> DataController.Summary.SummaryGroups = <> OptionsBehavior.GoToNextCellOnEnter = True @@ -360,6 +369,30 @@ inherited frmReceivableList: TfrmReceivableList Options.Editing = False Width = 82 end + object Tv1CIVNO: TcxGridDBColumn + Caption = #21457#31080#21495 + DataBinding.FieldName = 'CIVNO' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1BGDNum: TcxGridDBColumn + Caption = #25253#20851#21333#21495 + DataBinding.FieldName = 'BGDNum' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end + object Tv1IVDate: TcxGridDBColumn + Caption = #21457#31080#26085#26399 + DataBinding.FieldName = 'IVDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 80 + end object Tv1oppShuiNo: TcxGridDBColumn Caption = #23458#25143#31246#21495 DataBinding.FieldName = 'oppShuiNo' @@ -509,6 +542,16 @@ inherited frmReceivableList: TfrmReceivableList HeaderAlignmentHorz = taCenter Width = 99 end + object Tv1NoTaxInclude: TcxGridDBColumn + Caption = #19981#21547#31246#37329#39069 + DataBinding.FieldName = 'NoTaxInclude' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCurrencyEditProperties' + Properties.DisplayFormat = '#,###.##' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 100 + end object Tv1TaxRate: TcxGridDBColumn Caption = #31246#29575 DataBinding.FieldName = 'TaxRate' diff --git a/A09财务通用管理/U_ReceivableList.pas b/A09财务通用管理/U_ReceivableList.pas index 305861b..30b29d1 100644 --- a/A09财务通用管理/U_ReceivableList.pas +++ b/A09财务通用管理/U_ReceivableList.pas @@ -93,6 +93,10 @@ type Tv1Column1: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; ToolButton6: TToolButton; + Tv1NoTaxInclude: TcxGridDBColumn; + Tv1CIVNO: TcxGridDBColumn; + Tv1BGDNum: TcxGridDBColumn; + Tv1IVDate: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure btnDelClick(Sender: TObject); diff --git a/A09财务通用管理/U_SingleCustStatement.dfm b/A09财务通用管理/U_SingleCustStatement.dfm index df9d5c0..cb08e9b 100644 --- a/A09财务通用管理/U_SingleCustStatement.dfm +++ b/A09财务通用管理/U_SingleCustStatement.dfm @@ -198,9 +198,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement Height = 542 Align = alClient TabOrder = 2 - ExplicitTop = 73 object TV1: TcxGridDBBandedTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_HZ DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -241,8 +241,6 @@ object frmSingleCustStatement: TfrmSingleCustStatement OptionsData.Editing = False OptionsView.Footer = True OptionsView.GroupByBox = False - Styles.Header = DataLink_Financial.Default - Styles.BandHeader = DataLink_Financial.Default Bands = < item end @@ -261,6 +259,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column2: TcxGridDBBandedColumn Caption = #23545#36134#26085#26399 DataBinding.FieldName = 'ReconciliationDate' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -274,6 +273,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column4: TcxGridDBBandedColumn Caption = #32534#21495 DataBinding.FieldName = 'F_Code' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -287,6 +287,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column5: TcxGridDBBandedColumn Caption = #21697#21517 DataBinding.FieldName = 'F_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -300,6 +301,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column6: TcxGridDBBandedColumn Caption = #35268#26684 DataBinding.FieldName = 'F_Spec' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -313,6 +315,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column7: TcxGridDBBandedColumn Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -326,6 +329,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column8: TcxGridDBBandedColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -339,6 +343,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column9: TcxGridDBBandedColumn Caption = #24212#25910#37329#39069 DataBinding.FieldName = 'BQYSAmount' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -352,6 +357,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column12: TcxGridDBBandedColumn Caption = #25910#27454#37329#39069 DataBinding.FieldName = 'BQSKAmount' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -365,6 +371,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column15: TcxGridDBBandedColumn Caption = #32047#35745#20313#39069 DataBinding.FieldName = 'BQJYAmount' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -378,6 +385,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column3: TcxGridDBBandedColumn Caption = #25688#35201 DataBinding.FieldName = 'FFAbstract' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -390,6 +398,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement end object V1Column10: TcxGridDBBandedColumn DataBinding.FieldName = 'CWID' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter Visible = False @@ -405,6 +414,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column14: TcxGridDBBandedColumn Caption = #24207#21495 DataBinding.FieldName = 'keyNO' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -418,6 +428,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column16: TcxGridDBBandedColumn Caption = #24320#31080#37329#39069 DataBinding.FieldName = 'BQKPAmount' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -431,6 +442,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column17: TcxGridDBBandedColumn Caption = #32047#35745#27424#31080 DataBinding.FieldName = 'BQWKPAmount' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -444,6 +456,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column20: TcxGridDBBandedColumn Caption = #31080#21495 DataBinding.FieldName = 'IVNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -457,6 +470,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column21: TcxGridDBBandedColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -470,6 +484,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column22: TcxGridDBBandedColumn Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -483,6 +498,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column23: TcxGridDBBandedColumn Caption = #39068#33394 DataBinding.FieldName = 'P_Color' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -496,6 +512,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column25: TcxGridDBBandedColumn Caption = #22791#27880 DataBinding.FieldName = 'MxNote' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -508,6 +525,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column26: TcxGridDBBandedColumn Caption = #22791#27880 DataBinding.FieldName = 'YMxNote' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.Alignment.Horz = taCenter HeaderAlignmentHorz = taCenter @@ -521,6 +539,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column33: TcxGridDBBandedColumn Caption = #20854#20182#36153 DataBinding.FieldName = 'OtherFee' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -532,6 +551,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object V1Column34: TcxGridDBBandedColumn Caption = #36135#27454 DataBinding.FieldName = 'HKMONEY' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -543,6 +563,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement object TV1Column1: TcxGridDBBandedColumn Caption = #20943#20813#37329#39069 DataBinding.FieldName = 'Deduction' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False diff --git a/A09财务通用管理/U_SingleCustStatement.pas b/A09财务通用管理/U_SingleCustStatement.pas index e24c95b..a9b44a4 100644 --- a/A09财务通用管理/U_SingleCustStatement.pas +++ b/A09财务通用管理/U_SingleCustStatement.pas @@ -15,7 +15,7 @@ uses cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView, cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, - dxBarBuiltInMenu; + dxBarBuiltInMenu, dxSkinsCore, dxSkinWXI, dxScrollbarAnnotations; type TfrmSingleCustStatement = class(TForm) diff --git a/A09财务通用管理/U_SingleFtyStatement.dfm b/A09财务通用管理/U_SingleFtyStatement.dfm index 7307d4e..3f01395 100644 --- a/A09财务通用管理/U_SingleFtyStatement.dfm +++ b/A09财务通用管理/U_SingleFtyStatement.dfm @@ -87,7 +87,6 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 - ExplicitTop = 32 object Label1: TLabel Left = 698 Top = 45 @@ -245,7 +244,6 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement Font.Style = [] ParentFont = False TabOrder = 2 - ExplicitTop = 97 object TV1: TcxGridDBBandedTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/A09财务通用管理/U_SingleFtyStatement.pas b/A09财务通用管理/U_SingleFtyStatement.pas index 3100885..95b64e3 100644 --- a/A09财务通用管理/U_SingleFtyStatement.pas +++ b/A09财务通用管理/U_SingleFtyStatement.pas @@ -15,7 +15,8 @@ uses cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView, cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, dxSkinsCore, - dxSkinsDefaultPainters, dxScrollbarAnnotations, cxCurrencyEdit, U_BaseHelp; + dxSkinsDefaultPainters, dxScrollbarAnnotations, cxCurrencyEdit, U_BaseHelp, + dxSkinWXI; type TfrmSingleFtyStatement = class(TfrmBaseHELP) diff --git a/A09财务通用管理/testDll.identcache b/A09财务通用管理/testDll.identcache index b1e7871c308e911a19bbb1bee6f229ff26026a5e..44ef6f346cebb88191169e8d83288cb133259cd1 100644 GIT binary patch delta 12 TcmZ3*xQdaHX<}&TM3xW$7eoVo delta 12 TcmZ3*xQdaHX<~5rM3x``7eE7i