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

财务

Browse Source
This commit is contained in:
funa 2026-05-30 17:45:45 +08:00
parent 9766d2a628
commit 6f51064fe8
26 changed files with 397 additions and 607 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -50,7 +50,8 @@ uses
U_GETableBatchInput in 'U_GETableBatchInput.pas' {frmGetableBatchInput}, U_GETableBatchInput in 'U_GETableBatchInput.pas' {frmGetableBatchInput},
U_FinPurchasePlanSel in 'U_FinPurchasePlanSel.pas' {frmFinPurchasePlanSel}, U_FinPurchasePlanSel in 'U_FinPurchasePlanSel.pas' {frmFinPurchasePlanSel},
U_CollectInput2 in 'U_CollectInput2.pas' {frmCollectInput2}, U_CollectInput2 in 'U_CollectInput2.pas' {frmCollectInput2},
U_InvoiceOutSel in 'U_InvoiceOutSel.pas' {frmInvoiceOutSel}; U_InvoiceOutSel in 'U_InvoiceOutSel.pas' {frmInvoiceOutSel},
U_CollectImport in 'U_CollectImport.pas' {frmCollectImport};
{$R *.res} {$R *.res}

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

@ -233,6 +233,10 @@
<Form>frmInvoiceOutSel</Form> <Form>frmInvoiceOutSel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_CollectImport.pas">
<Form>frmCollectImport</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

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

@ -1,70 +1,75 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.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.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.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.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.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.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.292,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_FinPurchasePlanSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.453,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.806,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.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.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.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.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.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.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm</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.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.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.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.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.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.595,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.508,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>2026/05/22 14:41:58.000.210,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.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.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.dfm</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.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 15:10:32.000.542,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.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.pas=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.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.dfm</Transaction>
<Transaction>2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.pas</Transaction>
<Transaction>2026/05/30 14:03:53.690,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas</Transaction>
<Transaction>2026/05/30 14:04:26.060,D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.dfm</Transaction>
<Transaction>2026/05/30 14:04:26.060,D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas</Transaction>
<Transaction>2026/05/30 14:05:55.119,D:\D10W\项目代码\D10myXingrui\B02基础纱线仓库\U_YarnInfoImport.pas=</Transaction>
<Transaction>2026/05/30 14:42:33.201,=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectImport.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/> <File Path="..\..\D10SZKaiXiYa"/>
@ -153,5 +158,7 @@
<File Path="U_CollectInput2.dfm"/> <File Path="U_CollectInput2.dfm"/>
<File Path="U_InvoiceOutSel.pas"/> <File Path="U_InvoiceOutSel.pas"/>
<File Path="U_InvoiceOutSel.dfm"/> <File Path="U_InvoiceOutSel.dfm"/>
<File Path="U_CollectImport.pas"/>
<File Path="U_CollectImport.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

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

Binary file not shown.

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

@ -83,6 +83,7 @@ object frmCollectImport: TfrmCollectImport
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -114,14 +115,10 @@ object frmCollectImport: TfrmCollectImport
OptionsData.DeletingConfirmation = False OptionsData.DeletingConfirmation = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_Financial.SHuangSe
Styles.Footer = DataLink_Financial.Default
Styles.Header = DataLink_Financial.Default
Styles.Inactive = DataLink_Financial.SHuangSe
Styles.Selection = DataLink_Financial.SHuangSe
object v2CRTime: TcxGridDBColumn object v2CRTime: TcxGridDBColumn
Caption = #26085#26399 Caption = #26085#26399
DataBinding.FieldName = 'FFTime' DataBinding.FieldName = 'FFTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False Properties.SaveTime = False
Properties.ShowTime = False Properties.ShowTime = False
@ -132,6 +129,7 @@ object frmCollectImport: TfrmCollectImport
object v2Column2: TcxGridDBColumn object v2Column2: TcxGridDBColumn
Caption = #25105#26041#21333#20301 Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName' DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -139,6 +137,7 @@ object frmCollectImport: TfrmCollectImport
object v2FactoryName: TcxGridDBColumn object v2FactoryName: TcxGridDBColumn
Caption = #23545#26041#21333#20301 Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName' DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -146,6 +145,7 @@ object frmCollectImport: TfrmCollectImport
object v2OrderNo: TcxGridDBColumn object v2OrderNo: TcxGridDBColumn
Caption = #19978#32423#21333#20301 Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'OppParentCoName' DataBinding.FieldName = 'OppParentCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -153,6 +153,7 @@ object frmCollectImport: TfrmCollectImport
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #25105#26041#36134#25143 Caption = #25105#26041#36134#25143
DataBinding.FieldName = 'OurBankName' DataBinding.FieldName = 'OurBankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -160,6 +161,7 @@ object frmCollectImport: TfrmCollectImport
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #23545#26041#36134#25143 Caption = #23545#26041#36134#25143
DataBinding.FieldName = 'OppBankName' DataBinding.FieldName = 'OppBankName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -167,6 +169,7 @@ object frmCollectImport: TfrmCollectImport
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #20184#27454#26041#24335 Caption = #20184#27454#26041#24335
DataBinding.FieldName = 'PayMent' DataBinding.FieldName = 'PayMent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -174,6 +177,7 @@ object frmCollectImport: TfrmCollectImport
object Tv1Column19: TcxGridDBColumn object Tv1Column19: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -181,6 +185,7 @@ object frmCollectImport: TfrmCollectImport
object Tv1Column20: TcxGridDBColumn object Tv1Column20: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -188,12 +193,14 @@ object frmCollectImport: TfrmCollectImport
object Tv1Column21: TcxGridDBColumn object Tv1Column21: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #25688#35201 Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract' DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -201,6 +208,7 @@ object frmCollectImport: TfrmCollectImport
object Tv1Column17: TcxGridDBColumn object Tv1Column17: TcxGridDBColumn
Caption = #37329#39069 Caption = #37329#39069
DataBinding.FieldName = 'Amount' DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -208,6 +216,7 @@ object frmCollectImport: TfrmCollectImport
object Tv1Column18: TcxGridDBColumn object Tv1Column18: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'Currency' DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -215,6 +224,7 @@ object frmCollectImport: TfrmCollectImport
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66

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

@ -10,7 +10,8 @@ uses
cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB,
DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit, DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit,
cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar,
dxDateRanges, dxBarBuiltInMenu, ComObj; dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinWXI,
dxScrollbarAnnotations;
type type
TfrmCollectImport = class(TForm) TfrmCollectImport = class(TForm)

14
A09财务通用管理/U_CollectInput2.dfm
View File

@ -2,7 +2,7 @@ object frmCollectInput2: TfrmCollectInput2
Left = 261 Left = 261
Top = 149 Top = 149
Caption = #25910#27454#30331#35760 Caption = #25910#27454#30331#35760
ClientHeight = 416 ClientHeight = 437
ClientWidth = 884 ClientWidth = 884
Color = clWhite Color = clWhite
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -34,7 +34,6 @@ object frmCollectInput2: TfrmCollectInput2
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1194
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -56,7 +55,7 @@ object frmCollectInput2: TfrmCollectInput2
Left = 0 Left = 0
Top = 38 Top = 38
Width = 884 Width = 884
Height = 378 Height = 399
Align = alClient Align = alClient
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -67,9 +66,7 @@ object frmCollectInput2: TfrmCollectInput2
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
OnClick = ScrollBox1Click OnClick = ScrollBox1Click
ExplicitLeft = -8 ExplicitHeight = 378
ExplicitTop = -42
ExplicitHeight = 538
object Label7: TLabel object Label7: TLabel
Left = 84 Left = 84
Top = 276 Top = 276
@ -217,10 +214,6 @@ object frmCollectInput2: TfrmCollectInput2
Height = 127 Height = 127
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = -7
ExplicitTop = -47
ExplicitWidth = 327
ExplicitHeight = 199
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -306,6 +299,7 @@ object frmCollectInput2: TfrmCollectInput2
Kind = bkEllipsis Kind = bkEllipsis
end> end>
TabOrder = 12 TabOrder = 12
Text = 'DESHINE VIETNAM CO., LTD'
Visible = False Visible = False
Width = 200 Width = 200
end end

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

@ -381,6 +381,9 @@ begin
FieldByName('Filltime').Value := SGetServerDateTime(ADOQueryTemp); FieldByName('Filltime').Value := SGetServerDateTime(ADOQueryTemp);
FieldByName('FFFlag').Value := '壇澗澗'; FieldByName('FFFlag').Value := '壇澗澗';
FieldByName('FFType').Value := '澗운되션'; FieldByName('FFType').Value := '澗운되션';
FieldByName('ourShuiNo').Value := '1102083046';
// FieldByName('OurCoName').Value := 'DESHINE VIETNAM CO., LTD';
FieldByName('OurCoNo').Value := 'W0001';
FieldByName('status').Value := '0'; FieldByName('status').Value := '0';
FieldByName('FFQtyFlag').Value := -1; FieldByName('FFQtyFlag').Value := -1;
end end

160
A09财务通用管理/U_CollectList.dfm
View File

@ -19,7 +19,7 @@ inherited frmCollectList: TfrmCollectList
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 99
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
DisabledImages = DataLink_Financial.cxImageList_bar DisabledImages = DataLink_Financial.cxImageList_bar
@ -37,7 +37,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object btnAdd: TToolButton object btnAdd: TToolButton
Left = 63 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
@ -45,7 +45,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = btnAddClick OnClick = btnAddClick
end end
object btnEdit: TToolButton object btnEdit: TToolButton
Left = 126 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -53,7 +53,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = btnEditClick OnClick = btnEditClick
end end
object btnDel: TToolButton object btnDel: TToolButton
Left = 189 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -61,7 +61,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = btnDelClick OnClick = btnDelClick
end end
object btnChk: TToolButton object btnChk: TToolButton
Left = 252 Left = 284
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23457#26680 Caption = #23457#26680
@ -69,7 +69,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = btnChkClick OnClick = btnChkClick
end end
object btnReChk: TToolButton object btnReChk: TToolButton
Left = 315 Left = 355
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680
@ -77,7 +77,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = btnReChkClick OnClick = btnReChkClick
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 402 Left = 458
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26680#38144 Caption = #26680#38144
@ -86,7 +86,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 465 Left = 529
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26680#38144#26085#24535 Caption = #26680#38144#26085#24535
@ -95,7 +95,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object TBInvoice: TToolButton object TBInvoice: TToolButton
Left = 552 Left = 632
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#32852#21457#31080 Caption = #20851#32852#21457#31080
@ -103,7 +103,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = TBInvoiceClick OnClick = TBInvoiceClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 639 Left = 735
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20837 Caption = #23548#20837
@ -111,7 +111,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 702 Left = 806
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -119,7 +119,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 765 Left = 877
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
@ -127,7 +127,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 828 Left = 948
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -135,7 +135,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 915 Left = 1051
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -308,14 +308,13 @@ inherited frmCollectList: TfrmCollectList
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column17 Column = Tv1Amount
end end
item item
Kind = skSum Kind = skSum
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column5
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.GoToNextCellOnEnter = True
@ -324,16 +323,16 @@ inherited frmCollectList: TfrmCollectList
OptionsData.DeletingConfirmation = False OptionsData.DeletingConfirmation = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object Tv1Column22: TcxGridDBColumn object Tv1SSel: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 44 Width = 66
end end
object v2CRTime: TcxGridDBColumn object Tv1FFTime: TcxGridDBColumn
Tag = 7 Tag = 7
Caption = #26085#26399 Caption = #26085#26399
DataBinding.FieldName = 'FFTime' DataBinding.FieldName = 'FFTime'
@ -343,127 +342,96 @@ inherited frmCollectList: TfrmCollectList
Properties.ShowTime = False Properties.ShowTime = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 120
end end
object v2Column2: TcxGridDBColumn object Tv1ourShuiNo: TcxGridDBColumn
Caption = #25105#26041#31246#21495
DataBinding.FieldName = 'ourShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object Tv1OurCoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301 Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName' DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 78 Width = 120
end end
object v2FactoryName: TcxGridDBColumn object Tv1oppShuiNo: TcxGridDBColumn
Caption = #23545#26041#31246#21495
DataBinding.FieldName = 'oppShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object Tv1OppCoName: TcxGridDBColumn
Caption = #23545#26041#21333#20301 Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName' DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 73 Width = 120
end end
object v2OrderNo: TcxGridDBColumn object Tv1OurBankName: TcxGridDBColumn
Tag = 7 Caption = #25910#27454#38134#34892
Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'OppParentCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
object Tv1Column1: TcxGridDBColumn
Caption = #25105#26041#36134#25143
DataBinding.FieldName = 'OurBankName' DataBinding.FieldName = 'OurBankName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 92 Width = 120
end end
object Tv1Column2: TcxGridDBColumn object Tv1OurBankCardNo: TcxGridDBColumn
Caption = #23545#26041#36134#25143 Caption = #25910#27454#36134#25143
DataBinding.FieldName = 'OppBankName' DataBinding.FieldName = 'OurBankCardNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 96 Width = 120
end end
object Tv1Column3: TcxGridDBColumn object Tv1Amount: TcxGridDBColumn
Caption = #20184#27454#26041#24335 Caption = #25910#27454#37329#39069
DataBinding.FieldName = 'PayMent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object Tv1Column19: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column20: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object Tv1Column21: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 74
end
object Tv1Column4: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column17: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount' DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 120
end end
object Tv1Column18: TcxGridDBColumn object Tv1Currency: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'Currency' DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 120
end end
object Tv1Column5: TcxGridDBColumn object Tv1Note: TcxGridDBColumn
Caption = #26680#38144#37329#39069 Caption = #20132#26131#38468#35328
DataBinding.FieldName = 'FFWoAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column6: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 89 Width = 120
end end
object Tv1Column7: TcxGridDBColumn object Tv1FJFlag: TcxGridDBColumn
Caption = #38468#20214 Caption = #38468#20214
DataBinding.FieldName = 'FJFlag' DataBinding.FieldName = 'FJFlag'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 51 Width = 120
end
object Tv1IVNo: TcxGridDBColumn
Caption = #21457#31080#21495
DataBinding.FieldName = 'IVNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel

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

@ -34,24 +34,23 @@ type
OppCoName: TcxTextEdit; OppCoName: TcxTextEdit;
cxGrid1: TcxGrid; cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v2CRTime: TcxGridDBColumn; Tv1FFTime: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
DS_1: TDataSource; DS_1: TDataSource;
CDS_1: TClientDataSet; CDS_1: TClientDataSet;
btnAdd: TToolButton; btnAdd: TToolButton;
v2FactoryName: TcxGridDBColumn; Tv1OppCoName: TcxGridDBColumn;
F_Name: TcxTextEdit; F_Name: TcxTextEdit;
Label4: TLabel; Label4: TLabel;
Label6: TLabel; Label6: TLabel;
P_Code: TcxTextEdit; P_Code: TcxTextEdit;
v2OrderNo: TcxGridDBColumn;
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
Label10: TLabel; Label10: TLabel;
ConNo: TcxTextEdit; ConNo: TcxTextEdit;
Label11: TLabel; Label11: TLabel;
BuyConNo: TcxTextEdit; BuyConNo: TcxTextEdit;
v2Column2: TcxGridDBColumn; Tv1OurCoName: TcxGridDBColumn;
btnChk: TToolButton; btnChk: TToolButton;
btnReChk: TToolButton; btnReChk: TToolButton;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
@ -62,29 +61,26 @@ type
ToolButton5: TToolButton; ToolButton5: TToolButton;
N2: TMenuItem; N2: TMenuItem;
btnEdit: TToolButton; btnEdit: TToolButton;
Tv1Column1: TcxGridDBColumn; Tv1OurBankName: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Amount: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1Currency: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn; Tv1SSel: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
Tv1Column22: TcxGridDBColumn;
ToolButton7: TToolButton; ToolButton7: TToolButton;
ToolButton8: TToolButton; ToolButton8: TToolButton;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
ToolButton9: TToolButton; ToolButton9: TToolButton;
N3: TMenuItem; N3: TMenuItem;
Tv1Column6: TcxGridDBColumn; Tv1Note: TcxGridDBColumn;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv1Column7: TcxGridDBColumn; Tv1FJFlag: TcxGridDBColumn;
Label1: TLabel; Label1: TLabel;
begdate: TcxDateEdit; begdate: TcxDateEdit;
Enddate: TcxDateEdit; Enddate: TcxDateEdit;
CheckBox1: TcxCheckBox; CheckBox1: TcxCheckBox;
TBInvoice: TToolButton; TBInvoice: TToolButton;
Tv1ourShuiNo: TcxGridDBColumn;
Tv1oppShuiNo: TcxGridDBColumn;
Tv1OurBankCardNo: TcxGridDBColumn;
Tv1IVNo: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);

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

@ -252,11 +252,9 @@ inherited frmCustStatement: TfrmCustStatement
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column1
end end
item item
Kind = skSum Kind = skSum
Column = Tv2Column2
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -266,6 +264,14 @@ inherited frmCustStatement: TfrmCustStatement
OptionsSelection.CellSelect = False OptionsSelection.CellSelect = False
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
object Tv2oppshuino: TcxGridDBColumn
Caption = #31246#21495
DataBinding.FieldName = 'oppshuino'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Caption = #23545#26041#21333#20301 Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName' DataBinding.FieldName = 'OppCoName'
@ -316,22 +322,6 @@ inherited frmCustStatement: TfrmCustStatement
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 104 Width = 104
end end
object Tv2Column1: TcxGridDBColumn
Caption = #26412#26399#27424#31080
DataBinding.FieldName = 'BQWKTaxAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object Tv2Column2: TcxGridDBColumn
Caption = #26412#26399#24320#31080
DataBinding.FieldName = 'BQYKTaxAmount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv2 GridView = Tv2
@ -346,17 +336,21 @@ inherited frmCustStatement: TfrmCustStatement
TabOrder = 3 TabOrder = 3
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 11 Properties.Style = 11
Properties.TabIndex = 1 Properties.TabIndex = 0
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
' $ ' ' USD '
' '#65509' ' ' CNY '
' '#8364' ') ' VND ')
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end
inherited cxProgressBar2: TcxProgressBar inherited cxProgressBar2: TcxProgressBar
Left = 280
Top = 128
ExplicitLeft = 280
ExplicitTop = 128
ExplicitHeight = 29 ExplicitHeight = 29
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery

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

@ -48,14 +48,13 @@ type
ADOQueryPrint: TADOQuery; ADOQueryPrint: TADOQuery;
cxTabControl1: TcxTabControl; cxTabControl1: TcxTabControl;
ToolButton1: TToolButton; ToolButton1: TToolButton;
Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
ToolButton5: TToolButton; ToolButton5: TToolButton;
ToolButton6: TToolButton; ToolButton6: TToolButton;
Label2: TLabel; Label2: TLabel;
begdate: TcxDateEdit; begdate: TcxDateEdit;
Enddate: TcxDateEdit; Enddate: TcxDateEdit;
Label4: TLabel; Label4: TLabel;
Tv2oppshuino: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -109,10 +108,9 @@ begin
end; end;
2: 2:
begin begin
sql.Add(' ,@Currency=''EUR'' '); sql.Add(' ,@Currency=''VND'' ');
end; end;
end; end;
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_HZ); SCreateCDS(ADOQueryMain, CDS_HZ);
@ -202,7 +200,7 @@ begin
end; end;
2: 2:
begin begin
FCurrency := 'EUR'; FCurrency := 'VND';
end; end;
end; end;
show; show;

3
A09财务通用管理/U_FtyStatement.dfm
View File

@ -341,13 +341,14 @@ inherited frmFtyStatement: TfrmFtyStatement
TabOrder = 3 TabOrder = 3
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 11 Properties.Style = 11
Properties.TabIndex = 1 Properties.TabIndex = 0
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
' USD ' ' USD '
' CNY ' ' CNY '
' VND ') ' VND ')
LookAndFeel.Kind = lfUltraFlat LookAndFeel.Kind = lfUltraFlat
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 78
ClientRectRight = 0 ClientRectRight = 0
ClientRectTop = 0 ClientRectTop = 0
end end

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

@ -220,6 +220,7 @@ begin
FieldByName('FFID').Value := Maxno; FieldByName('FFID').Value := Maxno;
FieldByName('FFFlag').Value := '壇澗澗'; FieldByName('FFFlag').Value := '壇澗澗';
FieldByName('FFType').Value := '壇澗운되션'; FieldByName('FFType').Value := '壇澗운되션';
FieldByName('FFQtyFlag').Value := 1;
FieldByName('CheckStatus').Value := '灌<>뵙'; FieldByName('CheckStatus').Value := '灌<>뵙';

177
A09财务通用管理/U_GetableSel.dfm
View File

@ -9,6 +9,7 @@ inherited frmGetableSel: TfrmGetableSel
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -89
ExplicitWidth = 1422 ExplicitWidth = 1422
ExplicitHeight = 611 ExplicitHeight = 611
PixelsPerInch = 96 PixelsPerInch = 96
@ -141,15 +142,12 @@ inherited frmGetableSel: TfrmGetableSel
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column15
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column16
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column17
end end
item item
Kind = skSum Kind = skSum
@ -157,7 +155,6 @@ inherited frmGetableSel: TfrmGetableSel
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column25
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.GoToNextCellOnEnter = True
@ -185,7 +182,7 @@ inherited frmGetableSel: TfrmGetableSel
Properties.ShowTime = False Properties.ShowTime = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 82 Width = 100
end end
object v2OurCoName: TcxGridDBColumn object v2OurCoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301 Caption = #25105#26041#21333#20301
@ -201,14 +198,14 @@ inherited frmGetableSel: TfrmGetableSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 79 Width = 100
end end
object Tv1BuyConNo: TcxGridDBColumn object Tv1BuyConNo: TcxGridDBColumn
Caption = #38754#26009#21512#21516#21495 Caption = #38754#26009#21512#21516#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 117 Width = 100
end end
object Tv1ConNo: TcxGridDBColumn object Tv1ConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495 Caption = #22383#24067#21512#21516#21495
@ -216,7 +213,7 @@ inherited frmGetableSel: TfrmGetableSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 98 Width = 100
end end
object Tv1OrderNo: TcxGridDBColumn object Tv1OrderNo: TcxGridDBColumn
Caption = #32455#36896#21333#21495 Caption = #32455#36896#21333#21495
@ -224,7 +221,7 @@ inherited frmGetableSel: TfrmGetableSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 82 Width = 100
end end
object Tv1F_Code: TcxGridDBColumn object Tv1F_Code: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
@ -232,7 +229,7 @@ inherited frmGetableSel: TfrmGetableSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1F_Name: TcxGridDBColumn object Tv1F_Name: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
@ -240,7 +237,7 @@ inherited frmGetableSel: TfrmGetableSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1F_Width: TcxGridDBColumn object Tv1F_Width: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
@ -248,7 +245,7 @@ inherited frmGetableSel: TfrmGetableSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1F_GramWeight: TcxGridDBColumn object Tv1F_GramWeight: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
@ -256,7 +253,7 @@ inherited frmGetableSel: TfrmGetableSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1F_Color: TcxGridDBColumn object Tv1F_Color: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
@ -264,7 +261,7 @@ inherited frmGetableSel: TfrmGetableSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1F_ColorNo: TcxGridDBColumn object Tv1F_ColorNo: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
@ -272,7 +269,7 @@ inherited frmGetableSel: TfrmGetableSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1Piece: TcxGridDBColumn object Tv1Piece: TcxGridDBColumn
Caption = #21305#25968 Caption = #21305#25968
@ -280,7 +277,7 @@ inherited frmGetableSel: TfrmGetableSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1Qty: TcxGridDBColumn object Tv1Qty: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
@ -288,133 +285,79 @@ inherited frmGetableSel: TfrmGetableSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object v2FactoryName: TcxGridDBColumn object Tv1QtyUnit: TcxGridDBColumn
Caption = #23545#26041#21333#20301
DataBinding.FieldName = 'OppCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 102
end
object v2OrderNo: TcxGridDBColumn
Tag = 7
Caption = #19978#32423#21333#20301
DataBinding.FieldName = 'OppParentCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object Tv1Column3: TcxGridDBColumn
Caption = #20184#27454#26041#24335
DataBinding.FieldName = 'PayMent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 91
end
object Tv1Column6: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'F_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column28: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'F_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object Tv1Column27: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'FJFlag'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 48
end
object Tv1Column13: TcxGridDBColumn
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1Column14: TcxGridDBColumn object Tv1Currency: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column15: TcxGridDBColumn
Caption = #20854#20182#36153
DataBinding.FieldName = 'OtherFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column16: TcxGridDBColumn
Caption = #20943#20813
DataBinding.FieldName = 'Deduction'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column17: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column18: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
DataBinding.FieldName = 'Currency' DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1Column25: TcxGridDBColumn object Tv1NoTaxPrice: TcxGridDBColumn
Caption = #26680#38144#37329#39069 Caption = #19981#21547#31246#21333#20215
DataBinding.FieldName = 'FFWoAmount' DataBinding.FieldName = 'NoTaxPrice'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100
end end
object Tv1Column26: TcxGridDBColumn object Tv1NoTaxInclude: TcxGridDBColumn
Caption = #26159#21542#21547#31246 Caption = #19981#21547#31246#37329#39069
DataBinding.FieldName = 'IsInvoice' DataBinding.FieldName = 'NoTaxInclude'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 78
end
object Tv1Column1: TcxGridDBColumn
Caption = #26469#28304
DataBinding.FieldName = 'FromID1'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 100
end end
object Tv1Column2: TcxGridDBColumn object Tv1TaxRate: TcxGridDBColumn
Caption = #31246#29575
DataBinding.FieldName = 'TaxRate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Tax: TcxGridDBColumn
Caption = #31246#39069
DataBinding.FieldName = 'Tax'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1TaxInclude: TcxGridDBColumn
Caption = #21547#31246#37329#39069
DataBinding.FieldName = 'TaxInclude'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end
object Tv1Note: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 100
end
object Tv1FromID1: TcxGridDBColumn
Caption = #26469#28304
DataBinding.FieldName = 'FromID1'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 100
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel

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

@ -42,35 +42,28 @@ type
Tv1Column22: TcxGridDBColumn; Tv1Column22: TcxGridDBColumn;
v2CRTime: TcxGridDBColumn; v2CRTime: TcxGridDBColumn;
v2OurCoName: TcxGridDBColumn; v2OurCoName: TcxGridDBColumn;
v2FactoryName: TcxGridDBColumn;
v2OrderNo: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1ConNo: TcxGridDBColumn; Tv1ConNo: TcxGridDBColumn;
Tv1FFAbstract: TcxGridDBColumn; Tv1FFAbstract: TcxGridDBColumn;
Tv1OrderNo: TcxGridDBColumn; Tv1OrderNo: TcxGridDBColumn;
Tv1BuyConNo: TcxGridDBColumn; Tv1BuyConNo: TcxGridDBColumn;
Tv1F_Code: TcxGridDBColumn; Tv1F_Code: TcxGridDBColumn;
Tv1F_Name: TcxGridDBColumn; Tv1F_Name: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1F_Color: TcxGridDBColumn; Tv1F_Color: TcxGridDBColumn;
Tv1Column28: TcxGridDBColumn;
Tv1F_Width: TcxGridDBColumn; Tv1F_Width: TcxGridDBColumn;
Tv1F_GramWeight: TcxGridDBColumn; Tv1F_GramWeight: TcxGridDBColumn;
Tv1F_ColorNo: TcxGridDBColumn; Tv1F_ColorNo: TcxGridDBColumn;
Tv1Column27: TcxGridDBColumn;
Tv1Piece: TcxGridDBColumn; Tv1Piece: TcxGridDBColumn;
Tv1Qty: TcxGridDBColumn; Tv1Qty: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn; Tv1QtyUnit: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn; Tv1Currency: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn; Tv1FromID1: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn; Tv1Note: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel; cxGridLevel1: TcxGridLevel;
Tv1NoTaxPrice: TcxGridDBColumn;
Tv1NoTaxInclude: TcxGridDBColumn;
Tv1TaxRate: TcxGridDBColumn;
Tv1Tax: TcxGridDBColumn;
Tv1TaxInclude: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

14
A09财务通用管理/U_InvoiceInInPut.dfm
View File

@ -150,6 +150,20 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 77 Width = 77
end 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 object Tv1SupplierShuiNo: TcxGridDBColumn
Caption = #20379#24212#21830#31246#21495 Caption = #20379#24212#21830#31246#21495
DataBinding.FieldName = 'SupplierShuiNo' DataBinding.FieldName = 'SupplierShuiNo'

27
A09财务通用管理/U_InvoiceInInPut.pas
View File

@ -11,7 +11,7 @@ uses
DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit, DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit,
cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar,
dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters,
dxScrollbarAnnotations, cxCurrencyEdit; dxScrollbarAnnotations, cxCurrencyEdit, dxSkinWXI;
type type
TfrmInvoiceInInPut = class(TForm) TfrmInvoiceInInPut = class(TForm)
@ -48,6 +48,7 @@ type
Tv1fromFlow: TcxGridDBColumn; Tv1fromFlow: TcxGridDBColumn;
Tv1OurCoNo: TcxGridDBColumn; Tv1OurCoNo: TcxGridDBColumn;
Tv1SupplierNo: TcxGridDBColumn; Tv1SupplierNo: TcxGridDBColumn;
Tv1FIAbstract: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TSaveClick(Sender: TObject); procedure TSaveClick(Sender: TObject);
@ -68,6 +69,8 @@ type
procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer); procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer);
procedure Tv1AmountPropertiesEditValueChanged(Sender: TObject); procedure Tv1AmountPropertiesEditValueChanged(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure Tv1FIAbstractPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
private private
procedure initGrid(); procedure initGrid();
function SaveDate(): Boolean; function SaveDate(): Boolean;
@ -611,6 +614,28 @@ begin
end; end;
end; end;
procedure TfrmInvoiceInInPut.Tv1FIAbstractPropertiesButtonClick(Sender: TObject;
AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'FIAbstract2';
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 TfrmInvoiceInInPut.ButtonEdit(Sender: TObject; AButtonIndex: Integer); procedure TfrmInvoiceInInPut.ButtonEdit(Sender: TObject; AButtonIndex: Integer);
begin begin
try try

8
A09财务通用管理/U_InvoiceInList.dfm
View File

@ -339,6 +339,14 @@ inherited frmInvoiceInList: TfrmInvoiceInList
Options.Editing = False Options.Editing = False
Width = 79 Width = 79
end end
object Tv1FIAbstract: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FIAbstract'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object Tv1SupplierShuiNo: TcxGridDBColumn object Tv1SupplierShuiNo: TcxGridDBColumn
Caption = #20379#24212#21830#31246#21495 Caption = #20379#24212#21830#31246#21495
DataBinding.FieldName = 'SupplierShuiNo' DataBinding.FieldName = 'SupplierShuiNo'

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

@ -88,6 +88,7 @@ type
Tv1PayStatus: TcxGridDBColumn; Tv1PayStatus: TcxGridDBColumn;
Tv1PayTime: TcxGridDBColumn; Tv1PayTime: TcxGridDBColumn;
TbYFK: TToolButton; TbYFK: TToolButton;
Tv1FIAbstract: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

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

@ -194,6 +194,8 @@ begin
sql.Add(' select A.* '); sql.Add(' select A.* ');
sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''ÏúÏƱ'' and X.WBID=A.IVNo)>0 THEN 1 ELSE 0 END) AS BIT)'); sql.Add(',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 isnull(A.Status,''0'')=''0'' THEN ''δÉóºË'' WHEN A.Status=''9'' THEN ''ÒÑÉóºË'' ELSE '''' END'); sql.Add(',checkStatus=CASE WHEN isnull(A.Status,''0'')=''0'' THEN ''δÉóºË'' WHEN A.Status=''9'' THEN ''ÒÑÉóºË'' ELSE '''' END');
sql.Add(',PayStatus=CASE WHEN EXISTS(SELECT 1 FROM Finance_Flow F WHERE F.FFType=''澗운되션'' AND F.IVID=A.IVID) THEN ''綠澗운'' ELSE ''灌澗운'' END');
sql.Add(',PayTime=(SELECT F.FFTime FROM Finance_Flow F WHERE F.FFType=''澗운되션'' AND F.IVID=A.IVID)');
sql.Add(' from Finance_Invoice A '); sql.Add(' from Finance_Invoice A ');
sql.add(' where A.IVDate>=''' + formatdatetime('yyyy-MM-dd', begdate.Date) + ''' '); sql.add(' where A.IVDate>=''' + formatdatetime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add(' and A.IVDate<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' '); sql.Add(' and A.IVDate<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');

52
A09财务通用管理/U_PayableSel.dfm
View File

@ -157,7 +157,7 @@ inherited frmPayableSel: TfrmPayableSel
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 43 Width = 66
end end
object Tv1FFTime: TcxGridDBColumn object Tv1FFTime: TcxGridDBColumn
Caption = #30331#35760#26085#26399 Caption = #30331#35760#26085#26399
@ -168,14 +168,14 @@ inherited frmPayableSel: TfrmPayableSel
Properties.ShowTime = False Properties.ShowTime = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 82 Width = 100
end end
object TV1OurCoName: TcxGridDBColumn object TV1OurCoName: TcxGridDBColumn
Caption = #25105#26041#21333#20301 Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName' DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 91 Width = 100
end end
object Tv1OppCoName: TcxGridDBColumn object Tv1OppCoName: TcxGridDBColumn
Caption = #23545#26041#21333#20301 Caption = #23545#26041#21333#20301
@ -189,7 +189,7 @@ inherited frmPayableSel: TfrmPayableSel
end> end>
Properties.OnButtonClick = Tv1OppCoNamePropertiesButtonClick Properties.OnButtonClick = Tv1OppCoNamePropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 83 Width = 100
end end
object Tv1FFAbstract: TcxGridDBColumn object Tv1FFAbstract: TcxGridDBColumn
Caption = #25688#35201 Caption = #25688#35201
@ -203,7 +203,7 @@ inherited frmPayableSel: TfrmPayableSel
end> end>
Properties.OnButtonClick = Tv1FFAbstractPropertiesButtonClick Properties.OnButtonClick = Tv1FFAbstractPropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 100
end end
object Tv1PurNo: TcxGridDBColumn object Tv1PurNo: TcxGridDBColumn
Caption = #37319#36141#21333#21495 Caption = #37319#36141#21333#21495
@ -218,7 +218,7 @@ inherited frmPayableSel: TfrmPayableSel
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = Tv1PurNoPropertiesButtonClick Properties.OnButtonClick = Tv1PurNoPropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 81 Width = 100
end end
object Tv1OrderNo: TcxGridDBColumn object Tv1OrderNo: TcxGridDBColumn
Caption = #32455#36896#21333#21495 Caption = #32455#36896#21333#21495
@ -233,21 +233,21 @@ inherited frmPayableSel: TfrmPayableSel
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = Tv1OrderNoPropertiesButtonClick Properties.OnButtonClick = Tv1OrderNoPropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 91 Width = 100
end end
object Tv1ConNo: TcxGridDBColumn object Tv1ConNo: TcxGridDBColumn
Caption = #22383#24067#21512#21516#21495 Caption = #22383#24067#21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 112 Width = 100
end end
object Tv1BuyConNo: TcxGridDBColumn object Tv1BuyConNo: TcxGridDBColumn
Caption = #38754#26009#21512#21516#21495 Caption = #38754#26009#21512#21516#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 127 Width = 100
end end
object Tv1FinType: TcxGridDBColumn object Tv1FinType: TcxGridDBColumn
Caption = #31867#22411 Caption = #31867#22411
@ -260,49 +260,49 @@ inherited frmPayableSel: TfrmPayableSel
#22383#24067 #22383#24067
#26426#29289#26009) #26426#29289#26009)
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 100
end end
object Tv1F_Code: TcxGridDBColumn object Tv1F_Code: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'F_Code' DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 100
end end
object Tv1F_Name: TcxGridDBColumn object Tv1F_Name: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'F_Name' DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 85 Width = 100
end end
object Tv1F_Width: TcxGridDBColumn object Tv1F_Width: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'F_Width' DataBinding.FieldName = 'F_Width'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 88 Width = 100
end end
object Tv1F_GramWeight: TcxGridDBColumn object Tv1F_GramWeight: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'F_GramWeight' DataBinding.FieldName = 'F_GramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 100
end end
object Tv1F_Color: TcxGridDBColumn object Tv1F_Color: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'F_Color' DataBinding.FieldName = 'F_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 100
end end
object Tv1Piece: TcxGridDBColumn object Tv1Piece: TcxGridDBColumn
Caption = #21305#25968 Caption = #21305#25968
DataBinding.FieldName = 'Piece' DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 65 Width = 100
end end
object Tv1Qty: TcxGridDBColumn object Tv1Qty: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
@ -311,14 +311,14 @@ inherited frmPayableSel: TfrmPayableSel
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 76 Width = 100
end end
object Tv1QtyUnit: TcxGridDBColumn object Tv1QtyUnit: TcxGridDBColumn
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 63 Width = 100
end end
object Tv1Currency: TcxGridDBColumn object Tv1Currency: TcxGridDBColumn
Caption = #24065#31181 Caption = #24065#31181
@ -332,7 +332,7 @@ inherited frmPayableSel: TfrmPayableSel
'VND') 'VND')
Properties.OnChange = Tv1CurrencyPropertiesChange Properties.OnChange = Tv1CurrencyPropertiesChange
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 100
end end
object Tv1NoTaxPrice: TcxGridDBColumn object Tv1NoTaxPrice: TcxGridDBColumn
Caption = #19981#21547#31246#21333#20215 Caption = #19981#21547#31246#21333#20215
@ -341,14 +341,14 @@ inherited frmPayableSel: TfrmPayableSel
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 99 Width = 100
end end
object Tv1NoTaxInclude: TcxGridDBColumn object Tv1NoTaxInclude: TcxGridDBColumn
Caption = #19981#21547#31246#37329#39069 Caption = #19981#21547#31246#37329#39069
DataBinding.FieldName = 'NoTaxInclude' DataBinding.FieldName = 'NoTaxInclude'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 108 Width = 100
end end
object Tv1TaxRate: TcxGridDBColumn object Tv1TaxRate: TcxGridDBColumn
Caption = #31246#29575 Caption = #31246#29575
@ -357,7 +357,7 @@ inherited frmPayableSel: TfrmPayableSel
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged Properties.OnEditValueChanged = Tv1TaxRatePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 100
end end
object Tv1Tax: TcxGridDBColumn object Tv1Tax: TcxGridDBColumn
Caption = #31246#39069 Caption = #31246#39069
@ -365,28 +365,28 @@ inherited frmPayableSel: TfrmPayableSel
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 85 Width = 100
end end
object Tv1TaxInclude: TcxGridDBColumn object Tv1TaxInclude: TcxGridDBColumn
Caption = #21547#31246#37329#39069 Caption = #21547#31246#37329#39069
DataBinding.FieldName = 'TaxInclude' DataBinding.FieldName = 'TaxInclude'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 96 Width = 100
end end
object Tv1Note: TcxGridDBColumn object Tv1Note: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 78 Width = 100
end end
object Tv1FromID1: TcxGridDBColumn object Tv1FromID1: TcxGridDBColumn
Caption = #26469#28304 Caption = #26469#28304
DataBinding.FieldName = 'FromID1' DataBinding.FieldName = 'FromID1'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 100
end end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel

310
A09财务通用管理/U_SingleCustStatement.dfm
View File

@ -209,7 +209,6 @@ object frmSingleCustStatement: TfrmSingleCustStatement
end end
item item
Kind = skSum Kind = skSum
Column = V1Column7
end end
item item
Kind = skSum Kind = skSum
@ -225,15 +224,14 @@ object frmSingleCustStatement: TfrmSingleCustStatement
end end
item item
Kind = skSum Kind = skSum
Column = V1Column12 Column = Tv1BQSKAmount
end end
item item
Kind = skSum Kind = skSum
Column = V1Column9 Column = Tv1BQYSAmount
end end
item item
Kind = skSum Kind = skSum
Column = V1Column16
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -243,105 +241,14 @@ object frmSingleCustStatement: TfrmSingleCustStatement
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
Bands = < Bands = <
item item
Width = 944
end end
item item
Caption = #23545#36134#20449#24687 Caption = #23545#36134#20449#24687
Width = 396 Width = 474
end
item
Caption = #24320#31080#20449#24687
Width = 287
end
item
Caption = #35814#32454#20449#24687
Width = 941
end> end>
object V1Column2: TcxGridDBBandedColumn object Tv1BQYSAmount: TcxGridDBBandedColumn
Caption = #23545#36134#26085#26399 Caption = #24635#37329#39069#24050#21547#31246
DataBinding.FieldName = 'ReconciliationDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 79
Position.BandIndex = 0
Position.ColIndex = 1
Position.RowIndex = 0
end
object V1Column4: TcxGridDBBandedColumn
Caption = #32534#21495
DataBinding.FieldName = 'F_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 87
Position.BandIndex = 3
Position.ColIndex = 3
Position.RowIndex = 0
end
object V1Column5: TcxGridDBBandedColumn
Caption = #21697#21517
DataBinding.FieldName = 'F_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 91
Position.BandIndex = 3
Position.ColIndex = 4
Position.RowIndex = 0
end
object V1Column6: TcxGridDBBandedColumn
Caption = #35268#26684
DataBinding.FieldName = 'F_Spec'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 92
Position.BandIndex = 3
Position.ColIndex = 5
Position.RowIndex = 0
end
object V1Column7: TcxGridDBBandedColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 77
Position.BandIndex = 3
Position.ColIndex = 8
Position.RowIndex = 0
end
object V1Column8: TcxGridDBBandedColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 84
Position.BandIndex = 3
Position.ColIndex = 10
Position.RowIndex = 0
end
object V1Column9: TcxGridDBBandedColumn
Caption = #24212#25910#37329#39069
DataBinding.FieldName = 'BQYSAmount' DataBinding.FieldName = 'BQYSAmount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
@ -354,7 +261,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Position.ColIndex = 0 Position.ColIndex = 0
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column12: TcxGridDBBandedColumn object Tv1BQSKAmount: TcxGridDBBandedColumn
Caption = #25910#27454#37329#39069 Caption = #25910#27454#37329#39069
DataBinding.FieldName = 'BQSKAmount' DataBinding.FieldName = 'BQSKAmount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -368,8 +275,8 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Position.ColIndex = 1 Position.ColIndex = 1
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column15: TcxGridDBBandedColumn object Tv1BQJYAmount: TcxGridDBBandedColumn
Caption = #32047#35745#20313#39069 Caption = #20313#39069
DataBinding.FieldName = 'BQJYAmount' DataBinding.FieldName = 'BQJYAmount'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
@ -382,35 +289,6 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Position.ColIndex = 2 Position.ColIndex = 2
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column3: TcxGridDBBandedColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 129
Position.BandIndex = 3
Position.ColIndex = 1
Position.RowIndex = 0
end
object V1Column10: TcxGridDBBandedColumn
DataBinding.FieldName = 'CWID'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
VisibleForCustomization = False
Width = 45
Position.BandIndex = 3
Position.ColIndex = 0
Position.RowIndex = 0
end
object V1Column14: TcxGridDBBandedColumn object V1Column14: TcxGridDBBandedColumn
Caption = #24207#21495 Caption = #24207#21495
DataBinding.FieldName = 'keyNO' DataBinding.FieldName = 'keyNO'
@ -425,36 +303,8 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Position.ColIndex = 0 Position.ColIndex = 0
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column16: TcxGridDBBandedColumn object Tv1IVNo: TcxGridDBBandedColumn
Caption = #24320#31080#37329#39069 Caption = #21457#31080#21495#30721
DataBinding.FieldName = 'BQKPAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 72
Position.BandIndex = 2
Position.ColIndex = 1
Position.RowIndex = 0
end
object V1Column17: TcxGridDBBandedColumn
Caption = #32047#35745#27424#31080
DataBinding.FieldName = 'BQWKPAmount'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 119
Position.BandIndex = 2
Position.ColIndex = 2
Position.RowIndex = 0
end
object V1Column20: TcxGridDBBandedColumn
Caption = #31080#21495
DataBinding.FieldName = 'IVNo' DataBinding.FieldName = 'IVNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
@ -463,52 +313,10 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Options.Editing = False Options.Editing = False
Options.Moving = False Options.Moving = False
Width = 91 Width = 91
Position.BandIndex = 2 Position.BandIndex = 0
Position.ColIndex = 0
Position.RowIndex = 0
end
object V1Column21: TcxGridDBBandedColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 68
Position.BandIndex = 3
Position.ColIndex = 2 Position.ColIndex = 2
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column22: TcxGridDBBandedColumn
Caption = #21305#25968
DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 71
Position.BandIndex = 3
Position.ColIndex = 7
Position.RowIndex = 0
end
object V1Column23: TcxGridDBBandedColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 64
Position.BandIndex = 3
Position.ColIndex = 6
Position.RowIndex = 0
end
object V1Column25: TcxGridDBBandedColumn object V1Column25: TcxGridDBBandedColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'MxNote' DataBinding.FieldName = 'MxNote'
@ -522,32 +330,6 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Position.ColIndex = -1 Position.ColIndex = -1
Position.RowIndex = -1 Position.RowIndex = -1
end end
object V1Column26: TcxGridDBBandedColumn
Caption = #22791#27880
DataBinding.FieldName = 'YMxNote'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 58
Position.BandIndex = 3
Position.ColIndex = 9
Position.RowIndex = 0
end
object V1Column33: TcxGridDBBandedColumn
Caption = #20854#20182#36153
DataBinding.FieldName = 'OtherFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Moving = False
Width = 83
Position.BandIndex = 3
Position.ColIndex = 11
Position.RowIndex = 0
end
object V1Column34: TcxGridDBBandedColumn object V1Column34: TcxGridDBBandedColumn
Caption = #36135#27454 Caption = #36135#27454
DataBinding.FieldName = 'HKMONEY' DataBinding.FieldName = 'HKMONEY'
@ -560,16 +342,70 @@ object frmSingleCustStatement: TfrmSingleCustStatement
Position.ColIndex = -1 Position.ColIndex = -1
Position.RowIndex = -1 Position.RowIndex = -1
end end
object TV1Column1: TcxGridDBBandedColumn object TV1ReconciliationDate: TcxGridDBBandedColumn
Caption = #20943#20813#37329#39069 Caption = #21457#31080#26085#26399
DataBinding.FieldName = 'Deduction' DataBinding.FieldName = 'ReconciliationDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Filtering = False
Width = 80
Position.BandIndex = 0
Position.ColIndex = 1
Position.RowIndex = 0
end
object TV1BGDNum: TcxGridDBBandedColumn
Caption = #25253#20851#21333#21495#30721
DataBinding.FieldName = 'BGDNum'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Moving = False Width = 80
Width = 78 Position.BandIndex = 0
Position.BandIndex = 3 Position.ColIndex = 3
Position.ColIndex = 12 Position.RowIndex = 0
end
object TV1BankSlipNumber: TcxGridDBBandedColumn
Caption = #27700#21333#32534#21495
DataBinding.FieldName = 'BankSlipNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = 0
Position.ColIndex = 4
Position.RowIndex = 0
end
object TV1oppShuiNo: TcxGridDBBandedColumn
Caption = #31246#21495
DataBinding.FieldName = 'oppShuiNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = 0
Position.ColIndex = 5
Position.RowIndex = 0
end
object TV1oppconame: TcxGridDBBandedColumn
Caption = #23458#25143#21517#31216
DataBinding.FieldName = 'oppconame'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = 0
Position.ColIndex = 6
Position.RowIndex = 0
end
object TV1Currency: TcxGridDBBandedColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
Position.BandIndex = 0
Position.ColIndex = 7
Position.RowIndex = 0 Position.RowIndex = 0
end end
end end

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

@ -49,31 +49,21 @@ type
RMXLSExport1: TRMXLSExport; RMXLSExport1: TRMXLSExport;
ADOQueryPrint: TADOQuery; ADOQueryPrint: TADOQuery;
TV1: TcxGridDBBandedTableView; TV1: TcxGridDBBandedTableView;
V1Column2: TcxGridDBBandedColumn; Tv1BQYSAmount: TcxGridDBBandedColumn;
V1Column4: TcxGridDBBandedColumn; Tv1BQSKAmount: TcxGridDBBandedColumn;
V1Column5: TcxGridDBBandedColumn; Tv1BQJYAmount: TcxGridDBBandedColumn;
V1Column6: TcxGridDBBandedColumn;
V1Column7: TcxGridDBBandedColumn;
V1Column8: TcxGridDBBandedColumn;
V1Column9: TcxGridDBBandedColumn;
V1Column12: TcxGridDBBandedColumn;
V1Column15: TcxGridDBBandedColumn;
V1Column3: TcxGridDBBandedColumn;
V1Column10: TcxGridDBBandedColumn;
V1Column14: TcxGridDBBandedColumn; V1Column14: TcxGridDBBandedColumn;
V1Column16: TcxGridDBBandedColumn; Tv1IVNo: TcxGridDBBandedColumn;
V1Column17: TcxGridDBBandedColumn;
V1Column20: TcxGridDBBandedColumn;
V1Column21: TcxGridDBBandedColumn;
V1Column22: TcxGridDBBandedColumn;
V1Column23: TcxGridDBBandedColumn;
V1Column25: TcxGridDBBandedColumn; V1Column25: TcxGridDBBandedColumn;
V1Column26: TcxGridDBBandedColumn;
V1Column33: TcxGridDBBandedColumn;
V1Column34: TcxGridDBBandedColumn; V1Column34: TcxGridDBBandedColumn;
OppCoName: TEdit; OppCoName: TEdit;
ToolButton2: TToolButton; ToolButton2: TToolButton;
TV1Column1: TcxGridDBBandedColumn; TV1ReconciliationDate: TcxGridDBBandedColumn;
TV1BGDNum: TcxGridDBBandedColumn;
TV1BankSlipNumber: TcxGridDBBandedColumn;
TV1oppShuiNo: TcxGridDBBandedColumn;
TV1oppconame: TcxGridDBBandedColumn;
TV1Currency: TcxGridDBBandedColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);

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

@ -378,7 +378,7 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
Position.ColIndex = 0 Position.ColIndex = 0
Position.RowIndex = 0 Position.RowIndex = 0
end end
object V1Column20: TcxGridDBBandedColumn object Tv1IVNo: TcxGridDBBandedColumn
Caption = #21457#31080#21495#30721 Caption = #21457#31080#21495#30721
DataBinding.FieldName = 'IVNo' DataBinding.FieldName = 'IVNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True

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

@ -56,7 +56,7 @@ type
V1Column15: TcxGridDBBandedColumn; V1Column15: TcxGridDBBandedColumn;
V1Column10: TcxGridDBBandedColumn; V1Column10: TcxGridDBBandedColumn;
V1Column14: TcxGridDBBandedColumn; V1Column14: TcxGridDBBandedColumn;
V1Column20: TcxGridDBBandedColumn; Tv1IVNo: TcxGridDBBandedColumn;
V1Column25: TcxGridDBBandedColumn; V1Column25: TcxGridDBBandedColumn;
V1Column34: TcxGridDBBandedColumn; V1Column34: TcxGridDBBandedColumn;
OppCoName: TEdit; OppCoName: TEdit;