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

财务

Browse Source
This commit is contained in:
funa 2026-06-06 17:20:24 +08:00
parent d8f1b3c9ce
commit 4defe3f953
14 changed files with 10224 additions and 116 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
A09财务通用管理/Financial.dpr
View File

@ -22,7 +22,7 @@ uses
U_BankSel in '..\A00通用窗体\U_BankSel.pas' {frmBankSel},
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_AttachmentUpload in '..\A00通用窗体\U_AttachmentUpload.pas' {frmAttachmentUpload},
U_AttachmentUploadIvI in 'U_AttachmentUploadIvI.pas' {frmAttachmentUploadIvI},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
U_ReceivableList in 'U_ReceivableList.pas' {frmReceivableList},
U_CollectList in 'U_CollectList.pas' {frmCollectList},
@ -51,7 +51,8 @@ uses
U_FinPurchasePlanSel in 'U_FinPurchasePlanSel.pas' {frmFinPurchasePlanSel},
U_CollectInput2 in 'U_CollectInput2.pas' {frmCollectInput2},
U_InvoiceOutSel in 'U_InvoiceOutSel.pas' {frmInvoiceOutSel},
U_CollectImport in 'U_CollectImport.pas' {frmCollectImport};
U_CollectImport in 'U_CollectImport.pas' {frmCollectImport},
U_AttachmentUpload in '..\A00通用窗体\U_AttachmentUpload.pas' {frmAttachmentUpload};
{$R *.res}

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

@ -134,8 +134,8 @@
<Form>frmLabelPrint</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_AttachmentUpload.pas">
<Form>frmAttachmentUpload</Form>
<DCCReference Include="U_AttachmentUploadIvI.pas">
<Form>frmAttachmentUploadIvI</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
@ -237,6 +237,10 @@
<Form>frmCollectImport</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_AttachmentUpload.pas">
<Form>frmAttachmentUpload</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

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

@ -1,81 +1,82 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.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.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.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.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.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>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.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
<Transaction>2026/05/22 14:41:58.000.210,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.pas</Transaction>
<Transaction>2026/05/22 14:42:09.000.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.pas</Transaction>
<Transaction>2026/05/22 14:42:09.000.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.dfm</Transaction>
<Transaction>2026/05/22 14:42:09.000.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.dfm</Transaction>
<Transaction>2026/05/22 14:42:09.000.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.pas</Transaction>
<Transaction>2026/05/22 15:10:32.000.542,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.pas</Transaction>
<Transaction>2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.dfm</Transaction>
<Transaction>2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.pas</Transaction>
<Transaction>2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.dfm</Transaction>
<Transaction>2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.pas</Transaction>
<Transaction>2026/05/30 14:03:53.000.690,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas</Transaction>
<Transaction>2026/05/30 14:04:26.000.060,D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.dfm</Transaction>
<Transaction>2026/05/30 14:04:26.000.060,D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas</Transaction>
<Transaction>2026/05/30 14:04:26.000.060,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.dfm=D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.dfm</Transaction>
<Transaction>2026/05/30 14:04:26.000.060,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas=D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.pas</Transaction>
<Transaction>2026/05/30 14:05:55.000.119,D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.pas=</Transaction>
<Transaction>2026/05/30 14:42:33.000.201,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas</Transaction>
<Transaction>2026/06/06 10:50:33.795,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_AttachmentUploadIvI.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>2026/06/06 10:50:33.795,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_AttachmentUploadIvI.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A00通用窗体\U_AttachmentUpload.dfm</Transaction>
<Transaction>2026/06/06 10:51:08.483,=D:\D10V1W\项目代码\D10SZKaiXiYa\A00通用窗体\U_AttachmentUpload.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>
<File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
<File Path="..\A00通用窗体\U_BankSel.pas"/>
<File Path="..\A00通用窗体\U_BankSel.dfm"/>
<File Path="..\A00通用窗体\U_ClothInfoSel.pas"/>
@ -88,6 +89,8 @@
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
<File Path="D:\D10V1W"/>
<File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/>
@ -160,5 +163,7 @@
<File Path="U_InvoiceOutSel.dfm"/>
<File Path="U_CollectImport.pas"/>
<File Path="U_CollectImport.dfm"/>
<File Path="U_AttachmentUploadIvI.pas"/>
<File Path="U_AttachmentUploadIvI.dfm"/>
</ProjectSortOrder>
</BorlandProject>

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

Binary file not shown.

9614
A09财务通用管理/U_AttachmentUploadIvI.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

413
A09财务通用管理/U_AttachmentUploadIvI.pas Normal file
View File

@ -0,0 +1,413 @@
unit U_AttachmentUploadIvI;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons,
DB, ADODB, ImgList, shellapi, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, cxDBData, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxLookAndFeels, cxNavigator, dxDateRanges,
IdExplicitTLSClientServerBase, System.ImageList, U_BaseHelp, Vcl.ToolWin,
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinWXI;
type
TfrmAttachmentUploadIvI = class(TfrmBaseHelp)
ListView1: TListView;
ADOQueryTmp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel2: TPanel;
IdFTP1: TIdFTP;
ADOConnection1: TADOConnection;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
v1Column1: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
DataSource1: TDataSource;
v1Column4: TcxGridDBColumn;
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBAdd: TToolButton;
TBClose: TToolButton;
TBDel: TToolButton;
btnDown: TToolButton;
ImageList1: TImageList;
cxImageList_bar: TcxImageList;
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ListView1DblClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Panel2DblClick(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure btnDownClick(Sender: TObject);
private
procedure InitData();
{ Private declarations }
public
fkeyNO: string;
fType: string;
fId: integer;
FEditAuthority: Boolean;
{ Public declarations }
end;
var
frmAttachmentUploadIvI: TfrmAttachmentUploadIvI;
implementation
uses
U_DataLink, U_RTFun, U_CompressionFun, U_AttachmentUpload;
{$R *.dfm}
procedure TfrmAttachmentUploadIvI.InitData();
var
sql1: string;
begin
ListView1.Items.Clear;
try
if fType = '进项发票' then
begin
sql1 := 'select * from FJ_File where (WBID = ' + QuotedStr(Trim(fkeyNO)) +
' and TFType = ' + QuotedStr(Trim(fType)) + ')';
sql1 := sql1 + ' union all ';
sql1 := sql1 + 'select * from FJ_File where WBID in ' +
'(select FFID from Finance_Flow where CHARINDEX(' +
QuotedStr(',' + Trim(fkeyNO) + ',') + ', '','' + IVID + '','') > 0) ' +
'and TFType = ''费用登记''';
end
else
begin
sql1 := 'select * from FJ_File where WBID = ' + QuotedStr(Trim(fkeyNO)) +
' and TFType = ' + QuotedStr(Trim(fType));
end;
with adoqueryTmp do
begin
Close;
SQL.Clear;
SQL.Add(sql1);
Open;
end;
except
end;
end;
procedure TfrmAttachmentUploadIvI.FormDestroy(Sender: TObject);
begin
frmAttachmentUploadIvI := nil;
end;
procedure TfrmAttachmentUploadIvI.FormCreate(Sender: TObject);
begin
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmAttachmentUploadIvI.FormShow(Sender: TObject);
begin
// if FEditAuthority then
// begin
// btnDown.Visible := True;
// TBDel.Visible := True;
// TBAdd.Visible := True;
// end
// else
// begin
// btnDown.Visible := false;
// TBDel.Visible := false;
// TBAdd.Visible := false;
// end;
initdata();
end;
procedure TfrmAttachmentUploadIvI.ListView1DblClick(Sender: TObject);
var
sFieldName: string;
fileName: string;
begin
if ListView1.Items.Count < 1 then
EXIT;
if listView1.SelCount < 1 then
exit;
sFieldName := 'D:\附件查看';
if not DirectoryExists(pchar(sFieldName)) then
CreateDirectory(pchar(sFieldName), nil);
fileName := ListView1.Selected.Caption;
sFieldName := sFieldName + '\' + trim(fileName);
try
IdFTP1.Host := PicSvr;
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
;
end;
if IdFTP1.Connected then
begin
Panel2.Caption := '正在下载数据，请稍等...';
Panel2.Visible := true;
application.ProcessMessages;
try
IdFTP1.Get('FJ\' + Trim(fileName), sFieldName, false, true);
except
Panel2.Visible := false;
Application.MessageBox('附件文件不存在', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
end
else
begin
Panel2.Visible := false;
Application.MessageBox('无法连接文件服务器', '提示', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
Panel2.Visible := false;
if IdFTP1.Connected then
IdFTP1.Quit;
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
end;
procedure TfrmAttachmentUploadIvI.btnDownClick(Sender: TObject);
var
SaveDialog: TSaveDialog;
fFileName: string;
fFilePath: string;
ff: TADOBlobStream;
FJStream: TMemoryStream;
begin
if adoqueryTmp.IsEmpty then
exit;
try
fFileName := adoqueryTmp.fieldbyname('FileName').AsString;
SaveDialog := TSaveDialog.Create(Self);
SaveDialog.FileName := fFileName;
if SaveDialog.Execute then
begin
Panel2.Caption := '正在保存数据，请稍等...';
Panel2.Visible := true;
application.ProcessMessages;
fFilePath := SaveDialog.FileName;
try
ff := TADOBlobstream.Create(adoqueryTmp.fieldByName('FilesOther') as TblobField, bmRead);
FJStream := TMemoryStream.Create;
ff.SaveToStream(FJStream);
UnCompressionStream(FJStream);
FJStream.SaveToFile(fFilePath);
// ShellExecute(Handle, 'open',PChar(sFieldName),'', '', SW_SHOWNORMAL);
finally
FJStream.free;
ff.Free;
end;
Panel2.Visible := false;
// if IdFTP1.Connected then IdFTP1.Quit;
end;
except
Panel2.Visible := false;
end;
end;
procedure TfrmAttachmentUploadIvI.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if fId = 10 then
Action := cafree
else
Action := cahide;
end;
procedure TfrmAttachmentUploadIvI.Panel2DblClick(Sender: TObject);
begin
Panel2.Visible := false;
end;
procedure TfrmAttachmentUploadIvI.TBAddClick(Sender: TObject);
var
OpenDiaLog: TOpenDialog;
fFileName: string;
fFilePath: string;
maxNo: string;
FJStream: TMemoryStream;
mfileSize: integer;
mCreationTime: TdateTime;
mWriteTime: TdateTime;
begin
try
adoqueryCmd.Connection.BeginTrans;
OpenDiaLog := TOpenDialog.Create(Self);
if OpenDiaLog.Execute then
begin
fFilePath := OpenDiaLog.FileName;
fFileName := ExtractFileName(OpenDiaLog.FileName);
Panel2.Caption := '正在上传数据，请稍等...';
Panel2.Visible := true;
application.ProcessMessages;
if GetLSNo(ADOQueryCmd, maxNo, 'FJ', 'FJ_File', 4, 1) = False then
begin
adoqueryCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败！', '提示', 0);
Exit;
end;
//获取文件信息
GetFileInfo(fFilePath, mfileSize, mCreationTime, mWriteTime);
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from FJ_File ');
sql.Add('where TFID=' + quotedstr(trim(maxNo)));
execsql;
end;
try
FJStream := TMemoryStream.Create;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from FJ_File ');
sql.Add('where TFID=' + quotedstr(trim(maxNo)));
open;
append;
fieldbyname('TFID').Value := trim(maxNo);
fieldbyname('WBID').Value := trim(fkeyNO);
fieldbyname('TFType').Value := trim(fType);
fieldbyname('Filler').Value := trim(DName);
fieldbyname('FileName').Value := trim(fFileName);
fieldbyname('TFDate').Value := mWriteTime;
FJStream.LoadFromFile(fFilePath);
CompressionStream(FJStream);
tblobfield(FieldByName('Filesother')).LoadFromStream(FJStream);
post;
end;
Panel2.Visible := false;
initdata();
finally
FJStream.Free;
end;
end;
adoqueryCmd.Connection.CommitTrans;
except
adoqueryCmd.Connection.RollbackTrans;
application.MessageBox('附件保存失败！', '提示信息', 0);
end;
end;
procedure TfrmAttachmentUploadIvI.TBCloseClick(Sender: TObject);
begin
ADOQueryTmp.Close;
ADOQuerycmd.Close;
ListView1.Free;
ModalResult := 1;
end;
procedure TfrmAttachmentUploadIvI.TBDelClick(Sender: TObject);
var
fFileName: string;
fFilePath: string;
begin
if ADOQueryTmp.IsEmpty then
exit;
if trim(ADOQueryTmp.fieldbyname('Filler').AsString) <> trim(DName) then
begin
Application.MessageBox('权限不足，上传账户可删除!', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from FJ_File ');
sql.Add('where TFID=' + quotedstr(trim(ADOQueryTmp.fieldbyname('TFID').AsString)));
execsql;
end;
initData();
end;
procedure TfrmAttachmentUploadIvI.TBRafreshClick(Sender: TObject);
begin
initData();
end;
procedure TfrmAttachmentUploadIvI.Tv1DblClick(Sender: TObject);
var
sFieldName: string;
fileName: string;
ff: TADOBlobStream;
FJStream: TMemoryStream;
begin
if adoqueryTmp.IsEmpty then
exit;
sFieldName := 'D:\附件查看';
if not DirectoryExists(pchar(sFieldName)) then
CreateDirectory(pchar(sFieldName), nil);
fileName := adoqueryTmp.fieldbyname('FileName').AsString;
sFieldName := sFieldName + '\' + trim(fileName);
try
ff := TADOBlobstream.Create(adoqueryTmp.fieldByName('FilesOther') as TblobField, bmRead);
FJStream := TMemoryStream.Create;
ff.SaveToStream(FJStream);
UnCompressionStream(FJStream);
FJStream.SaveToFile(sFieldName);
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
finally
FJStream.free;
ff.Free;
end;
end;
end.

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

@ -414,7 +414,7 @@ end;
procedure TfrmCollectList.TBRafreshClick(Sender: TObject);
begin
begdate.SetFocus;
toolbar1.SetFocus;
InitGrid();

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

@ -152,6 +152,7 @@ end;
procedure TfrmCustStatement.TBRafreshClick(Sender: TObject);
begin
toolbar1.SetFocus;
InitGrid();
end;

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

@ -19,7 +19,7 @@ inherited frmExpenseList: TfrmExpenseList
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 107
ButtonWidth = 131
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_Financial.ImageList_new32
@ -37,7 +37,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TBRafreshClick
end
object btnAdd: TToolButton
Left = 63
Left = 71
Top = 0
AutoSize = True
Caption = #26032#22686
@ -45,7 +45,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = btnAddClick
end
object btnEdit: TToolButton
Left = 126
Left = 142
Top = 0
AutoSize = True
Caption = #20462#25913
@ -53,7 +53,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = btnEditClick
end
object btnDel: TToolButton
Left = 189
Left = 213
Top = 0
AutoSize = True
Caption = #21024#38500
@ -61,7 +61,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = btnDelClick
end
object btnChk: TToolButton
Left = 252
Left = 284
Top = 0
AutoSize = True
Caption = #23457#26680'1'
@ -69,7 +69,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = btnChkClick
end
object btnReChk: TToolButton
Left = 322
Left = 364
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680'1'
@ -77,7 +77,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = btnReChkClick
end
object btnChk2: TToolButton
Left = 416
Left = 476
Top = 0
AutoSize = True
Caption = #23457#26680'2'
@ -85,7 +85,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = btnChk2Click
end
object btnReChk2: TToolButton
Left = 486
Left = 556
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680'2'
@ -93,7 +93,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = btnReChk2Click
end
object TbnPay: TToolButton
Left = 580
Left = 668
Top = 0
AutoSize = True
Caption = #20184#27454
@ -101,7 +101,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TbnPayClick
end
object TbnRePay: TToolButton
Left = 643
Left = 739
Top = 0
AutoSize = True
Caption = #25764#38144#20184#27454
@ -109,7 +109,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TbnRePayClick
end
object TbFP: TToolButton
Left = 730
Left = 842
Top = 0
AutoSize = True
Caption = #20851#32852#21457#31080
@ -117,7 +117,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TbFPClick
end
object TbCancelFP: TToolButton
Left = 817
Left = 945
Top = 0
AutoSize = True
Caption = #25764#38144#20851#32852#21457#31080
@ -125,7 +125,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TbCancelFPClick
end
object ToolButton9: TToolButton
Left = 928
Left = 1080
Top = 0
AutoSize = True
Caption = #38468#20214#19978#20256
@ -133,7 +133,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton9Click
end
object ToolButton4: TToolButton
Left = 1015
Left = 1183
Top = 0
AutoSize = True
Caption = #23548#20986
@ -141,7 +141,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton4Click
end
object TbPrint: TToolButton
Left = 1078
Left = 1254
Top = 0
AutoSize = True
Caption = #25171#21360
@ -149,7 +149,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = TbPrintClick
end
object ToolButton5: TToolButton
Left = 1141
Left = 1325
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -157,7 +157,7 @@ inherited frmExpenseList: TfrmExpenseList
OnClick = ToolButton5Click
end
object TBClose: TToolButton
Left = 1228
Left = 1428
Top = 0
AutoSize = True
Caption = #20851#38381

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

@ -445,47 +445,60 @@ begin
end;
procedure TfrmExpenseList.TbFPClick(Sender: TObject);
var
selIVNo, selIVID: string;
begin
if CDS_1.Locate('ssel', True, []) = false then
if not CDS_1.Locate('ssel', True, []) then
begin
Application.MessageBox('ÇëÏÈÑ¡ÔñÊý¾Ý', 'ÌáʾÐÅÏ¢', MB_OK);
Application.MessageBox('请先选择付款申请数据', '提示信息', MB_OK);
Exit;
end;
try
CDS_1.Locate('ssel', True, []);
try
frmInvoiceSel := TfrmInvoiceSel.Create(Application);
try
if frmInvoiceSel.ShowModal = 1 then
begin
selIVNo := frmInvoiceSel.FSelectedIVNo;
selIVID := frmInvoiceSel.FSelectedIVID;
CDS_1.DisableControls;
try
CDS_1.First;
while not CDS_1.Eof do
begin
if CDS_1.FieldByName('SSel').AsBoolean then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.add(' select * from Finance_Flow where FFID = ' + QuotedStr(Trim(CDS_1.fieldByName('FFID').AsString)));
SQL.Clear;
SQL.Add('select * from Finance_Flow where FFID = ' + QuotedStr(Trim(CDS_1.FieldByName('FFID').AsString)));
Open;
if not IsEmpty then
begin
Edit;
FieldByName('IVNo').AsString := selIVNo;
FieldByName('IVID').AsString := selIVID;
Post;
end;
end;
end;
CDS_1.Next;
end;
finally
CDS_1.EnableControls;
end;
frmInvoiceSel := TfrmInvoiceSel.Create(Application);
with frmInvoiceSel do
begin
if ShowModal = 1 then
begin
with frmInvoiceSel.CDS_Invoice do
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.Post;
end;
end;
InitGrid();
end;
finally
frmInvoiceSel.Free;
end;
except
on E: Exception do
Application.MessageBox(PChar('关联发票失败：' + E.Message), '错误', MB_ICONERROR);
end;
end;
procedure TfrmExpenseList.TbnPayClick(Sender: TObject);

31
A09财务通用管理/U_FKandFPUpload.pas
View File

@ -11,7 +11,8 @@ uses
cxGridDBTableView, cxGridLevel, cxClasses, cxControls, cxGridCustomView,
cxGrid, cxLookAndFeels, cxNavigator, dxDateRanges,
IdExplicitTLSClientServerBase, System.ImageList, U_BaseHelp, Vcl.ToolWin,
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters;
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinWXI;
type
TfrmFKandFPUpload = class(TfrmBaseHelp)
@ -78,10 +79,12 @@ var
Flag: Cardinal;
info: SHFILEINFOA;
Icon: TIcon;
WSql: string;
InvoiceIDs: TStringList;
i: Integer;
begin
ListView1.Items.Clear;
try
with adoqueryTmp do
begin
close;
@ -89,9 +92,27 @@ begin
sql.Add('select * from FJ_File ');
sql.Add('where (WBID=' + quotedstr(trim(fkeyNO)));
sql.Add('and TFType=' + quotedstr(trim(fType)) + ')');
sql.Add('or (WBID=' + quotedstr(trim(fkeyNO2)));
sql.Add('and TFType=' + quotedstr(trim(fType2)) + ')');
// ShowMessage(SQL.Text);
if Trim(fkeyNO2) <> '' then
begin
InvoiceIDs := TStringList.Create;
try
InvoiceIDs.CommaText := fkeyNO2;
sql.Add('or (TFType=' + quotedstr(trim(fType2)) + ' and WBID in (');
for i := 0 to InvoiceIDs.Count - 1 do
begin
if i > 0 then
sql.Add(',');
sql.Add(quotedstr(trim(InvoiceIDs[i])));
end;
sql.Add('))');
finally
InvoiceIDs.Free;
end;
end;
open;
end;
except

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

@ -116,7 +116,6 @@ type
procedure SaveFlowInvoice(const IVID, FFFIDs: string);
private
{ Private declarations }
procedure InitGrid();
procedure SetStatus();
public
@ -131,7 +130,7 @@ implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_InvoiceInInPut, U_LabelPrint,
U_AttachmentUpload, U_PayableSel;
U_AttachmentUploadIvI, U_PayableSel;
{$R *.dfm}
@ -198,14 +197,14 @@ begin
sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''进项发票'' and X.WBID=A.IVNo)>0 THEN 1 ELSE 0 END) AS BIT)');
sql.Add(',checkStatus=case when A.status = ''0'' then ''未审核'' else ''已审核'' end ');
sql.Add(',PayStatus=(SELECT TOP 1 X.PayStatus FROM Finance_Flow X ');
sql.Add(' WHERE CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0 ) ');
sql.Add(',PayStatus = CASE ');
sql.Add(' WHEN NOT EXISTS (SELECT 1 FROM Finance_Flow X WHERE CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0) THEN ''마운灌<EC9AB4>헝'' ');
sql.Add(' WHEN EXISTS (SELECT 1 FROM Finance_Flow X WHERE CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0 AND X.PayStatus = ''綠마운'') THEN ''綠마운'' ');
sql.Add(' ELSE ''마운綠<EC9AB4>헝'' ');
sql.Add(' END ');
sql.Add(',PayTime=case when (SELECT TOP 1 X.PayStatus FROM Finance_Flow X ');
sql.Add(' WHERE CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0 ) = ''δ¸¶¿î'' ');
sql.Add(' then null ');
sql.Add(' else (SELECT TOP 1 X.PayTime FROM Finance_Flow X ');
sql.Add(' WHERE CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0 ) end ');
sql.Add(',PayTime = (SELECT TOP 1 X.PayTime FROM Finance_Flow X ');
sql.Add(' WHERE CHARINDEX('','' + A.IVID + '','', '','' + X.IVID + '','') > 0 AND X.PayStatus = ''綠마운'') ');
sql.Add(' from Finance_Invoice A ');
@ -720,8 +719,8 @@ begin
if CDS_Invoice.IsEmpty then
Exit;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
frmAttachmentUploadIvI := TfrmAttachmentUploadIvI.Create(Application);
with frmAttachmentUploadIvI do
begin
fkeyNO := Trim(Self.CDS_Invoice.fieldbyname('IVID').AsString);
fType := '进项发票';
@ -732,7 +731,7 @@ begin
end;
end;
finally
frmAttachmentUpload.Free;
frmAttachmentUploadIvI.Free;
end;
end;

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

@ -93,6 +93,8 @@ type
public
FIVID: string;
fInvoiceFlag: string;
FSelectedIVNo: string; // 拼接后的发票号
FSelectedIVID: string;
{ Public declarations }
end;
@ -308,11 +310,46 @@ begin
end;
procedure TfrmInvoiceSel.TbsselClick(Sender: TObject);
var
ivNoList, ivIDList: string;
found: Boolean;
begin
if CDS_Invoice.IsEmpty then
if CDS_Invoice.IsEmpty then Exit;
ivNoList := '';
ivIDList := '';
found := False;
CDS_Invoice.DisableControls;
try
CDS_Invoice.First;
while not CDS_Invoice.Eof do
begin
Exit;
if CDS_Invoice.FieldByName('SSel').AsBoolean then
begin
if found then
begin
ivNoList := ivNoList + ',';
ivIDList := ivIDList + ',';
end;
ivNoList := ivNoList + Trim(CDS_Invoice.FieldByName('IVNo').AsString);
ivIDList := ivIDList + Trim(CDS_Invoice.FieldByName('IVID').AsString);
found := True;
end;
CDS_Invoice.Next;
end;
finally
CDS_Invoice.EnableControls;
end;
if not found then
begin
ivNoList := Trim(CDS_Invoice.FieldByName('IVNo').AsString);
ivIDList := Trim(CDS_Invoice.FieldByName('IVID').AsString);
end;
FSelectedIVNo := ivNoList;
FSelectedIVID := ivIDList;
ModalResult := 1;
end;

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

Binary file not shown.