财务
This commit is contained in:
parent
0b725ddbdb
commit
9766d2a628
|
|
@ -1,70 +1,70 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>1899/12/30 00:00:00.000.742,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.979,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm</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.895,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_InvoiceOutList.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.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.159,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatementWriteOff.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.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.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.885,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ExpenseList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.772,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.987,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableInput.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.446,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.052,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CollectList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.381,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_ReceivableInput.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.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.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.874,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayableList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.765,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_BankFlowTotalList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.659,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_CustStatement.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.052,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_GETableBatchInput.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\A09财务通用管理\U_PayableBatchInput.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.727,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.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.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.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.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.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.912,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A09财务通用管理\U_PayList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.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_ExpenseInput.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.pas</Transaction>
|
||||
<Transaction>2026/05/22 14:42:09.000.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_ExpenseInput.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_CollectInput2.dfm</Transaction>
|
||||
<Transaction>2026/05/22 14:42:09.000.263,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_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 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_InvoiceSel.pas=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.pas</Transaction>
|
||||
<Transaction>2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceSel.dfm=D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_InvoiceOutSel.dfm</Transaction>
|
||||
<Transaction>2026/05/22 15:10:56.000.683,D:\D10V1W\项目代码\D10SZKaiXiYa\A09财务通用管理\U_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>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="..\..\D10SZKaiXiYa"/>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -19,7 +19,7 @@ inherited frmCollectList: TfrmCollectList
|
|||
Height = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 99
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
DisabledImages = DataLink_Financial.cxImageList_bar
|
||||
|
|
@ -37,7 +37,7 @@ inherited frmCollectList: TfrmCollectList
|
|||
OnClick = TBRafreshClick
|
||||
end
|
||||
object btnAdd: TToolButton
|
||||
Left = 71
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26032#22686
|
||||
|
|
@ -45,7 +45,7 @@ inherited frmCollectList: TfrmCollectList
|
|||
OnClick = btnAddClick
|
||||
end
|
||||
object btnEdit: TToolButton
|
||||
Left = 142
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20462#25913
|
||||
|
|
@ -53,7 +53,7 @@ inherited frmCollectList: TfrmCollectList
|
|||
OnClick = btnEditClick
|
||||
end
|
||||
object btnDel: TToolButton
|
||||
Left = 213
|
||||
Left = 189
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#38500
|
||||
|
|
@ -61,7 +61,7 @@ inherited frmCollectList: TfrmCollectList
|
|||
OnClick = btnDelClick
|
||||
end
|
||||
object btnChk: TToolButton
|
||||
Left = 284
|
||||
Left = 252
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23457#26680
|
||||
|
|
@ -69,7 +69,7 @@ inherited frmCollectList: TfrmCollectList
|
|||
OnClick = btnChkClick
|
||||
end
|
||||
object btnReChk: TToolButton
|
||||
Left = 355
|
||||
Left = 315
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#23457#26680
|
||||
|
|
@ -77,23 +77,33 @@ inherited frmCollectList: TfrmCollectList
|
|||
OnClick = btnReChkClick
|
||||
end
|
||||
object ToolButton7: TToolButton
|
||||
Left = 458
|
||||
Left = 402
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26680#38144
|
||||
ImageIndex = 3
|
||||
Visible = False
|
||||
OnClick = ToolButton7Click
|
||||
end
|
||||
object ToolButton8: TToolButton
|
||||
Left = 529
|
||||
Left = 465
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26680#38144#26085#24535
|
||||
ImageIndex = 4
|
||||
Visible = False
|
||||
OnClick = ToolButton8Click
|
||||
end
|
||||
object TBInvoice: TToolButton
|
||||
Left = 552
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#32852#21457#31080
|
||||
ImageIndex = 3
|
||||
OnClick = TBInvoiceClick
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 632
|
||||
Left = 639
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20837
|
||||
|
|
@ -101,7 +111,7 @@ inherited frmCollectList: TfrmCollectList
|
|||
OnClick = ToolButton1Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 703
|
||||
Left = 702
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
|
|
@ -109,7 +119,7 @@ inherited frmCollectList: TfrmCollectList
|
|||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton9: TToolButton
|
||||
Left = 774
|
||||
Left = 765
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #38468#20214
|
||||
|
|
@ -117,7 +127,7 @@ inherited frmCollectList: TfrmCollectList
|
|||
OnClick = ToolButton9Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 845
|
||||
Left = 828
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
|
|
@ -125,7 +135,7 @@ inherited frmCollectList: TfrmCollectList
|
|||
OnClick = ToolButton5Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 948
|
||||
Left = 915
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
|
|
|
|||
|
|
@ -84,6 +84,7 @@ type
|
|||
begdate: TcxDateEdit;
|
||||
Enddate: TcxDateEdit;
|
||||
CheckBox1: TcxCheckBox;
|
||||
TBInvoice: TToolButton;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure btnDelClick(Sender: TObject);
|
||||
|
|
@ -105,6 +106,7 @@ type
|
|||
procedure ToolButton9Click(Sender: TObject);
|
||||
procedure N3Click(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure TBInvoiceClick(Sender: TObject);
|
||||
private
|
||||
procedure InitGrid();
|
||||
procedure SetStatus();
|
||||
|
|
@ -116,7 +118,7 @@ implementation
|
|||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_CollectInput2, U_CollectInput, U_ZDYHelp, U_CollectWriteOff,
|
||||
U_CollectWriteOffList, U_AttachmentUpload, U_CollectImport;
|
||||
U_CollectWriteOffList, U_AttachmentUpload, U_CollectImport,U_InvoiceOutSel;
|
||||
|
||||
{$R *.dfm}
|
||||
procedure TfrmCollectList.SetStatus();
|
||||
|
|
@ -128,6 +130,7 @@ begin
|
|||
btnAdd.Enabled := false; //ÐÂÔö
|
||||
btnEdit.Enabled := false; //ÐÞ¸Ä
|
||||
btnDel.Enabled := false; //ɾ³ý
|
||||
TBInvoice.Enabled := false;
|
||||
|
||||
// if Trim(FAuthority) = '¹ÜÀí' then
|
||||
begin
|
||||
|
|
@ -138,6 +141,7 @@ begin
|
|||
btnEdit.Enabled := true;
|
||||
btnDel.Enabled := true;
|
||||
btnChk.Enabled := true;
|
||||
TBInvoice.Enabled := true;
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
|
|
@ -226,6 +230,135 @@ begin
|
|||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmCollectList.TBInvoiceClick(Sender: TObject);
|
||||
var
|
||||
FFFIDList: TStringList;
|
||||
IVID, IVNo: string;
|
||||
i: Integer;
|
||||
LogMsg: string;
|
||||
begin
|
||||
inherited;
|
||||
|
||||
if CDS_1.IsEmpty then Exit;
|
||||
if not CDS_1.Locate('SSel', True, []) then
|
||||
begin
|
||||
Application.MessageBox('请先勾选需要关联发票的收款记录！', '提示', MB_OK + MB_ICONINFORMATION);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
try
|
||||
frmInvoiceOutSel := TfrmInvoiceOutSel.Create(Application);
|
||||
frmInvoiceOutSel.cxTabControl1.TabIndex := 0;
|
||||
if frmInvoiceOutSel.ShowModal <> mrOk then
|
||||
Exit;
|
||||
if frmInvoiceOutSel.CDS_Invoice.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('未选择任何发票！', '提示', MB_OK + MB_ICONWARNING);
|
||||
Exit;
|
||||
end;
|
||||
IVID := frmInvoiceOutSel.CDS_Invoice.FieldByName('IVID').AsString;
|
||||
IVNo := frmInvoiceOutSel.CDS_Invoice.FieldByName('IVNo').AsString;
|
||||
if Trim(IVID) = '' then
|
||||
begin
|
||||
Application.MessageBox('发票数据异常，IVID 为空！', '提示', MB_OK + MB_ICONERROR);
|
||||
Exit;
|
||||
end;
|
||||
finally
|
||||
frmInvoiceOutSel.Free;
|
||||
end;
|
||||
|
||||
FFFIDList := TStringList.Create;
|
||||
try
|
||||
CDS_1.DisableControls;
|
||||
CDS_1.First;
|
||||
while not CDS_1.Eof do
|
||||
begin
|
||||
if CDS_1.FieldByName('SSel').AsBoolean then
|
||||
FFFIDList.Add(CDS_1.FieldByName('FFID').AsString);
|
||||
CDS_1.Next;
|
||||
end;
|
||||
|
||||
if FFFIDList.Count = 0 then
|
||||
begin
|
||||
Application.MessageBox('没有勾选任何收款记录！', '提示', MB_OK + MB_ICONINFORMATION);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
try
|
||||
for i := 0 to FFFIDList.Count - 1 do
|
||||
begin
|
||||
ADOQueryCmd.Close;
|
||||
ADOQueryCmd.SQL.Text := 'UPDATE Finance_Flow SET IVID = :IVID, IVNo = :IVNo WHERE FFID = :FFID';
|
||||
ADOQueryCmd.Parameters.ParamByName('IVID').Value := IVID;
|
||||
ADOQueryCmd.Parameters.ParamByName('IVNo').Value := IVNo;
|
||||
ADOQueryCmd.Parameters.ParamByName('FFID').Value := FFFIDList[i];
|
||||
ADOQueryCmd.ExecSQL;
|
||||
end;
|
||||
|
||||
CDS_1.First;
|
||||
while not CDS_1.Eof do
|
||||
begin
|
||||
if CDS_1.FieldByName('SSel').AsBoolean then
|
||||
begin
|
||||
CDS_1.Edit;
|
||||
CDS_1.FieldByName('IVID').Value := IVID;
|
||||
CDS_1.FieldByName('IVNo').Value := IVNo;
|
||||
CDS_1.Post;
|
||||
end;
|
||||
CDS_1.Next;
|
||||
end;
|
||||
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
|
||||
LogMsg := Format(
|
||||
'批量关联发票成功，发票号：%s，IVID：%s，影响记录数：%d，FFIDs：%s',
|
||||
[IVNo, IVID, FFFIDList.Count, FFFIDList.CommaText]
|
||||
);
|
||||
ADOQueryCmd.Close;
|
||||
ADOQueryCmd.SQL.Text :=
|
||||
'INSERT INTO SY_Syslog (Operor, OperTime, Model, Acction, OPEvent, Result) ' +
|
||||
'VALUES (:Operor, GETDATE(), :Model, :Acction, :OPEvent, :Result)';
|
||||
ADOQueryCmd.Parameters.ParamByName('Operor').Value := DName + '(' + DCode + ')';
|
||||
ADOQueryCmd.Parameters.ParamByName('Model').Value := '收款登记';
|
||||
ADOQueryCmd.Parameters.ParamByName('Acction').Value := '发票关联';
|
||||
ADOQueryCmd.Parameters.ParamByName('OPEvent').Value := LogMsg;
|
||||
ADOQueryCmd.Parameters.ParamByName('Result').Value := '成功';
|
||||
ADOQueryCmd.ExecSQL;
|
||||
|
||||
Application.MessageBox('发票关联成功！', '提示', MB_OK + MB_ICONINFORMATION);
|
||||
InitGrid;
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
LogMsg := Format(
|
||||
'批量关联发票失败，发票号：%s，IVID：%s，影响记录数：%d，FFIDs：%s，原因：%s',
|
||||
[IVNo, IVID, FFFIDList.Count, FFFIDList.CommaText, E.Message]
|
||||
);
|
||||
try
|
||||
ADOQueryCmd.Close;
|
||||
ADOQueryCmd.SQL.Text :=
|
||||
'INSERT INTO SY_Syslog (Operor, OperTime, Model, Acction, OPEvent, Result) ' +
|
||||
'VALUES (:Operor, GETDATE(), :Model, :Acction, :OPEvent, :Result)';
|
||||
ADOQueryCmd.Parameters.ParamByName('Operor').Value := DName + '(' + DCode + ')';
|
||||
ADOQueryCmd.Parameters.ParamByName('Model').Value := '收款登记';
|
||||
ADOQueryCmd.Parameters.ParamByName('Acction').Value := '发票关联';
|
||||
ADOQueryCmd.Parameters.ParamByName('OPEvent').Value := LogMsg;
|
||||
ADOQueryCmd.Parameters.ParamByName('Result').Value := '失败';
|
||||
ADOQueryCmd.ExecSQL;
|
||||
except
|
||||
end;
|
||||
Application.MessageBox(PChar('发票关联失败：' + E.Message), '错误', MB_OK + MB_ICONERROR);
|
||||
InitGrid;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
FFFIDList.Free;
|
||||
CDS_1.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmCollectList.btnDelClick(Sender: TObject);
|
||||
var
|
||||
FFFIDS: string;
|
||||
|
|
|
|||
|
|
@ -132,6 +132,11 @@ inherited frmGetableBatchInput: TfrmGetableBatchInput
|
|||
Format = '#,###.##'
|
||||
Kind = skSum
|
||||
Column = Tv1Tax
|
||||
end
|
||||
item
|
||||
Format = '#,###.##'
|
||||
Kind = skSum
|
||||
Column = Tv1Column2
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
|
|
|
|||
|
|
@ -724,9 +724,15 @@ begin
|
|||
self.CDS_1.FieldByName('BuyConMID').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('FROMCPMID').AsString);
|
||||
self.CDS_1.FieldByName('BuyConSID').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('FROMCPSID').AsString);
|
||||
|
||||
// self.CDS_1.FieldByName('F_Code').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Code').AsString);
|
||||
// self.CDS_1.FieldByName('F_Name').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Name').AsString);
|
||||
// self.CDS_1.FieldByName('F_Color').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Y_Color').AsString);
|
||||
self.CDS_1.FieldByName('F_Code').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Code').AsString);
|
||||
self.CDS_1.FieldByName('F_Name').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Name').AsString);
|
||||
self.CDS_1.FieldByName('F_Spec').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Spec').AsString);
|
||||
self.CDS_1.FieldByName('F_Pattern').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Pattern').AsString);
|
||||
self.CDS_1.FieldByName('F_Composition').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Composition').AsString);
|
||||
self.CDS_1.FieldByName('F_Color').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Color').AsString);
|
||||
self.CDS_1.FieldByName('F_Colorno').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Colorno').AsString);
|
||||
self.CDS_1.FieldByName('F_Width').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Width').AsString);
|
||||
self.CDS_1.FieldByName('F_GramWeight').AsString := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_GramWeight').AsString);
|
||||
// self.CDS_1.FieldByName('Piece').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Piece').AsString);
|
||||
// self.CDS_1.FieldByName('Qty').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('Qty').AsString);
|
||||
// self.CDS_1.FieldByName('QtyUnit').AsString := Trim(frmFinPurchasePlanSel.CDS_1.fieldbyname('QtyUnit').AsString);
|
||||
|
|
|
|||
|
|
@ -78,7 +78,7 @@ begin
|
|||
pswd := 'rightsoft,.KXY@YN';
|
||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||
Parameters1:='管理';
|
||||
Parameters1 := 'ÉóºË2';
|
||||
// Parameters1 := 'ÉóºË2';
|
||||
// Parameters1 := '付款';
|
||||
end
|
||||
else
|
||||
|
|
|
|||
|
|
@ -115,7 +115,6 @@ inherited frmGetableSel: TfrmGetableSel
|
|||
#20840#37096)
|
||||
LookAndFeel.Kind = lfUltraFlat
|
||||
OnChange = cxTabControl1Change
|
||||
ExplicitTop = 36
|
||||
ClientRectRight = 0
|
||||
ClientRectTop = 0
|
||||
end
|
||||
|
|
@ -126,10 +125,6 @@ inherited frmGetableSel: TfrmGetableSel
|
|||
Height = 513
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitLeft = -134
|
||||
ExplicitTop = 112
|
||||
ExplicitWidth = 1540
|
||||
ExplicitHeight = 460
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
|
|
@ -142,7 +137,7 @@ inherited frmGetableSel: TfrmGetableSel
|
|||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column12
|
||||
Column = Tv1Qty
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
|
|
@ -158,7 +153,7 @@ inherited frmGetableSel: TfrmGetableSel
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column11
|
||||
Column = Tv1Piece
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
|
|
@ -182,7 +177,7 @@ inherited frmGetableSel: TfrmGetableSel
|
|||
end
|
||||
object v2CRTime: TcxGridDBColumn
|
||||
Tag = 7
|
||||
Caption = #21457#29983#26085#26399
|
||||
Caption = #30331#35760#26085#26399
|
||||
DataBinding.FieldName = 'FFTime'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxDateEditProperties'
|
||||
|
|
@ -192,15 +187,7 @@ inherited frmGetableSel: TfrmGetableSel
|
|||
Options.Editing = False
|
||||
Width = 82
|
||||
end
|
||||
object Tv1Column23: TcxGridDBColumn
|
||||
Caption = #23545#36134#26085#26399
|
||||
DataBinding.FieldName = 'ReconciliationDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 112
|
||||
end
|
||||
object v2Column2: TcxGridDBColumn
|
||||
object v2OurCoName: TcxGridDBColumn
|
||||
Caption = #25105#26041#21333#20301
|
||||
DataBinding.FieldName = 'OurCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
|
|
@ -208,6 +195,101 @@ inherited frmGetableSel: TfrmGetableSel
|
|||
Options.Editing = False
|
||||
Width = 100
|
||||
end
|
||||
object Tv1FFAbstract: TcxGridDBColumn
|
||||
Caption = #25688#35201
|
||||
DataBinding.FieldName = 'FFAbstract'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 79
|
||||
end
|
||||
object Tv1BuyConNo: TcxGridDBColumn
|
||||
Caption = #38754#26009#21512#21516#21495
|
||||
DataBinding.FieldName = 'BuyConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 117
|
||||
end
|
||||
object Tv1ConNo: TcxGridDBColumn
|
||||
Caption = #22383#24067#21512#21516#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 98
|
||||
end
|
||||
object Tv1OrderNo: TcxGridDBColumn
|
||||
Caption = #32455#36896#21333#21495
|
||||
DataBinding.FieldName = 'OrderNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 82
|
||||
end
|
||||
object Tv1F_Code: TcxGridDBColumn
|
||||
Caption = #32534#21495
|
||||
DataBinding.FieldName = 'F_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1F_Name: TcxGridDBColumn
|
||||
Caption = #21697#21517
|
||||
DataBinding.FieldName = 'F_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1F_Width: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'F_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1F_GramWeight: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'F_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1F_Color: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'F_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1F_ColorNo: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'F_ColorNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Piece: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Piece'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Qty: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v2FactoryName: TcxGridDBColumn
|
||||
Caption = #23545#26041#21333#20301
|
||||
DataBinding.FieldName = 'OppCoName'
|
||||
|
|
@ -233,53 +315,6 @@ inherited frmGetableSel: TfrmGetableSel
|
|||
Options.Editing = False
|
||||
Width = 91
|
||||
end
|
||||
object Tv1Column19: TcxGridDBColumn
|
||||
Caption = #21512#21516#21495
|
||||
DataBinding.FieldName = 'ConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 77
|
||||
end
|
||||
object Tv1Column24: TcxGridDBColumn
|
||||
Caption = #25688#35201
|
||||
DataBinding.FieldName = 'FFAbstract'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 79
|
||||
end
|
||||
object Tv1Column20: TcxGridDBColumn
|
||||
Caption = #35745#21010#21333#21495
|
||||
DataBinding.FieldName = 'OrderNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 82
|
||||
end
|
||||
object Tv1Column21: TcxGridDBColumn
|
||||
Caption = #23458#25143#21333#21495
|
||||
DataBinding.FieldName = 'BuyConNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #32534#21495
|
||||
DataBinding.FieldName = 'F_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column5: TcxGridDBColumn
|
||||
Caption = #21697#21517
|
||||
DataBinding.FieldName = 'F_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #33457#22411
|
||||
DataBinding.FieldName = 'F_Pattern'
|
||||
|
|
@ -288,14 +323,6 @@ inherited frmGetableSel: TfrmGetableSel
|
|||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'F_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column28: TcxGridDBColumn
|
||||
Caption = #27454#21495
|
||||
DataBinding.FieldName = 'F_StyleNo'
|
||||
|
|
@ -304,30 +331,6 @@ inherited frmGetableSel: TfrmGetableSel
|
|||
Options.Editing = False
|
||||
Width = 72
|
||||
end
|
||||
object Tv1Column8: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'F_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column9: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'F_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column10: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'F_ColorNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column27: TcxGridDBColumn
|
||||
Caption = #38468#20214
|
||||
DataBinding.FieldName = 'FJFlag'
|
||||
|
|
@ -336,22 +339,6 @@ inherited frmGetableSel: TfrmGetableSel
|
|||
Options.Editing = False
|
||||
Width = 48
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Piece'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column12: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column13: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
|
|
|
|||
|
|
@ -41,26 +41,25 @@ type
|
|||
Tv1: TcxGridDBTableView;
|
||||
Tv1Column22: TcxGridDBColumn;
|
||||
v2CRTime: TcxGridDBColumn;
|
||||
Tv1Column23: TcxGridDBColumn;
|
||||
v2Column2: TcxGridDBColumn;
|
||||
v2OurCoName: TcxGridDBColumn;
|
||||
v2FactoryName: TcxGridDBColumn;
|
||||
v2OrderNo: TcxGridDBColumn;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
Tv1Column19: TcxGridDBColumn;
|
||||
Tv1Column24: TcxGridDBColumn;
|
||||
Tv1Column20: TcxGridDBColumn;
|
||||
Tv1Column21: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
Tv1ConNo: TcxGridDBColumn;
|
||||
Tv1FFAbstract: TcxGridDBColumn;
|
||||
Tv1OrderNo: TcxGridDBColumn;
|
||||
Tv1BuyConNo: TcxGridDBColumn;
|
||||
Tv1F_Code: TcxGridDBColumn;
|
||||
Tv1F_Name: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1F_Color: TcxGridDBColumn;
|
||||
Tv1Column28: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1F_Width: TcxGridDBColumn;
|
||||
Tv1F_GramWeight: TcxGridDBColumn;
|
||||
Tv1F_ColorNo: TcxGridDBColumn;
|
||||
Tv1Column27: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
Tv1Column12: TcxGridDBColumn;
|
||||
Tv1Piece: TcxGridDBColumn;
|
||||
Tv1Qty: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
|
|
|
|||
|
|
@ -150,6 +150,20 @@ object frmInvoiceOutInPut: TfrmInvoiceOutInPut
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 77
|
||||
end
|
||||
object Tv1FIAbstract: TcxGridDBColumn
|
||||
Caption = #25688#35201
|
||||
DataBinding.FieldName = 'FIAbstract'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxButtonEditProperties'
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
Kind = bkEllipsis
|
||||
end>
|
||||
Properties.OnButtonClick = Tv1FIAbstractPropertiesButtonClick
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1SupplierShuiNo: TcxGridDBColumn
|
||||
Caption = #23458#25143#31246#21495
|
||||
DataBinding.FieldName = 'SupplierShuiNo'
|
||||
|
|
|
|||
|
|
@ -11,7 +11,7 @@ uses
|
|||
DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit,
|
||||
cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar,
|
||||
dxDateRanges, dxBarBuiltInMenu, ComObj, dxSkinsCore, dxSkinsDefaultPainters,
|
||||
dxScrollbarAnnotations, cxCurrencyEdit;
|
||||
dxScrollbarAnnotations, cxCurrencyEdit, dxSkinWXI;
|
||||
|
||||
type
|
||||
TfrmInvoiceOutInPut = class(TForm)
|
||||
|
|
@ -49,6 +49,7 @@ type
|
|||
Tv1SupplierNo: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
ToolButton5: TToolButton;
|
||||
Tv1FIAbstract: TcxGridDBColumn;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TSaveClick(Sender: TObject);
|
||||
|
|
@ -68,6 +69,8 @@ type
|
|||
procedure Tv1SupplierPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
procedure Tv1AmountPropertiesEditValueChanged(Sender: TObject);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
procedure Tv1FIAbstractPropertiesButtonClick(Sender: TObject;
|
||||
AButtonIndex: Integer);
|
||||
private
|
||||
procedure initGrid();
|
||||
function SaveDate(): Boolean;
|
||||
|
|
@ -185,8 +188,9 @@ begin
|
|||
end;
|
||||
end;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
Result := True;
|
||||
application.MessageBox('保存成功！', '提示');
|
||||
Modalresult := 1;
|
||||
// Modalresult := 1;
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
|
|
@ -569,6 +573,28 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmInvoiceOutInPut.Tv1FIAbstractPropertiesButtonClick(
|
||||
Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
flag := 'FIAbstract';
|
||||
flagname := '摘要';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
Self.CDS_Invoice.Edit;
|
||||
Self.CDS_Invoice.FieldByName('FIAbstract').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
Self.CDS_Invoice.Post;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmInvoiceOutInPut.Tv1SupplierPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||||
begin
|
||||
try
|
||||
|
|
|
|||
|
|
@ -312,14 +312,17 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
|
|||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Format = '#,###.##'
|
||||
Kind = skSum
|
||||
Column = Tv1Amount
|
||||
end
|
||||
item
|
||||
Format = '#,###.##'
|
||||
Kind = skSum
|
||||
Column = Tv1TaxFee
|
||||
end
|
||||
item
|
||||
Format = '#,###.##'
|
||||
Kind = skSum
|
||||
Column = Tv1TaxAmount
|
||||
end>
|
||||
|
|
@ -359,6 +362,14 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
|
|||
Options.Editing = False
|
||||
Width = 79
|
||||
end
|
||||
object Tv1FIAbstract: TcxGridDBColumn
|
||||
Caption = #25688#35201
|
||||
DataBinding.FieldName = 'FIAbstract'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object Tv1SupplierShuiNo: TcxGridDBColumn
|
||||
Caption = #23458#25143#31246#21495
|
||||
DataBinding.FieldName = 'SupplierShuiNo'
|
||||
|
|
|
|||
|
|
@ -88,6 +88,7 @@ type
|
|||
begdate: TcxDateEdit;
|
||||
Enddate: TcxDateEdit;
|
||||
ToolButton6: TToolButton;
|
||||
Tv1FIAbstract: TcxGridDBColumn;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -7,7 +7,6 @@ inherited frmReceivableList: TfrmReceivableList
|
|||
Font.Height = -16
|
||||
FormStyle = fsMDIChild
|
||||
Visible = True
|
||||
ExplicitLeft = -181
|
||||
ExplicitWidth = 1556
|
||||
ExplicitHeight = 629
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -331,6 +330,16 @@ inherited frmReceivableList: TfrmReceivableList
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Format = '#,###.##'
|
||||
Kind = skSum
|
||||
Column = Tv1NoTaxInclude
|
||||
end
|
||||
item
|
||||
Format = '#,###.##'
|
||||
Kind = skSum
|
||||
Column = Tv1Column2
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
|
|
@ -360,6 +369,30 @@ inherited frmReceivableList: TfrmReceivableList
|
|||
Options.Editing = False
|
||||
Width = 82
|
||||
end
|
||||
object Tv1CIVNO: TcxGridDBColumn
|
||||
Caption = #21457#31080#21495
|
||||
DataBinding.FieldName = 'CIVNO'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object Tv1BGDNum: TcxGridDBColumn
|
||||
Caption = #25253#20851#21333#21495
|
||||
DataBinding.FieldName = 'BGDNum'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object Tv1IVDate: TcxGridDBColumn
|
||||
Caption = #21457#31080#26085#26399
|
||||
DataBinding.FieldName = 'IVDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 80
|
||||
end
|
||||
object Tv1oppShuiNo: TcxGridDBColumn
|
||||
Caption = #23458#25143#31246#21495
|
||||
DataBinding.FieldName = 'oppShuiNo'
|
||||
|
|
@ -509,6 +542,16 @@ inherited frmReceivableList: TfrmReceivableList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 99
|
||||
end
|
||||
object Tv1NoTaxInclude: TcxGridDBColumn
|
||||
Caption = #19981#21547#31246#37329#39069
|
||||
DataBinding.FieldName = 'NoTaxInclude'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||
Properties.DisplayFormat = '#,###.##'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 100
|
||||
end
|
||||
object Tv1TaxRate: TcxGridDBColumn
|
||||
Caption = #31246#29575
|
||||
DataBinding.FieldName = 'TaxRate'
|
||||
|
|
|
|||
|
|
@ -93,6 +93,10 @@ type
|
|||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
ToolButton6: TToolButton;
|
||||
Tv1NoTaxInclude: TcxGridDBColumn;
|
||||
Tv1CIVNO: TcxGridDBColumn;
|
||||
Tv1BGDNum: TcxGridDBColumn;
|
||||
Tv1IVDate: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure btnDelClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -198,9 +198,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
Height = 542
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
ExplicitTop = 73
|
||||
object TV1: TcxGridDBBandedTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_HZ
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
|
|
@ -241,8 +241,6 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
OptionsData.Editing = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Header = DataLink_Financial.Default
|
||||
Styles.BandHeader = DataLink_Financial.Default
|
||||
Bands = <
|
||||
item
|
||||
end
|
||||
|
|
@ -261,6 +259,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column2: TcxGridDBBandedColumn
|
||||
Caption = #23545#36134#26085#26399
|
||||
DataBinding.FieldName = 'ReconciliationDate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -274,6 +273,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column4: TcxGridDBBandedColumn
|
||||
Caption = #32534#21495
|
||||
DataBinding.FieldName = 'F_Code'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -287,6 +287,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column5: TcxGridDBBandedColumn
|
||||
Caption = #21697#21517
|
||||
DataBinding.FieldName = 'F_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -300,6 +301,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column6: TcxGridDBBandedColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'F_Spec'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -313,6 +315,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column7: TcxGridDBBandedColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -326,6 +329,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column8: TcxGridDBBandedColumn
|
||||
Caption = #21333#20215
|
||||
DataBinding.FieldName = 'Price'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -339,6 +343,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column9: TcxGridDBBandedColumn
|
||||
Caption = #24212#25910#37329#39069
|
||||
DataBinding.FieldName = 'BQYSAmount'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -352,6 +357,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column12: TcxGridDBBandedColumn
|
||||
Caption = #25910#27454#37329#39069
|
||||
DataBinding.FieldName = 'BQSKAmount'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -365,6 +371,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column15: TcxGridDBBandedColumn
|
||||
Caption = #32047#35745#20313#39069
|
||||
DataBinding.FieldName = 'BQJYAmount'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -378,6 +385,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column3: TcxGridDBBandedColumn
|
||||
Caption = #25688#35201
|
||||
DataBinding.FieldName = 'FFAbstract'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -390,6 +398,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
end
|
||||
object V1Column10: TcxGridDBBandedColumn
|
||||
DataBinding.FieldName = 'CWID'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
Visible = False
|
||||
|
|
@ -405,6 +414,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column14: TcxGridDBBandedColumn
|
||||
Caption = #24207#21495
|
||||
DataBinding.FieldName = 'keyNO'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -418,6 +428,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column16: TcxGridDBBandedColumn
|
||||
Caption = #24320#31080#37329#39069
|
||||
DataBinding.FieldName = 'BQKPAmount'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -431,6 +442,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column17: TcxGridDBBandedColumn
|
||||
Caption = #32047#35745#27424#31080
|
||||
DataBinding.FieldName = 'BQWKPAmount'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -444,6 +456,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column20: TcxGridDBBandedColumn
|
||||
Caption = #31080#21495
|
||||
DataBinding.FieldName = 'IVNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -457,6 +470,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column21: TcxGridDBBandedColumn
|
||||
Caption = #35745#21010#21333#21495
|
||||
DataBinding.FieldName = 'OrderNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -470,6 +484,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column22: TcxGridDBBandedColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'Piece'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -483,6 +498,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column23: TcxGridDBBandedColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'P_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -496,6 +512,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column25: TcxGridDBBandedColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'MxNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -508,6 +525,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column26: TcxGridDBBandedColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'YMxNote'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
Properties.Alignment.Horz = taCenter
|
||||
HeaderAlignmentHorz = taCenter
|
||||
|
|
@ -521,6 +539,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column33: TcxGridDBBandedColumn
|
||||
Caption = #20854#20182#36153
|
||||
DataBinding.FieldName = 'OtherFee'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Moving = False
|
||||
|
|
@ -532,6 +551,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object V1Column34: TcxGridDBBandedColumn
|
||||
Caption = #36135#27454
|
||||
DataBinding.FieldName = 'HKMONEY'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Moving = False
|
||||
|
|
@ -543,6 +563,7 @@ object frmSingleCustStatement: TfrmSingleCustStatement
|
|||
object TV1Column1: TcxGridDBBandedColumn
|
||||
Caption = #20943#20813#37329#39069
|
||||
DataBinding.FieldName = 'Deduction'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.Moving = False
|
||||
|
|
|
|||
|
|
@ -15,7 +15,7 @@ uses
|
|||
cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
|
||||
cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
|
||||
cxNavigator, dxDateRanges,
|
||||
dxBarBuiltInMenu;
|
||||
dxBarBuiltInMenu, dxSkinsCore, dxSkinWXI, dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmSingleCustStatement = class(TForm)
|
||||
|
|
|
|||
|
|
@ -87,7 +87,6 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
|
|||
BevelOuter = bvLowered
|
||||
Color = clSkyBlue
|
||||
TabOrder = 1
|
||||
ExplicitTop = 32
|
||||
object Label1: TLabel
|
||||
Left = 698
|
||||
Top = 45
|
||||
|
|
@ -245,7 +244,6 @@ object frmSingleFtyStatement: TfrmSingleFtyStatement
|
|||
Font.Style = []
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
ExplicitTop = 97
|
||||
object TV1: TcxGridDBBandedTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
|
|||
|
|
@ -15,7 +15,8 @@ uses
|
|||
cxTextEdit, cxDropDownEdit, RM_e_Xls, cxGridBandedTableView,
|
||||
cxGridDBBandedTableView, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
|
||||
cxNavigator, dxDateRanges, dxBarBuiltInMenu, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, dxScrollbarAnnotations, cxCurrencyEdit, U_BaseHelp;
|
||||
dxSkinsDefaultPainters, dxScrollbarAnnotations, cxCurrencyEdit, U_BaseHelp,
|
||||
dxSkinWXI;
|
||||
|
||||
type
|
||||
TfrmSingleFtyStatement = class(TfrmBaseHELP)
|
||||
|
|
|
|||
Binary file not shown.
Loading…
Reference in New Issue
Block a user