rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

111111

Browse Source
This commit is contained in:
“ddf” 2024-07-11 15:33:41 +08:00
parent 719cdbc141
commit 6cd3abab79
16 changed files with 744 additions and 1540 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj.local
View File

@ -1,76 +1,76 @@
<?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.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.537,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanCard.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.537,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanCard.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.568,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.568,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.472,=D:\Dp10Repo\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.472,=D:\Dp10Repo\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm</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.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.505,D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeInspSet.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeLabelSel.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.780,=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradePlanList.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.734,=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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.030,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProfit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.030,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProfit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.082,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.dfm</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.937,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.dfm</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.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.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.629,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorList.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.764,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInStk.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.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.505,D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeLabelSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeInspSet.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.937,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorInPut.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.904,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.314,=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradePlanInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.314,=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradePlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.505,D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeLabelSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeInspSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.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.053,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.600,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.600,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.994,=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanScheduleDetail.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.994,=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanScheduleDetail.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.276,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.276,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.681,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.681,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.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.764,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInStk.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.904,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.753,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.753,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.764,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInStk.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.053,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.505,D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeInspSet.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeLabelSel.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.396,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.629,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_InputBoxCard.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.629,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.365,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.365,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanSchedule.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.053,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.396,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.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.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.747,=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanList.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.081,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.442,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll=</Transaction>
<Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll</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.440,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_InputBoxCard.pas=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradePlanList.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.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.629,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorList.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_InputBoxCard.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.082,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.560,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.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.686,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.686,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_InputBoxCard.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.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.937,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll</Transaction>
<Transaction>1899-12-30 00:00:00.000.442,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll=</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.424,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleString.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.424,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleString.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.081,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.560,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.937,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.053,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.764,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInStk.dfm</Transaction>
<Transaction>2024-07-07 15:20:39.747,=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanList.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>

BIN
项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.identcache
View File

Binary file not shown.

3
项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanInPut.dfm
View File

@ -1169,6 +1169,9 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
object cxTabSheet4: TcxTabSheet object cxTabSheet4: TcxTabSheet
Caption = ' '#25216#26415#35201#27714' ' Caption = ' '#25216#26415#35201#27714' '
ImageIndex = 3 ImageIndex = 3
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 30 Top = 30

1
项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanInPut.pas
View File

@ -514,6 +514,7 @@ begin
end; end;
SCSHData(ADOTemp, Panel3, 4); SCSHData(ADOTemp, Panel3, 4);
SCSHData(ADOTemp, ScrollBox1, 4); SCSHData(ADOTemp, ScrollBox1, 4);
FtyName.Properties.LookupItems.Text := Trim(ADOTemp.FieldByName('FtyNo').AsString);
with ADOTemp do with ADOTemp do
begin begin
Close; Close;

290
项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanProfit.dfm
View File

@ -2,21 +2,22 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
Left = 238 Left = 238
Top = 107 Top = 107
Caption = #35746#21333#21033#28070#26597#35810#34920 Caption = #35746#21333#21033#28070#26597#35810#34920
ClientHeight = 568 ClientHeight = 747
ClientWidth = 1592 ClientWidth = 1660
Font.Height = -16
Position = poScreenCenter Position = poScreenCenter
ExplicitWidth = 1608 ExplicitWidth = 1676
ExplicitHeight = 607 ExplicitHeight = 786
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 17 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1592 Width = 1660
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 99
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clWhite Color = clWhite
DisabledImages = DataLink_TradePlan.cxImageList_bar DisabledImages = DataLink_TradePlan.cxImageList_bar
@ -25,6 +26,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 1592
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -33,16 +35,16 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
ImageIndex = 1 ImageIndex = 1
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object ToolButton2: TToolButton object TBFind: TToolButton
Left = 63 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36807#28388 Caption = #36807#28388
ImageIndex = 0 ImageIndex = 0
OnClick = ToolButton2Click OnClick = TBFindClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 126 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26597#30475#26126#32454 Caption = #26597#30475#26126#32454
@ -50,7 +52,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 213 Left = 245
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -58,7 +60,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 276 Left = 316
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -66,7 +68,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 339 Left = 387
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -74,7 +76,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 426 Left = 490
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -85,137 +87,80 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1592 Width = 1660
Height = 57 Height = 84
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 38 ExplicitWidth = 1592
object Label3: TLabel
Left = 166
Top = 35
Width = 24
Height = 17
Caption = #21697#21517
end
object Label1: TLabel object Label1: TLabel
Left = 166 Left = 55
Top = 12 Top = 48
Width = 24 Width = 32
Height = 17 Height = 21
Caption = #23458#25143 Caption = #23458#25143
end end
object Label4: TLabel object Label4: TLabel
Left = 22 Left = 215
Top = 12 Top = 48
Width = 24
Height = 17
Caption = #26085#26399
end
object Label5: TLabel
Left = 31
Top = 35
Width = 12
Height = 17
Caption = #33267
end
object Label2: TLabel
Left = 301
Top = 12
Width = 48 Width = 48
Height = 17 Height = 21
Caption = #25351#31034#21333#21495 AutoSize = False
Caption = #21512#21516#21495
end end
object Label7: TLabel inline frmFrameDateSel1: TfrmFrameDateSel
Left = 461 Left = 2
Top = 12 Top = 2
Width = 32 Width = 1656
Height = 17 Height = 37
Caption = #29702' '#21333 Align = alTop
end Color = clWhite
object Label6: TLabel ParentBackground = False
Left = 301 ParentColor = False
Top = 35
Width = 44
Height = 17
Caption = #19994' '#21153' '#21592
end
object CustName: TEdit
Tag = 2
Left = 191
Top = 8
Width = 100
Height = 25
TabOrder = 3
OnChange = CustNameChange
end
object EndDate: TDateTimePicker
Left = 50
Top = 31
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 2
end
object Begdate: TDateTimePicker
Left = 50
Top = 8
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 0 TabOrder = 0
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1446
inherited BegDate: TcxDateEdit
ExplicitHeight = 33
end end
object OrderNo: TEdit inherited EndDate: TcxDateEdit
ExplicitHeight = 33
end
inherited cbbType: TcxComboBox
ExplicitHeight = 33
end
end
object BuyName: TcxTextEdit
Tag = 2 Tag = 2
Left = 350 Left = 91
Top = 8 Top = 42
Width = 100 ParentFont = False
Height = 25 Properties.OnChange = CustNamePropertiesChange
TabOrder = 1 TabOrder = 1
OnChange = CustNameChange Width = 120
end end
object Tallyer: TEdit object ConNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 502 Left = 267
Top = 8 Top = 42
Width = 100 ParentFont = False
Height = 25 Properties.OnChange = CustNamePropertiesChange
TabOrder = 4 TabOrder = 2
OnChange = CustNameChange Width = 120
end
object Saleser: TEdit
Tag = 2
Left = 351
Top = 31
Width = 100
Height = 25
TabOrder = 5
OnChange = CustNameChange
end
object C_Name: TEdit
Tag = 2
Left = 191
Top = 31
Width = 100
Height = 25
TabOrder = 6
OnChange = CustNameChange
end end
end end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 87 Top = 114
Width = 1592 Width = 1660
Height = 481 Height = 633
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 95 ExplicitTop = 111
ExplicitHeight = 439
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -255,6 +200,10 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
item item
Kind = skSum Kind = skSum
Column = Tv1Column8 Column = Tv1Column8
end
item
Kind = skSum
Column = Tv1Column11
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -262,29 +211,15 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
Styles.IncSearch = DataLink_TradePlan.SHuangSe
Styles.Header = DataLink_TradePlan.Default
Styles.Inactive = DataLink_TradePlan.SHuangSe
Styles.Selection = DataLink_TradePlan.SHuangSe
object v1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradePlan.Default
Width = 79
end
object v1CustomerNoName: TcxGridDBColumn object v1CustomerNoName: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'CustName' DataBinding.FieldName = 'BuyName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Styles.Header = DataLink_TradePlan.Default Styles.Header = DataLink_TradePlan.Default
Width = 105 Width = 100
end end
object Tv1Column14: TcxGridDBColumn object Tv1Column14: TcxGridDBColumn
Caption = #19994#21153#21592 Caption = #19994#21153#21592
@ -292,7 +227,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 74 Width = 100
end end
object Tv1Column15: TcxGridDBColumn object Tv1Column15: TcxGridDBColumn
Caption = #29702#21333 Caption = #29702#21333
@ -300,36 +235,27 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 68 Width = 100
end end
object v1OrdDate: TcxGridDBColumn object v1OrdDate: TcxGridDBColumn
Caption = #21046#21333#26085#26399 Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'OrdDate' DataBinding.FieldName = 'ConDate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False Properties.ShowTime = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Styles.Header = DataLink_TradePlan.Default Styles.Header = DataLink_TradePlan.Default
Width = 80 Width = 100
end end
object v1MPRTCodeName: TcxGridDBColumn object v1MPRTCodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #21512#21516#21495
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'conno'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Styles.Header = DataLink_TradePlan.Default Styles.Header = DataLink_TradePlan.Default
Width = 80 Width = 100
end
object v1MPRTSpec: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradePlan.Default
Width = 80
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #37319#36141#36153 Caption = #37319#36141#36153
@ -337,7 +263,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #21152#24037#36153 Caption = #21152#24037#36153
@ -345,7 +271,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #26434#36153 Caption = #26434#36153
@ -353,7 +279,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #20854#20182#36153 Caption = #20854#20182#36153
@ -361,7 +287,15 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end
object Tv1Column11: TcxGridDBColumn
Caption = #36716#21333#25910#30410
DataBinding.FieldName = 'ZDFee'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 93
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #38144#21806#37329#39069 Caption = #38144#21806#37329#39069
@ -369,7 +303,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #25910#27454#37329#39069 Caption = #25910#27454#37329#39069
@ -377,7 +311,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #39044#35745#21033#28070 Caption = #39044#35745#21033#28070
@ -385,7 +319,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #39044#35745#21033#28070#29575 Caption = #39044#35745#21033#28070#29575
@ -393,7 +327,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 100
end end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #23454#38469#21033#28070 Caption = #23454#38469#21033#28070
@ -401,7 +335,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 100
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #23454#38469#21033#28070#29575 Caption = #23454#38469#21033#28070#29575
@ -409,7 +343,7 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 80 Width = 100
end end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
@ -417,25 +351,25 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
end end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Left = 329 Left = 370
Top = 160 Top = 253
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Left = 201 Left = 190
Top = 153 Top = 201
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_TradePlan.ADOLink Connection = DataLink_TradePlan.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 269 Left = 261
Top = 209 Top = 248
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_TradePlan.ADOLink Connection = DataLink_TradePlan.ADOLink
Parameters = <> Parameters = <>
Left = 493 Left = 621
Top = 161 Top = 220
end end
object RM1: TRMGridReport object RM1: TRMGridReport
ThreadPrepareReport = True ThreadPrepareReport = True
@ -490,19 +424,19 @@ inherited frmTradePlanProfit: TfrmTradePlanProfit
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_TradePlan.ADOLink Connection = DataLink_TradePlan.ADOLink
Parameters = <> Parameters = <>
Left = 416 Left = 521
Top = 192 Top = 251
end end
object DataSource1: TDataSource object DataSource1: TDataSource
DataSet = CDS_1 DataSet = CDS_1
Left = 608 Left = 800
Top = 224 Top = 285
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 536 Left = 850
Top = 216 Top = 369
end end
object cxStyleRepository1: TcxStyleRepository object cxStyleRepository1: TcxStyleRepository
Left = 40 Left = 40

52
项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanProfit.pas
View File

@ -15,7 +15,7 @@ uses
cxTextEdit, cxDBLookupComboBox, cxGridBandedTableView, cxGridDBBandedTableView, cxTextEdit, cxDBLookupComboBox, cxGridBandedTableView, cxGridDBBandedTableView,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
dxScrollbarAnnotations; dxScrollbarAnnotations, FrameDateSel, cxContainer;
type type
TfrmTradePlanProfit = class(TfrmBaseList) TfrmTradePlanProfit = class(TfrmBaseList)
@ -25,20 +25,11 @@ type
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
Panel1: TPanel; Panel1: TPanel;
ToolButton2: TToolButton; TBFind: TToolButton;
ToolButton1: TToolButton; ToolButton1: TToolButton;
RM1: TRMGridReport; RM1: TRMGridReport;
RMDB_1: TRMDBDataSet; RMDB_1: TRMDBDataSet;
Label3: TLabel;
CustName: TEdit;
cxGridPopupMenu2: TcxGridPopupMenu; cxGridPopupMenu2: TcxGridPopupMenu;
Label1: TLabel;
EndDate: TDateTimePicker;
Label4: TLabel;
Label5: TLabel;
Begdate: TDateTimePicker;
Label2: TLabel;
OrderNo: TEdit;
CDS_P1: TClientDataSet; CDS_P1: TClientDataSet;
CDS_P2: TClientDataSet; CDS_P2: TClientDataSet;
RMDB_2: TRMDBDataSet; RMDB_2: TRMDBDataSet;
@ -49,16 +40,10 @@ type
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1CustomerNoName: TcxGridDBColumn; v1CustomerNoName: TcxGridDBColumn;
v1OrdDate: TcxGridDBColumn; v1OrdDate: TcxGridDBColumn;
v1OrderNo: TcxGridDBColumn;
v1MPRTCodeName: TcxGridDBColumn; v1MPRTCodeName: TcxGridDBColumn;
v1MPRTSpec: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
cxStyleRepository1: TcxStyleRepository; cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle; cxStyle1: TcxStyle;
Label7: TLabel;
Tallyer: TEdit;
Label6: TLabel;
Saleser: TEdit;
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
@ -71,7 +56,6 @@ type
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn;
C_Name: TEdit;
ToolButton3: TToolButton; ToolButton3: TToolButton;
ToolButton4: TToolButton; ToolButton4: TToolButton;
ToolButton5: TToolButton; ToolButton5: TToolButton;
@ -85,19 +69,25 @@ type
CDS_P6: TClientDataSet; CDS_P6: TClientDataSet;
CDS_P7: TClientDataSet; CDS_P7: TClientDataSet;
RMDB_7: TRMDBDataSet; RMDB_7: TRMDBDataSet;
frmFrameDateSel1: TfrmFrameDateSel;
Label1: TLabel;
Label4: TLabel;
BuyName: TcxTextEdit;
ConNo: TcxTextEdit;
Tv1Column11: 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);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject); procedure TBFindClick(Sender: TObject);
procedure CustNameChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure ToolButton3Click(Sender: TObject); procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure Tv1DblClick(Sender: TObject); procedure Tv1DblClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure CustNamePropertiesChange(Sender: TObject);
private private
{ Private declarations } { Private declarations }
@ -127,8 +117,8 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add(' exec P_Trade_Profit_Plan @Begdate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', Begdate.DateTime)))); sql.Add(' exec P_Trade_Profit_Plan @Begdate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Begdate.Date))));
sql.Add(' ,@enddate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)))); sql.Add(' ,@enddate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.EndDate.Date + 1))));
if canshu1 = '²éѯ' then if canshu1 = '²éѯ' then
begin begin
sql.Add(',@canshu=' + QuotedStr(Trim(DName))); sql.Add(',@canshu=' + QuotedStr(Trim(DName)));
@ -148,6 +138,11 @@ begin
frmTradePlanProfit := nil; frmTradePlanProfit := nil;
end; end;
procedure TfrmTradePlanProfit.CustNamePropertiesChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmTradePlanProfit.FormClose(Sender: TObject; var Action: TCloseAction); procedure TfrmTradePlanProfit.FormClose(Sender: TObject; var Action: TCloseAction);
begin begin
Action := caFree; Action := caFree;
@ -172,7 +167,7 @@ begin
InitGrid(); InitGrid();
end; end;
procedure TfrmTradePlanProfit.ToolButton2Click(Sender: TObject); procedure TfrmTradePlanProfit.TBFindClick(Sender: TObject);
begin begin
if ADOQueryMain.Active then if ADOQueryMain.Active then
begin begin
@ -194,7 +189,7 @@ begin
with frmTradePlanProfitDetails do with frmTradePlanProfitDetails do
begin begin
FOrderNo := Trim(Self.CDS_1.fieldbyname('OrderNo').AsString); FConNo := Trim(Self.CDS_1.fieldbyname('ConNo').AsString);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
InitGrid(); InitGrid();
@ -320,11 +315,6 @@ begin
ToolButton4.Click; ToolButton4.Click;
end; end;
procedure TfrmTradePlanProfit.CustNameChange(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmTradePlanProfit.ToolButton1Click(Sender: TObject); procedure TfrmTradePlanProfit.ToolButton1Click(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then
@ -335,8 +325,8 @@ end;
procedure TfrmTradePlanProfit.FormCreate(Sender: TObject); procedure TfrmTradePlanProfit.FormCreate(Sender: TObject);
begin begin
canshu1 := Trim(DParameters1); canshu1 := Trim(DParameters1);
EndDate.DateTime := SGetServerDate(ADOQueryTemp); frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 90; frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 90;
end; end;
end. end.

1464
项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanProfitDetails.dfm
View File

File diff suppressed because it is too large Load Diff

312
项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanProfitDetails.pas
View File

@ -12,7 +12,7 @@ uses
ComCtrls, cxContainer, cxMaskEdit, cxLookAndFeels, cxLookAndFeelPainters, ComCtrls, cxContainer, cxMaskEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxBarBuiltInMenu, cxDropDownEdit, BtnEdit, Vcl.ToolWin, dxSkinWXI, dxBarBuiltInMenu, cxDropDownEdit, BtnEdit, Vcl.ToolWin, dxSkinWXI,
dxScrollbarAnnotations; dxScrollbarAnnotations, dxCore, cxDateUtils,math;
type type
TfrmTradePlanProfitDetails = class(TForm) TfrmTradePlanProfitDetails = class(TForm)
@ -24,7 +24,6 @@ type
DS_2: TDataSource; DS_2: TDataSource;
CDS_4: TClientDataSet; CDS_4: TClientDataSet;
DS_4: TDataSource; DS_4: TDataSource;
GroupBox3: TGroupBox;
GPM_2: TcxGridPopupMenu; GPM_2: TcxGridPopupMenu;
GPM_1: TcxGridPopupMenu; GPM_1: TcxGridPopupMenu;
GPM_4: TcxGridPopupMenu; GPM_4: TcxGridPopupMenu;
@ -49,8 +48,7 @@ type
Label3: TLabel; Label3: TLabel;
Label9: TLabel; Label9: TLabel;
Label10: TLabel; Label10: TLabel;
OrdDate: TDateTimePicker; ConNo: TcxTextEdit;
OrderNo: TEdit;
ToolBar1: TToolBar; ToolBar1: TToolBar;
TBRafresh: TToolButton; TBRafresh: TToolButton;
ToolButton3: TToolButton; ToolButton3: TToolButton;
@ -63,8 +61,8 @@ type
DS_6: TDataSource; DS_6: TDataSource;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
YJLRAmount: TEdit; YJLRAmount: TcxTextEdit;
YJLRRatio: TEdit; YJLRRatio: TcxTextEdit;
Panel1: TPanel; Panel1: TPanel;
Panel2: TPanel; Panel2: TPanel;
GroupBox5: TGroupBox; GroupBox5: TGroupBox;
@ -73,21 +71,73 @@ type
GroupBox6: TGroupBox; GroupBox6: TGroupBox;
Label5: TLabel; Label5: TLabel;
Label6: TLabel; Label6: TLabel;
SJLRAmount: TEdit; SJLRAmount: TcxTextEdit;
SJLRRatio: TEdit; SJLRRatio: TcxTextEdit;
cxGrid2: TcxGrid; cxGrid2: TcxGrid;
TV2: TcxGridDBTableView; TV2: TcxGridDBTableView;
Tv1Column22: TcxGridDBColumn; cxGridLevel1: TcxGridLevel;
v2CRTime: TcxGridDBColumn; Saleser: TcxTextEdit;
Tv1Column23: TcxGridDBColumn; cxGrid1: TcxGrid;
v2Column2: TcxGridDBColumn; Tv1: TcxGridDBTableView;
v2FactoryName: TcxGridDBColumn; cxGridDBColumn91: TcxGridDBColumn;
v2OrderNo: TcxGridDBColumn; cxGridDBColumn92: TcxGridDBColumn;
cxGridDBColumn93: TcxGridDBColumn;
cxGridDBColumn94: TcxGridDBColumn;
cxGridDBColumn95: TcxGridDBColumn;
cxGridDBColumn96: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
cxGridDBColumn97: TcxGridDBColumn;
cxGridDBColumn98: TcxGridDBColumn;
cxGridDBColumn99: TcxGridDBColumn;
cxGridDBColumn100: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column28: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column29: TcxGridDBColumn;
Tv1Column30: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column31: TcxGridDBColumn;
Tv1Column27: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column37: TcxGridDBColumn;
Tv1Column38: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn;
cxGridDBColumn101: TcxGridDBColumn;
cxGridDBColumn102: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column32: TcxGridDBColumn;
Tv1Column34: TcxGridDBColumn;
Tv1Column33: TcxGridDBColumn;
Tv1Column36: TcxGridDBColumn;
Tv1Column35: TcxGridDBColumn;
cxGridLevel5: TcxGridLevel;
ConDate: TcxDateEdit;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
TV2Column7: TcxGridDBColumn;
TV2Column8: TcxGridDBColumn;
TV2Column9: TcxGridDBColumn;
TV2Column10: TcxGridDBColumn;
TV2Column11: TcxGridDBColumn;
TV2Column12: TcxGridDBColumn;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn; cxGridDBColumn1: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn;
Tv1Column24: TcxGridDBColumn;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn; cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn; cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn; cxGridDBColumn4: TcxGridDBColumn;
@ -99,16 +149,14 @@ type
cxGridDBColumn10: TcxGridDBColumn; cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn; cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn; cxGridDBColumn12: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
cxGridDBColumn13: TcxGridDBColumn; cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn; cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn; cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn; cxGridDBColumn16: TcxGridDBColumn;
Tv1Column25: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn; cxGridDBColumn17: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
cxGridDBColumn18: TcxGridDBColumn; cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn; cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn; cxGridDBColumn20: TcxGridDBColumn;
@ -116,137 +164,24 @@ type
cxGridDBColumn22: TcxGridDBColumn; cxGridDBColumn22: TcxGridDBColumn;
cxGridDBColumn23: TcxGridDBColumn; cxGridDBColumn23: TcxGridDBColumn;
cxGridDBColumn24: TcxGridDBColumn; cxGridDBColumn24: TcxGridDBColumn;
cxGridDBColumn25: TcxGridDBColumn;
cxGridDBColumn26: TcxGridDBColumn;
cxGridDBColumn27: TcxGridDBColumn;
cxGridDBColumn28: TcxGridDBColumn;
cxGridDBColumn29: TcxGridDBColumn;
cxGridDBColumn30: TcxGridDBColumn;
cxGridDBColumn31: TcxGridDBColumn;
cxGridDBColumn32: TcxGridDBColumn;
cxGridDBColumn33: TcxGridDBColumn;
cxGridDBColumn34: TcxGridDBColumn;
cxGridDBColumn35: TcxGridDBColumn;
cxGridDBColumn36: TcxGridDBColumn;
cxGridDBColumn37: TcxGridDBColumn;
cxGridDBColumn38: TcxGridDBColumn;
cxGridDBColumn39: TcxGridDBColumn;
cxGridDBColumn40: TcxGridDBColumn;
cxGridDBColumn41: TcxGridDBColumn;
cxGridDBColumn42: TcxGridDBColumn;
cxGridDBColumn43: TcxGridDBColumn;
cxGridDBColumn44: TcxGridDBColumn;
cxGridDBColumn45: TcxGridDBColumn;
cxGridDBColumn46: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
cxGrid4: TcxGrid;
TV4: TcxGridDBTableView;
cxGridDBColumn47: TcxGridDBColumn;
cxGridDBColumn48: TcxGridDBColumn;
cxGridDBColumn49: TcxGridDBColumn;
cxGridDBColumn50: TcxGridDBColumn;
cxGridDBColumn51: TcxGridDBColumn;
cxGridDBColumn52: TcxGridDBColumn;
cxGridDBColumn53: TcxGridDBColumn;
cxGridDBColumn54: TcxGridDBColumn;
cxGridDBColumn55: TcxGridDBColumn;
cxGridDBColumn56: TcxGridDBColumn;
cxGridDBColumn57: TcxGridDBColumn;
cxGridDBColumn58: TcxGridDBColumn;
cxGridDBColumn59: TcxGridDBColumn;
cxGridDBColumn60: TcxGridDBColumn;
cxGridDBColumn61: TcxGridDBColumn;
cxGridDBColumn62: TcxGridDBColumn;
cxGridDBColumn63: TcxGridDBColumn;
cxGridDBColumn64: TcxGridDBColumn;
cxGridDBColumn65: TcxGridDBColumn;
cxGridDBColumn66: TcxGridDBColumn;
cxGridDBColumn67: TcxGridDBColumn;
cxGridDBColumn68: TcxGridDBColumn;
cxGridDBColumn69: TcxGridDBColumn;
cxGridDBColumn70: TcxGridDBColumn;
cxGridDBColumn71: TcxGridDBColumn;
cxGridDBColumn72: TcxGridDBColumn;
cxGridDBColumn73: TcxGridDBColumn;
cxGridDBColumn74: TcxGridDBColumn;
cxGridDBColumn75: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel; cxGridLevel3: TcxGridLevel;
cxGrid5: TcxGrid; cxGrid5: TcxGrid;
TV5: TcxGridDBTableView; TV5: TcxGridDBTableView;
cxGridDBColumn76: TcxGridDBColumn; v2CRTime: TcxGridDBColumn;
cxGridDBColumn77: TcxGridDBColumn; v2Column2: TcxGridDBColumn;
cxGridDBColumn78: TcxGridDBColumn; v2FactoryName: TcxGridDBColumn;
cxGridDBColumn79: TcxGridDBColumn; v2OrderNo: TcxGridDBColumn;
cxGridDBColumn80: TcxGridDBColumn; cxGridDBColumn25: TcxGridDBColumn;
cxGridDBColumn81: TcxGridDBColumn; cxGridDBColumn26: TcxGridDBColumn;
cxGridDBColumn82: TcxGridDBColumn; cxGridDBColumn27: TcxGridDBColumn;
cxGridDBColumn83: TcxGridDBColumn; Tv1Column19: TcxGridDBColumn;
cxGridDBColumn84: TcxGridDBColumn; Tv1Column20: TcxGridDBColumn;
cxGridDBColumn85: TcxGridDBColumn; Tv1Column21: TcxGridDBColumn;
cxGridDBColumn86: TcxGridDBColumn; cxGridDBColumn28: TcxGridDBColumn;
cxGridDBColumn87: TcxGridDBColumn; cxGridDBColumn29: TcxGridDBColumn;
cxGridDBColumn88: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn;
cxGridDBColumn89: TcxGridDBColumn; cxGridDBColumn30: TcxGridDBColumn;
cxGridDBColumn90: TcxGridDBColumn;
cxGridLevel4: TcxGridLevel; cxGridLevel4: TcxGridLevel;
cxGrid6: TcxGrid;
TV6: TcxGridDBTableView;
cxGridDBColumn91: TcxGridDBColumn;
cxGridDBColumn92: TcxGridDBColumn;
cxGridDBColumn93: TcxGridDBColumn;
cxGridDBColumn94: TcxGridDBColumn;
cxGridDBColumn95: TcxGridDBColumn;
cxGridDBColumn96: TcxGridDBColumn;
cxGridDBColumn97: TcxGridDBColumn;
cxGridDBColumn98: TcxGridDBColumn;
cxGridDBColumn99: TcxGridDBColumn;
cxGridDBColumn100: TcxGridDBColumn;
cxGridDBColumn101: TcxGridDBColumn;
cxGridDBColumn102: TcxGridDBColumn;
cxGridDBColumn103: TcxGridDBColumn;
cxGridDBColumn104: TcxGridDBColumn;
cxGridDBColumn105: TcxGridDBColumn;
cxGridDBColumn106: TcxGridDBColumn;
cxGridDBColumn107: TcxGridDBColumn;
cxGridDBColumn108: TcxGridDBColumn;
cxGridDBColumn109: TcxGridDBColumn;
cxGridDBColumn110: TcxGridDBColumn;
cxGridDBColumn111: TcxGridDBColumn;
cxGridDBColumn112: TcxGridDBColumn;
cxGridDBColumn113: TcxGridDBColumn;
cxGridDBColumn114: TcxGridDBColumn;
cxGridDBColumn115: TcxGridDBColumn;
cxGridDBColumn116: TcxGridDBColumn;
cxGridDBColumn117: TcxGridDBColumn;
cxGridDBColumn118: TcxGridDBColumn;
cxGridDBColumn119: TcxGridDBColumn;
cxGridLevel5: TcxGridLevel;
Saleser: TEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column7: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
v1OrderNo: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
v1OrdDefStr1: TcxGridDBColumn;
v1MPRTCodeName: TcxGridDBColumn;
v1MPRTSpec: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
v1MPRTMF: TcxGridDBColumn;
v1MPRTKZ: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
@ -256,11 +191,12 @@ type
procedure cxGridDBColumn46PropertiesEditValueChanged(Sender: TObject); procedure cxGridDBColumn46PropertiesEditValueChanged(Sender: TObject);
procedure cxGridDBColumn14PropertiesEditValueChanged(Sender: TObject); procedure cxGridDBColumn14PropertiesEditValueChanged(Sender: TObject);
procedure TV2Column14PropertiesEditValueChanged(Sender: TObject); procedure TV2Column14PropertiesEditValueChanged(Sender: TObject);
procedure FormResize(Sender: TObject);
private private
procedure InitOrder(); procedure InitOrder();
{ Private declarations } { Private declarations }
public public
FOrderNo: string; FConNo: string;
{ Public declarations } { Public declarations }
end; end;
@ -280,9 +216,9 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('exec P_Trade_Profit_Plan_Details '); sql.Add('exec P_Trade_Profit_Plan ');
sql.Add('@PFType=''悧적흴'' '); sql.Add(' @CXType=''单个合同'' ');
sql.Add(',@OrderNo= ' + quotedstr(Trim(FOrderNo))); sql.Add(',@ConNo=' + quotedstr(Trim(FConNo)));
Open; Open;
end; end;
SCSHData(ADOQueryTemp, ScrollBox1, 2); SCSHData(ADOQueryTemp, ScrollBox1, 2);
@ -291,9 +227,9 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('exec P_Trade_Profit_Plan_Details '); sql.Add('exec P_Trade_Profit_Plan ');
sql.Add('@PFType=''셕뺍데'' '); sql.Add(' @CXType=''应收款'' ');
sql.Add(',@OrderNo= ' + quotedstr(Trim(FOrderNo))); sql.Add(',@ConNo=' + quotedstr(Trim(FConNo)));
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_1); SCreateCDS(ADOQueryTemp, CDS_1);
@ -303,9 +239,9 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('exec P_Trade_Profit_Plan_Details '); sql.Add('exec P_Trade_Profit_Plan ');
sql.Add('@PFType=''꽃뭔'' '); sql.Add(' @CXType=''用料成本'' ');
sql.Add(',@OrderNo= ' + quotedstr(Trim(FOrderNo))); sql.Add(',@ConNo=' + quotedstr(Trim(FConNo)));
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_2); SCreateCDS(ADOQueryTemp, CDS_2);
@ -315,9 +251,9 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('exec P_Trade_Profit_Plan_Details '); sql.Add('exec P_Trade_Profit_Plan ');
sql.Add('@PFType=''속묏'' '); sql.Add(' @CXType=''加工成本'' ');
sql.Add(',@OrderNo= ' + quotedstr(Trim(FOrderNo))); sql.Add(',@ConNo=' + quotedstr(Trim(FConNo)));
// ShowMessage(sql.Text); // ShowMessage(sql.Text);
Open; Open;
end; end;
@ -328,9 +264,9 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('exec P_Trade_Profit_Plan_Details '); sql.Add('exec P_Trade_Profit_Plan ');
sql.Add('@PFType=''페儉'' '); sql.Add(' @CXType=''用料成本'' ');
sql.Add(',@OrderNo= ' + quotedstr(Trim(FOrderNo))); sql.Add(',@ConNo=' + quotedstr(Trim(FConNo)));
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_4); SCreateCDS(ADOQueryTemp, CDS_4);
@ -340,25 +276,24 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('exec P_Trade_Profit_Plan_Details '); sql.Add('exec P_Trade_Profit_Plan ');
sql.Add('@PFType=''롤痰'' '); sql.Add(' @CXType=''费用'' ');
sql.Add(',@OrderNo= ' + quotedstr(Trim(FOrderNo))); sql.Add(',@ConNo=' + quotedstr(Trim(FConNo)));
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_5); SCreateCDS(ADOQueryTemp, CDS_5);
SInitCDSData(ADOQueryTemp, CDS_5); SInitCDSData(ADOQueryTemp, CDS_5);
// with ADOQueryTemp do
with ADOQueryTemp do // begin
begin // Close;
Close; // SQL.Clear;
SQL.Clear; // sql.Add('exec P_Trade_Profit_Plan ');
sql.Add('exec P_Trade_Profit_Plan_Details '); // sql.Add(' @CXType=''应收款'' ');
sql.Add('@PFType=''壇澗'' '); // sql.Add(',@ConNo=' + quotedstr(Trim(FConNo)));
sql.Add(',@OrderNo= ' + quotedstr(Trim(FOrderNo))); // Open;
Open; // end;
end; // SCreateCDS(ADOQueryTemp, CDS_6);
SCreateCDS(ADOQueryTemp, CDS_6); // SInitCDSData(ADOQueryTemp, CDS_6);
SInitCDSData(ADOQueryTemp, CDS_6);
end; end;
procedure TfrmTradePlanProfitDetails.FormDestroy(Sender: TObject); procedure TfrmTradePlanProfitDetails.FormDestroy(Sender: TObject);
@ -366,6 +301,17 @@ begin
frmTradePlanProfitDetails := nil; frmTradePlanProfitDetails := nil;
end; end;
procedure TfrmTradePlanProfitDetails.FormResize(Sender: TObject);
begin
GroupBox5.Width := ceil(Self.Width / 2);
GroupBox4.Width := ceil(Self.Width / 2);
// cxGrid1.Width := ceil(Self.Width / 2);
// cxGrid6.Width := ceil(Self.Width / 2);
// GroupBox2.Height := ceil((Self.Height - ToolBar1.Height - pnl1.Height) / 4);
// GroupBox3.Height := ceil((Self.Height - ToolBar1.Height - pnl1.Height) / 4);
// GroupBox4.Height := ceil((Self.Height - ToolBar1.Height - pnl1.Height) / 4);
end;
procedure TfrmTradePlanProfitDetails.cxGridDBColumn14PropertiesEditValueChanged(Sender: TObject); procedure TfrmTradePlanProfitDetails.cxGridDBColumn14PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;
@ -493,7 +439,7 @@ begin
WriteCxGrid('땐데츠玖쏵똑Tv3', Tv3, '땐데츠玖쏵똑밗잿'); WriteCxGrid('땐데츠玖쏵똑Tv3', Tv3, '땐데츠玖쏵똑밗잿');
WriteCxGrid('땐데츠玖쏵똑Tv4', Tv4, '땐데츠玖쏵똑밗잿'); WriteCxGrid('땐데츠玖쏵똑Tv4', Tv4, '땐데츠玖쏵똑밗잿');
WriteCxGrid('땐데츠玖쏵똑Tv5', Tv5, '땐데츠玖쏵똑밗잿'); WriteCxGrid('땐데츠玖쏵똑Tv5', Tv5, '땐데츠玖쏵똑밗잿');
WriteCxGrid('땐데츠玖쏵똑Tv6', Tv6, '땐데츠玖쏵똑밗잿'); // WriteCxGrid('订单明细进度Tv6', Tv6, '订单明细进度管理');
end; end;
procedure TfrmTradePlanProfitDetails.TV2Column14PropertiesEditValueChanged(Sender: TObject); procedure TfrmTradePlanProfitDetails.TV2Column14PropertiesEditValueChanged(Sender: TObject);
@ -555,7 +501,7 @@ begin
ReadCxGrid('땐데츠玖쏵똑Tv3', Tv3, '땐데츠玖쏵똑밗잿'); ReadCxGrid('땐데츠玖쏵똑Tv3', Tv3, '땐데츠玖쏵똑밗잿');
ReadCxGrid('땐데츠玖쏵똑Tv4', Tv4, '땐데츠玖쏵똑밗잿'); ReadCxGrid('땐데츠玖쏵똑Tv4', Tv4, '땐데츠玖쏵똑밗잿');
ReadCxGrid('땐데츠玖쏵똑Tv5', Tv5, '땐데츠玖쏵똑밗잿'); ReadCxGrid('땐데츠玖쏵똑Tv5', Tv5, '땐데츠玖쏵똑밗잿');
ReadCxGrid('땐데츠玖쏵똑Tv6', Tv6, '땐데츠玖쏵똑밗잿'); // ReadCxGrid('订单明细进度Tv6', Tv6, '订单明细进度管理');
InitOrder(); InitOrder();
end; end;

4
项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule.dfm
View File

@ -167,7 +167,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
TabOrder = 3 TabOrder = 3
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1583 ExplicitWidth = 1591
inherited BegDate: TcxDateEdit inherited BegDate: TcxDateEdit
ExplicitHeight = 33 ExplicitHeight = 33
end end
@ -204,7 +204,6 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
Height = 446 Height = 446
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 177
object TV1: TcxGridDBBandedTableView object TV1: TcxGridDBBandedTableView
OnDblClick = TV1DblClick OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -705,7 +704,6 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
' '#24050#23436#25104' ' ' '#24050#23436#25104' '
' '#20840' '#37096' ') ' '#20840' '#37096' ')
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 97
ClientRectBottom = 34 ClientRectBottom = 34
ClientRectRight = 1595 ClientRectRight = 1595
ClientRectTop = 31 ClientRectTop = 31

2
项目代码/RTBasicsV1/T02贸易汇总仓库/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10myXushang\T02贸易汇总仓库\TradeTotalClothStk.dproj"/> <Projects ActiveProject="D:\RTFormwork\项目代码\RTBasicsV1\T02贸易汇总仓库\TradeTotalClothStk.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

BIN
项目代码/RTBasicsV1/T02贸易汇总仓库/TradeTotalClothStk.identcache
View File

Binary file not shown.

42
项目代码/RTBasicsV1/T02贸易汇总仓库/U_ClothScheduleList.dfm
View File

@ -78,52 +78,36 @@ inherited frmClothScheduleList: TfrmClothScheduleList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
object Label4: TLabel
Left = 451
Top = 50
Width = 64
Height = 21
Caption = #25105#26041#21333#20301
end
object Label9: TLabel object Label9: TLabel
Left = 23 Left = 23
Top = 50 Top = 50
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #37319#36141#21333#21495 Caption = #21512#24182#21333#21495
end end
object Label3: TLabel object Label3: TLabel
Left = 245 Left = 245
Top = 50 Top = 50
Width = 48 Width = 48
Height = 21 Height = 21
Caption = #20379#24212#21830 Caption = #21152#24037#21378
end end
object BuyName: TcxTextEdit object MasterOrderNo: TcxTextEdit
Tag = 2 Tag = 2
Left = 521 Left = 91
Top = 44 Top = 44
ParentFont = False ParentFont = False
Properties.OnChange = SellNamePropertiesChange Properties.OnChange = SellNamePropertiesChange
TabOrder = 0 TabOrder = 0
Width = 150 Width = 150
end end
object PurNo: TcxTextEdit object FtyName: TcxTextEdit
Tag = 2
Left = 91
Top = 44
ParentFont = False
Properties.OnChange = SellNamePropertiesChange
TabOrder = 1
Width = 150
end
object SellName: TcxTextEdit
Tag = 2 Tag = 2
Left = 297 Left = 297
Top = 44 Top = 44
ParentFont = False ParentFont = False
Properties.OnChange = SellNamePropertiesChange Properties.OnChange = SellNamePropertiesChange
TabOrder = 2 TabOrder = 1
Width = 150 Width = 150
end end
inline frmFrameDateSel1: TfrmFrameDateSel inline frmFrameDateSel1: TfrmFrameDateSel
@ -134,7 +118,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
ParentColor = False ParentColor = False
TabOrder = 3 TabOrder = 2
ExplicitTop = 6 ExplicitTop = 6
inherited BegDate: TcxDateEdit inherited BegDate: TcxDateEdit
ExplicitHeight = 33 ExplicitHeight = 33
@ -396,7 +380,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 99
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar
@ -414,7 +398,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 87 Left = 103
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38754#26009#25237#20837 Caption = #38754#26009#25237#20837
@ -422,7 +406,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 174 Left = 206
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #35746#21333#23436#24037 Caption = #35746#21333#23436#24037
@ -430,7 +414,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 261 Left = 309
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #24067#21305#20986#24211 Caption = #24067#21305#20986#24211
@ -438,7 +422,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 348 Left = 412
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -446,7 +430,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 411 Left = 483
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360

8
项目代码/RTBasicsV1/T02贸易汇总仓库/U_ClothScheduleList.pas
View File

@ -43,13 +43,11 @@ type
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
DS_1: TDataSource; DS_1: TDataSource;
Panel1: TPanel; Panel1: TPanel;
Label4: TLabel;
Label9: TLabel; Label9: TLabel;
BuyName: TcxTextEdit; MasterOrderNo: TcxTextEdit;
PurNo: TcxTextEdit;
CDS_1: TClientDataSet; CDS_1: TClientDataSet;
Label3: TLabel; Label3: TLabel;
SellName: TcxTextEdit; FtyName: TcxTextEdit;
pm1: TPopupMenu; pm1: TPopupMenu;
ADOQueryImage: TADOQuery; ADOQueryImage: TADOQuery;
ToolButton7: TToolButton; ToolButton7: TToolButton;
@ -592,7 +590,7 @@ var
Maxno: string; Maxno: string;
begin begin
PurNo.SetFocus; ToolBar1.SetFocus;
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
Exit; Exit;
if Application.MessageBox('确定要保存回仓数据吗？', '提示', 32 + 4) <> IDYES then if Application.MessageBox('确定要保存回仓数据吗？', '提示', 32 + 4) <> IDYES then

2
项目代码/RTBasicsV1/T02贸易汇总仓库/U_PurClothEnterInput.pas
View File

@ -135,7 +135,7 @@ begin
sql.Add(' where PurSId=''' + Trim(FPurSId) + ''''); sql.Add(' where PurSId=''' + Trim(FPurSId) + '''');
Open; Open;
end; end;
FromCoName.Properties.LookupItems.Text := 'SellNo'; FromCoName.Properties.LookupItems.Text := ADOQueryTemp.FieldByName('SellNo').ASString;
FromCoName.Text := ADOQueryTemp.FieldByName('SellName').ASString; FromCoName.Text := ADOQueryTemp.FieldByName('SellName').ASString;
FromPurNo.Text := ADOQueryTemp.FieldByName('PurNo').ASString; FromPurNo.Text := ADOQueryTemp.FieldByName('PurNo').ASString;
FromPurMId.Text := ADOQueryTemp.FieldByName('PurMId').ASString; FromPurMId.Text := ADOQueryTemp.FieldByName('PurMId').ASString;

4
项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeClothTransferInput.pas
View File

@ -200,7 +200,7 @@ procedure TfrmTradeClothTransferInput.TBSaveClick(Sender: TObject);
begin begin
if CDS_Sub.IsEmpty then if CDS_Sub.IsEmpty then
Exit; Exit;
FromOrdNo.SetFocus(); ToolBar1.SetFocus();
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('保存成功!', '提示', 0); Application.MessageBox('保存成功!', '提示', 0);
@ -221,7 +221,7 @@ procedure TfrmTradeClothTransferInput.ToolButton3Click(Sender: TObject);
begin begin
if CDS_Sub.IsEmpty then if CDS_Sub.IsEmpty then
Exit; Exit;
FromOrdNo.SetFocus(); ToolBar1.SetFocus();
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('保存成功!', '提示', 0); Application.MessageBox('保存成功!', '提示', 0);

BIN
项目代码/RTBasicsV1/T02贸易汇总仓库/testDll.identcache
View File

Binary file not shown.