Group_99/D10szXIANGYING
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

3-29

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2026-03-29 18:02:40 +08:00
parent c17936552e
commit 7bcd56fd26
13 changed files with 1299 additions and 681 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

142
E04梭织坯布仓库/TatClothStk.dproj.local
View File

@ -1,77 +1,77 @@
<?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.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.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.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj</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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.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.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.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.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.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.740,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList3.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.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.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.157,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothEDCDLook.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.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.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.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.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.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.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.337,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCRStkHZList.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.732,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCKHZList3.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothRKHZList2.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.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.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
<Transaction>2025/12/19 11:28:25.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction>
<Transaction>2025/12/30 09:28:30.000.231,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothRKHZList2.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction>
<Transaction>2025/12/30 14:40:41.000.157,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothEDCDLook.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</Transaction>
<Transaction>2026/01/05 09:38:54.000.740,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList3.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>2026/01/05 09:39:04.000.732,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCKHZList3.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
<Transaction>2026/01/10 09:26:48.000.337,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothCRStkHZList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10szXIANGYING"/> <File Path="..\..\D10szXIANGYING"/>

BIN
E04梭织坯布仓库/TatClothStk.identcache
View File

Binary file not shown.

63
E04梭织坯布仓库/U_TatClothCKHZList.dfm
View File

@ -2,13 +2,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Left = 184 Left = 184
Top = 138 Top = 138
Caption = #25104#21697#20986#24211#27719#24635#21015#34920 Caption = #25104#21697#20986#24211#27719#24635#21015#34920
ClientHeight = 600 ClientHeight = 621
ClientWidth = 1540 ClientWidth = 1540
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 639 ExplicitHeight = 660
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -77,7 +77,6 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object Label2: TLabel object Label2: TLabel
Left = 70 Left = 70
Top = 36 Top = 36
@ -232,9 +231,9 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
TabOrder = 6 TabOrder = 6
OnKeyPress = C_NameKeyPress OnKeyPress = C_NameKeyPress
end end
object ToCoName: TEdit object CoName: TEdit
Tag = 2 Tag = 2
Left = 534 Left = 532
Top = 6 Top = 6
Width = 100 Width = 100
Height = 20 Height = 20
@ -267,7 +266,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1540 Width = 1540
Height = 495 Height = 516
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alClient Align = alClient
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -278,13 +277,14 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
ParentFont = False ParentFont = False
Style = tsFlatButtons Style = tsFlatButtons
TabOrder = 2 TabOrder = 2
ExplicitHeight = 495
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = #26377#20986#24211#21333#20986#24211 Caption = #26377#20986#24211#21333#20986#24211
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1532 Width = 1532
Height = 457 Height = 478
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -295,6 +295,9 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = -72
ExplicitTop = 72
ExplicitHeight = 457
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -442,7 +445,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1532 Width = 1532
Height = 457 Height = 478
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -451,11 +454,9 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_4
TabOrder = 0 TabOrder = 0
ExplicitTop = 111 ExplicitHeight = 457
ExplicitWidth = 1540
ExplicitHeight = 495
object Tv4: TcxGridDBTableView object Tv4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -520,6 +521,10 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn17 Column = cxGridDBColumn17
end
item
Kind = skSum
Column = Tv4amount
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -556,7 +561,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 92 Width = 94
end end
object Tv1ToCoName: TcxGridDBColumn object Tv1ToCoName: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
@ -630,6 +635,20 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Options.Editing = False Options.Editing = False
Width = 80 Width = 80
end end
object Tv4PFPrice: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'PFPrice'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv4amount: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGridLevel3: TcxGridLevel object cxGridLevel3: TcxGridLevel
GridView = Tv4 GridView = Tv4
@ -643,7 +662,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1532 Width = 1532
Height = 457 Height = 478
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -654,6 +673,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
ParentFont = False ParentFont = False
PopupMenu = PM_2 PopupMenu = PM_2
TabOrder = 0 TabOrder = 0
ExplicitHeight = 457
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick OnDblClick = Tv2DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -794,7 +814,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1532 Width = 1532
Height = 457 Height = 478
Align = alClient Align = alClient
BorderStyle = cxcbsNone BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -805,6 +825,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
ParentFont = False ParentFont = False
PopupMenu = PM_3 PopupMenu = PM_3
TabOrder = 0 TabOrder = 0
ExplicitHeight = 457
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
OnDblClick = Tv3DblClick OnDblClick = Tv3DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -970,8 +991,8 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 400 Left = 408
Top = 384 Top = 368
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
@ -1015,8 +1036,8 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
object GPM_2: TcxGridPopupMenu object GPM_2: TcxGridPopupMenu
Grid = cxGrid2 Grid = cxGrid2
PopupMenus = <> PopupMenus = <>
Left = 488 Left = 480
Top = 392 Top = 368
end end
object PM_2: TPopupMenu object PM_2: TPopupMenu
Left = 424 Left = 424
@ -1105,8 +1126,8 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
object GPM_3: TcxGridPopupMenu object GPM_3: TcxGridPopupMenu
Grid = cxGrid3 Grid = cxGrid3
PopupMenus = <> PopupMenus = <>
Left = 592 Left = 536
Top = 304 Top = 368
end end
object GPM_4: TcxGridPopupMenu object GPM_4: TcxGridPopupMenu
Grid = cxGrid4 Grid = cxGrid4

29
E04梭织坯布仓库/U_TatClothCKHZList.pas
View File

@ -43,7 +43,7 @@ type
Label1: TLabel; Label1: TLabel;
DRMID: TEdit; DRMID: TEdit;
Label3: TLabel; Label3: TLabel;
ToCoName: TEdit; CoName: TEdit;
Label6: TLabel; Label6: TLabel;
C_Width: TEdit; C_Width: TEdit;
Label7: TLabel; Label7: TLabel;
@ -122,6 +122,8 @@ type
MenuItem12: TMenuItem; MenuItem12: TMenuItem;
GPM_3: TcxGridPopupMenu; GPM_3: TcxGridPopupMenu;
GPM_4: TcxGridPopupMenu; GPM_4: TcxGridPopupMenu;
Tv4PFPrice: TcxGridDBColumn;
Tv4amount: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -138,7 +140,6 @@ type
procedure cxPageControl1Change(Sender: TObject); procedure cxPageControl1Change(Sender: TObject);
procedure CDS_1BeforeOpen(DataSet: TDataSet); procedure CDS_1BeforeOpen(DataSet: TDataSet);
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject); procedure PM11Click(Sender: TObject);
@ -233,12 +234,13 @@ begin
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight,DRMID = '''' '); sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight,DRMID = '''' ');
// sql.Add(',B.ToCoID '); // sql.Add(',B.ToCoID ');
// sql.Add(',COName = (select COName from BS_Company X where X.CoID = B.ToCoID)'); // sql.Add(',COName = '''' ');
sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) ');
// sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) '); // sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) ');
SQL.Add(',issp=isnull(A.issp,'''') '); SQL.Add(',issp=isnull(A.issp,'''') ');
sql.Add(' FROM V_Tat_Cloth_IO A '); sql.Add(' FROM V_Tat_Cloth_IO A ');
sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID '); sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID ');
sql.Add(' left join BS_Company D on D.CoID = B.ToCoID ');
sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = ''出库'' '); sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = ''出库'' ');
sql.Add(WSql); sql.Add(WSql);
if canshu1 = '业务' then if canshu1 = '业务' then
@ -249,7 +251,7 @@ begin
// ,B.ToCoID // ,B.ToCoID
SQL.Add(' order by A.C_CODE ,A.C_GramWeight'); SQL.Add(' order by A.C_CODE ,A.C_GramWeight');
// showmessage(sql.text); showmessage(sql.text);
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_1); SCreateCDS(ADOQueryMain, CDS_1);
@ -286,16 +288,17 @@ begin
sql.Clear; sql.Clear;
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight '); sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight ');
// sql.Add(',ioType=max(A.ioType) '); // sql.Add(',ioType=max(A.ioType) ');
sql.Add(',COName = '''' ');
sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) ');
sql.Add(' ,ISNULL(A.issp, '''') as issp '); sql.Add(' ,ISNULL(A.issp, '''') as issp ');
sql.Add(' FROM V_Tat_Cloth_IO A '); sql.Add(' FROM V_Tat_Cloth_IO A ');
sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID '); sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID ');
sql.Add(' left join BS_Company D on D.CoID = B.ToCoID ');
sql.Add(' where A.IONo not LIKE ''RSG%'' and A.IOFlag = ''出库'' '); sql.Add(' where A.IONo not LIKE ''RSG%'' and A.IOFlag = ''出库'' ');
sql.Add(WSql); sql.Add(WSql);
SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,ISNULL(A.issp, '''')'); SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,ISNULL(A.issp, '''')');
SQL.Add(' order By A.C_CODE ,A.C_GramWeight'); SQL.Add(' order By A.C_CODE ,A.C_GramWeight');
// SQL.Add(' order by B.DRMID'); // SQL.Add(' order by B.DRMID');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
end; end;
@ -340,6 +343,7 @@ begin
// SQL.Add(',issp=isnull(A.issp,'''') '); // SQL.Add(',issp=isnull(A.issp,'''') ');
sql.Add(' FROM V_Tat_Cloth_IO A '); sql.Add(' FROM V_Tat_Cloth_IO A ');
sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID '); sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID ');
sql.Add(' left join BS_Company D on D.CoID = B.ToCoID ');
sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = ''出库'' '); sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = ''出库'' ');
sql.Add(WSql); sql.Add(WSql);
if canshu1 = '业务' then if canshu1 = '业务' then
@ -385,25 +389,28 @@ begin
sql.Clear; sql.Clear;
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IONO as DRMID'); sql.Add('SELECT A.C_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IONO as DRMID');
sql.Add(',CAST(ioTime AS DATE) as ioTime '); sql.Add(',CAST(ioTime AS DATE) as ioTime, C.PFPrice, (CAST(A.C_Width AS DECIMAL(18,2))/100 * SUM(A.meter) * C.PFPrice) as amount');
sql.Add(', (SELECT COName FROM BS_Company X WHERE X.CoID = B.ToCoID) as COName'); // sql.Add(', (SELECT COName FROM BS_Company X WHERE X.CoID = B.ToCoID) as COName');
sql.Add(', D.COName ');
sql.Add(' ,COUNT(*) as js, SUM(A.meter) as Meter,SUM(A.NetWeight) as NetWeight '); sql.Add(' ,COUNT(*) as js, SUM(A.meter) as Meter,SUM(A.NetWeight) as NetWeight ');
sql.Add(', CAST(A.C_Width AS DECIMAL(18,2))/100 * SUM(A.meter) as pf'); sql.Add(', CAST(A.C_Width AS DECIMAL(18,2))/100 * SUM(A.meter) as pf');
SQL.Add(',ISNULL(A.issp, '''') as issp '); SQL.Add(',ISNULL(A.issp, '''') as issp ');
sql.Add(' FROM V_Tat_Cloth_IO A '); sql.Add(' FROM V_Tat_Cloth_IO A ');
sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID '); sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID ');
Sql.Add(' left JOIN Tat_Cloth_DR_Sub C on B.DRMID = C.DRMID and C.C_CODE=A.C_CODE and C.C_width=A.C_width and C.C_GramWeight=A.C_GramWeight ');
sql.Add(' left join BS_Company D on D.CoID = B.ToCoID ');
sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = ''出库'' '); sql.Add(' where A.IONo LIKE ''RSG%'' and A.IOFlag = ''出库'' ');
// sql.Add(' and (select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame))); // sql.Add(' and (select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame)));
// sql.Add(' and A.C_Name = ' + QuotedStr(Trim(fC_Name))); // sql.Add(' and A.C_Name = ' + QuotedStr(Trim(fC_Name)));
//// sql.Add(' and B.ToCoID = ' + QuotedStr(Trim(fToCoID))); // sql.Add(' and B.ToCoID = ' + QuotedStr(Trim(fToCoID)));
// sql.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp))); // sql.Add(' and isnull(A.issp,'''') = ' + QuotedStr(Trim(fissp)));
sql.Add(WSql); sql.Add(WSql);
SQL.Add(' group by A.C_CODE,A.C_width,A.C_GramWeight,A.IONO,A.C_Name,isnull(A.issp,''''),B.ToCoID,CAST(ioTime AS DATE)'); SQL.Add(' group by A.C_CODE,A.C_width,A.C_GramWeight,A.IONO,A.C_Name,isnull(A.issp,''''),B.ToCoID, D.COName,CAST(ioTime AS DATE),C.PFPrice');
// sql.Add(' HAVING(select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame))); // sql.Add(' HAVING(select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame)));
SQL.Add(' order by A.IONO,A.C_CODE,CAST(A.C_width AS INT),A.C_GramWeight,CAST(ioTime AS DATE)'); SQL.Add(' order by A.IONO,A.C_CODE,CAST(A.C_width AS INT),A.C_GramWeight,CAST(ioTime AS DATE) ');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, CDS_4); SCreateCDS(ADOQueryMain, CDS_4);

7
E04梭织坯布仓库/U_TatClothInList.dfm
View File

@ -102,7 +102,6 @@ inherited frmTatClothInList: TfrmTatClothInList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 39
object Label2: TLabel object Label2: TLabel
Left = 70 Left = 70
Top = 36 Top = 36
@ -459,8 +458,10 @@ inherited frmTatClothInList: TfrmTatClothInList
Items.Strings = ( Items.Strings = (
'' ''
#26816#39564#20837#24211 #26816#39564#20837#24211
#38144#21806#20986#24211 #36864#36135#20837#24211
#26399#21021#20837#24211) #26399#21021#20837#24211
#27979#35797#20837#24211
#21253#35013#20837#24211)
end end
object Grade: TEdit object Grade: TEdit
Tag = 2 Tag = 2

1240
E04梭织坯布仓库/U_TatDRList.dfm
View File

File diff suppressed because it is too large Load Diff

305
E04梭织坯布仓库/U_TatDRList.pas
View File

@ -25,19 +25,13 @@ type
TBDel: TToolButton; TBDel: TToolButton;
TBPrint: TToolButton; TBPrint: TToolButton;
TBClose: TToolButton; TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery; ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery; ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery; ADOQueryTemp: TADOQuery;
DataSource1: TDataSource; DataSource1: TDataSource;
TBExport: TToolButton; TBExport: TToolButton;
v1OrdDate: TcxGridDBColumn;
Order_Main: TClientDataSet; Order_Main: TClientDataSet;
ToolButton1: TToolButton; ToolButton1: TToolButton;
v1Column4: TcxGridDBColumn;
Panel1: TPanel; Panel1: TPanel;
Label4: TLabel; Label4: TLabel;
Label8: TLabel; Label8: TLabel;
@ -54,78 +48,125 @@ type
Tnochk: TToolButton; Tnochk: TToolButton;
cxSplitter1: TcxSplitter; cxSplitter1: TcxSplitter;
DS_2: TDataSource; DS_2: TDataSource;
v1Column8: TcxGridDBColumn;
Label2: TLabel; Label2: TLabel;
ClientDataSet2: TClientDataSet; CDS_2: TClientDataSet;
GPM_2: TcxGridPopupMenu; GPM_2: TcxGridPopupMenu;
v1Column13: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
Tv1ToCoName: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
btnWC: TToolButton; btnWC: TToolButton;
btnWCCX: TToolButton; btnWCCX: TToolButton;
CheckBox1: TCheckBox; CheckBox1: TCheckBox;
ToolButton6: TToolButton; ToolButton6: TToolButton;
Label1: TLabel; Label1: TLabel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cv1Column3: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
Label3: TLabel; Label3: TLabel;
shdanwei: TEdit; shdanwei: TEdit;
ToolButton2: TToolButton; ToolButton2: TToolButton;
IdHTTP1: TIdHTTP; IdHTTP1: TIdHTTP;
ToolButton3: TToolButton; ToolButton3: TToolButton;
Tv1Column2: TcxGridDBColumn;
ToolButton4: TToolButton; ToolButton4: TToolButton;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
ToolButton5: TToolButton; ToolButton5: TToolButton;
ToolButton7: TToolButton; ToolButton7: TToolButton;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
TV2Column7: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
TbGoodsEdit: TToolButton; TbGoodsEdit: TToolButton;
TV2Volume: TcxGridDBColumn;
TV2Applicant: TcxGridDBColumn;
TV2ApplicationReaon: TcxGridDBColumn;
Tv1CoAddress: TcxGridDBColumn;
Label5: TLabel; Label5: TLabel;
SSelJS: TLabel; SSelJS: TLabel;
Tv1sselJS: TcxGridDBColumn;
PM_1: TPopupMenu; PM_1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
PM11: TMenuItem; PM11: TMenuItem;
Tv1Telephone: TcxGridDBColumn; GPM_3: TcxGridPopupMenu;
cxGridPopupMenu2: TcxGridPopupMenu;
TV2issp: TcxGridDBColumn;
N2: TMenuItem; N2: TMenuItem;
Tv1Contacts: TcxGridDBColumn;
TbAddressCopy: TToolButton; TbAddressCopy: TToolButton;
Tv1OverTime: TcxGridDBColumn;
Tv1CheckEdit: TcxGridDBColumn;
Tv1CoName: TcxGridDBColumn;
ToolButton8: TToolButton; ToolButton8: TToolButton;
TbUndoVisible: TToolButton; TbUndoVisible: TToolButton;
TV2PFPrice: TcxGridDBColumn;
Tv1Saleser: TcxGridDBColumn;
TbNowDay: TcxButton; TbNowDay: TcxButton;
Tv1CheckEditTime: TcxGridDBColumn;
TV2editStatus: TcxGridDBColumn;
PM_2: TPopupMenu; PM_2: TPopupMenu;
N3: TMenuItem; N3: TMenuItem;
TbEditPFPrice: TToolButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
v1Column4: TcxGridDBColumn;
cxgrdbclmnTV11OverTime: TcxGridDBColumn;
Tv1CheckEdit: TcxGridDBColumn;
cxgrdbclmnTV11CheckEditTime: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1OrdDate: TcxGridDBColumn;
Tv1DlyDate: TcxGridDBColumn;
TV1ToCoName: TcxGridDBColumn;
TV1CoName: TcxGridDBColumn;
TV1Saleser: TcxGridDBColumn;
TV1Contacts: TcxGridDBColumn;
TV1Telephone: TcxGridDBColumn;
Tv1Filler: TcxGridDBColumn;
Tv1Chker: TcxGridDBColumn;
Tv1ChkTime: TcxGridDBColumn;
Tv1Note: TcxGridDBColumn;
Tv1CoAddress: TcxGridDBColumn;
Tv1wcnote: TcxGridDBColumn;
Tv1Comper: TcxGridDBColumn;
Tv1tube: TcxGridDBColumn;
Tv1Packaging: TcxGridDBColumn;
Tv1Seal: TcxGridDBColumn;
Tv1sselJS: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
TV2issp: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cv1Column3: TcxGridDBColumn;
TV2Column7: TcxGridDBColumn;
TV2PFPrice: TcxGridDBColumn;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
TV2Volume: TcxGridDBColumn;
TV2Applicant: TcxGridDBColumn;
TV2ApplicationReaon: TcxGridDBColumn;
TV2editStatus: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
pm_3: TPopupMenu;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
CDS_3: TClientDataSet;
DS_3: TDataSource;
GPM_1: TcxGridPopupMenu;
TbMXExport: TToolButton;
TV3ssel: TcxGridDBColumn;
TV3DRMID: TcxGridDBColumn;
TV3Saleser: TcxGridDBColumn;
TV3ToCoName: TcxGridDBColumn;
TV3Filltime: TcxGridDBColumn;
TV3DlyDate: TcxGridDBColumn;
TV3Contacts: TcxGridDBColumn;
TV3Telephone: TcxGridDBColumn;
TV1CheckEditPiece: TcxGridDBColumn;
//RMllPDFExport1: TRMllPDFExport; //RMllPDFExport1: TRMllPDFExport;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -146,7 +187,7 @@ type
procedure TnochkClick(Sender: TObject); procedure TnochkClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject); procedure cxTabControl1Change(Sender: TObject);
procedure btnWCClick(Sender: TObject); procedure btnWCClick(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure btnWCCXClick(Sender: TObject); procedure btnWCCXClick(Sender: TObject);
procedure v1Column7PropertiesEditValueChanged(Sender: TObject); procedure v1Column7PropertiesEditValueChanged(Sender: TObject);
procedure Tv1Column9PropertiesEditValueChanged(Sender: TObject); procedure Tv1Column9PropertiesEditValueChanged(Sender: TObject);
@ -162,15 +203,20 @@ type
procedure PM11Click(Sender: TObject); procedure PM11Click(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure TbAddressCopyClick(Sender: TObject); procedure TbAddressCopyClick(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure TV1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1CheckEditStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); procedure Tv1CheckEditStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
procedure Tv1FlagStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); procedure Tv1FlagStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
procedure ToolButton8Click(Sender: TObject); procedure ToolButton8Click(Sender: TObject);
procedure Tv1OverTimeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure cxgrdbclmnTV11OverTimeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure TbUndoVisibleClick(Sender: TObject); procedure TbUndoVisibleClick(Sender: TObject);
procedure TbNowDayClick(Sender: TObject); procedure TbNowDayClick(Sender: TObject);
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure TbEditPFPriceClick(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure TbMXExportClick(Sender: TObject);
private private
fcxGridStyleFlag: Boolean; fcxGridStyleFlag: Boolean;
procedure InitGrid(); procedure InitGrid();
@ -178,6 +224,7 @@ type
procedure InitForm(); procedure InitForm();
procedure SetStatus(); procedure SetStatus();
function DelData(): Boolean; function DelData(): Boolean;
procedure InitSubGrid2();
{ Private declarations } { Private declarations }
public public
@ -440,7 +487,6 @@ begin
// Exit; // Exit;
// if Trim(canshu1) <> '管理' then // if Trim(canshu1) <> '管理' then
// begin // begin
// with ADOQueryTemp do // with ADOQueryTemp do
// begin // begin
// Close; // Close;
@ -496,6 +542,34 @@ begin
end; end;
end; end;
procedure TfrmTatDRList.TbEditPFPriceClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmTatDRtInPut := TfrmTatDRtInPut.Create(Application);
with frmTatDRtInPut do
begin
PState := 999;
TbSavePFPrice.Visible := True;
TbSave.Visible := false;
canshu1 := self.canshu1;
isCheck := cxTabControl1.TabIndex;
Tv1Volume.Options.Editing := False;
Tv1ApplicationReaon.Options.Editing := False;
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmTatDRtInPut.Free;
end;
end;
procedure TfrmTatDRList.TBDelClick(Sender: TObject); procedure TfrmTatDRList.TBDelClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
@ -586,6 +660,20 @@ begin
end; end;
end; end;
procedure TfrmTatDRList.TbMXExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
with CDS_3 do
begin
Filtered := false;
Filter := ' ssel = 1';
Filtered := true;
end;
TcxGridToExcel(Self.Caption, cxGrid3);
InitsubGrid2();
end;
procedure TfrmTatDRList.TbNowDayClick(Sender: TObject); procedure TfrmTatDRList.TbNowDayClick(Sender: TObject);
begin begin
BegDate.Date := strToDate(FormatDateTime('yyyy-MM-dd', SGetServerDate(ADOQueryCmd))); BegDate.Date := strToDate(FormatDateTime('yyyy-MM-dd', SGetServerDate(ADOQueryCmd)));
@ -675,6 +763,7 @@ end;
procedure TfrmTatDRList.TBRafreshClick(Sender: TObject); procedure TfrmTatDRList.TBRafreshClick(Sender: TObject);
begin begin
InitGrid(); InitGrid();
InitSubGrid2();
end; end;
procedure TfrmTatDRList.TbUndoVisibleClick(Sender: TObject); procedure TfrmTatDRList.TbUndoVisibleClick(Sender: TObject);
@ -992,11 +1081,72 @@ begin
sql.Clear; sql.Clear;
sql.Add('select A.* '); sql.Add('select A.* ');
sql.Add('from Tat_Cloth_DR_Sub A where A.DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''''); sql.Add('from Tat_Cloth_DR_Sub A where A.DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
// sql.Add('from Tat_Cloth_DR_Sub A where A.DRMID in (select rtvalue from F_Tool_SplitString(''' + SelCDSKey(Order_Main, ['DRMID'])[0] + ''' , '',''))');
// ShowMessage(SQL.Text); // ShowMessage(SQL.Text);
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, ClientDataSet2); SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, ClientDataSet2); SInitCDSData(ADOQueryTemp, CDS_2);
end;
procedure TfrmTatDRList.InitSubGrid2();
begin
with ADOQueryCMD do
begin
Close;
sql.Clear;
// sql.Add('select A.* ');
// sql.Add(' from Tat_Cloth_DR_Sub A where A.DRMID in (select rtvalue from F_Tool_SplitString(''' + SelCDSKey(Order_Main, ['DRMID'])[0] + ''' , '',''))');
sql.Add(' select B.*,A.ToCoName,A.Filltime,A.DlyDate,C.Saleser ');
SQL.Add(' ,Telephone=(select top 1 Telephone from Bs_Company_contact X where X.CoID=A.ToCoID )');
SQL.Add(' ,Contacts=(select top 1 Contacts from Bs_Company_contact X where X.CoID=A.ToCoID ) ');
SQL.Add(' from Tat_Cloth_DR_Sub B ');
sql.Add(' left join Tat_Cloth_DR_Main A on A.DRMID = B.DRMID ');
sql.Add(' left join BS_Company C on A.ToCoID = C.COID ');
SQL.Add(' where 1 = 1');
if CheckBox1.Checked then
begin
sql.Add(' and A.Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
sql.Add(' and A.Filltime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
end;
case cxTabControl1.TabIndex of
0:
begin
SQL.Add(' and isnull(A.status,''0'')=''0'' ');
end;
1:
begin
SQL.Add(' and isnull(A.status,''0'')=''9'' ');
end;
2:
begin
SQL.Add(' and isnull(A.status,''0'')=''10'' ');
end;
3:
begin
SQL.Add(' and isnull(A.status,''0'')=''-2'' ');
end;
4:
begin
SQL.Add(' and isnull(A.status,''0'')<>''-2'' ');
end;
end;
if Trim(canshu1) = '录入' then
begin
sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
end;
sql.Add(' order by A.DRMID , A.Filltime desc ');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryCMD, CDS_3);
SInitCDSData(ADOQueryCMD, CDS_3);
end; end;
procedure TfrmTatDRList.N1Click(Sender: TObject); procedure TfrmTatDRList.N1Click(Sender: TObject);
@ -1022,7 +1172,37 @@ end;
procedure TfrmTatDRList.N3Click(Sender: TObject); procedure TfrmTatDRList.N3Click(Sender: TObject);
begin begin
Clipboard.SetTextBuf(PChar(Trim(ClientDataSet2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatDRList.N4Click(Sender: TObject);
begin
SelOKNo(CDS_3, true);
end;
procedure TfrmTatDRList.N5Click(Sender: TObject);
begin
SelOKNo(CDS_3, False);
end;
procedure TfrmTatDRList.N6Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_3.fieldbyname(TV3.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatDRList.PageControl1Change(Sender: TObject);
begin
if PageControl1.TabIndex = 1 then
begin
InitSubGrid2();
TbMXExport.Visible := True;
end
else
begin
TbMXExport.Visible := False;
end;
end; end;
procedure TfrmTatDRList.PM11Click(Sender: TObject); procedure TfrmTatDRList.PM11Click(Sender: TObject);
@ -1310,7 +1490,7 @@ end;
procedure TfrmTatDRList.Tv1CheckEditStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle); procedure TfrmTatDRList.Tv1CheckEditStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; var AStyle: TcxStyle);
var var
GroupValue: string; GroupValue: string;
// ColorValue: Integer; ColorValue: Integer;
I: Integer; I: Integer;
begin begin
if (ARecord <> nil) and (ARecord is TcxGridDataRow) then if (ARecord <> nil) and (ARecord is TcxGridDataRow) then
@ -1368,7 +1548,7 @@ begin
tv1.Controller.EditingController.ShowEdit(); tv1.Controller.EditingController.ShowEdit();
end; end;
procedure TfrmTatDRList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure TfrmTatDRList.TV1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
var var
FLAG: Variant; FLAG: Variant;
begin begin
@ -1408,12 +1588,12 @@ begin
// end; // end;
end; end;
procedure TfrmTatDRList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure TfrmTatDRList.TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin begin
InitSubGrid(); InitSubGrid();
end; end;
procedure TfrmTatDRList.Tv1OverTimeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); procedure TfrmTatDRList.cxgrdbclmnTV11OverTimeCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
//单格子 //单格子
var var
FLAG: string; FLAG: string;
@ -1536,7 +1716,6 @@ begin
// SQL.Add(' where DRMID = ' + QuotedStr(Trim(mDRMID))); // SQL.Add(' where DRMID = ' + QuotedStr(Trim(mDRMID)));
// Open; // Open;
// end; // end;
// 如果没有选择任何记录 // 如果没有选择任何记录
if Order_Main.IsEmpty then if Order_Main.IsEmpty then

20
E04梭织坯布仓库/U_TatDRtInPut.dfm
View File

@ -40,7 +40,6 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = 4
object TBSave: TToolButton object TBSave: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -49,17 +48,25 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ImageIndex = 16 ImageIndex = 16
OnClick = TBSaveClick OnClick = TBSaveClick
end end
object TbPHSave: TToolButton object TbSavePFPrice: TToolButton
Left = 71 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#21333#20215
ImageIndex = 16
OnClick = TbSavePFPriceClick
end
object TbPHSave: TToolButton
Left = 166
Top = 0
AutoSize = True
Caption = #37197#36135#20445#23384 Caption = #37197#36135#20445#23384
ImageIndex = 16 ImageIndex = 16
Visible = False Visible = False
OnClick = TbPHSaveClick OnClick = TbPHSaveClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 166 Left = 261
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -67,7 +74,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 261 Left = 356
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -88,7 +95,6 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentColor = False ParentColor = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 32
object Label1: TLabel object Label1: TLabel
Left = 244 Left = 244
Top = 13 Top = 13
@ -323,7 +329,6 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 2 TabOrder = 2
ExplicitTop = 133
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -373,7 +378,6 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Height = 469 Height = 469
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
ExplicitTop = 181
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -457,7 +461,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
DataBinding.FieldName = 'c_Color' DataBinding.FieldName = 'c_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 68 Width = 67
end end
object Tv1Piece: TcxGridDBColumn object Tv1Piece: TcxGridDBColumn
Caption = #30003#35831#21367#25968 Caption = #30003#35831#21367#25968

66
E04梭织坯布仓库/U_TatDRtInPut.pas
View File

@ -70,6 +70,7 @@ type
Tv1issp: TcxGridDBColumn; Tv1issp: TcxGridDBColumn;
Tv1PFPrice: TcxGridDBColumn; Tv1PFPrice: TcxGridDBColumn;
Tv1editStatus: TcxGridDBColumn; Tv1editStatus: TcxGridDBColumn;
TbSavePFPrice: TToolButton;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -86,7 +87,7 @@ type
procedure ToolButton6Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject);
procedure TbPHSaveClick(Sender: TObject); procedure TbPHSaveClick(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure TbSavePFPriceClick(Sender: TObject);
private private
fuserName: string; fuserName: string;
procedure InitData(); procedure InitData();
@ -162,7 +163,7 @@ begin
SQL.Clear; SQL.Clear;
sql.Add(' select A.* '); sql.Add(' select A.* ');
sql.Add(' from Tat_Cloth_DR_Sub A'); sql.Add(' from Tat_Cloth_DR_Sub A');
if (PState = 1) or (PState = 2) then ////查看和修改 if (PState = 1) or (PState = 2) or (PState = 999) then ////查看和修改 和修改单价
begin begin
sql.Add('where DRMID=''' + Trim(FDRMID) + ''''); sql.Add('where DRMID=''' + Trim(FDRMID) + '''');
end; end;
@ -424,6 +425,15 @@ begin
begin begin
FieldByName('CheckEdit').Value := 'ÒѸĵ¥'; FieldByName('CheckEdit').Value := 'ÒѸĵ¥';
FieldByName('CheckEditTime').Value := SGetServerDateTime(ADOTemp); FieldByName('CheckEditTime').Value := SGetServerDateTime(ADOTemp);
with ADOTemp do
begin
Close;
sql.Clear;
SQL.Add('select sum(Piece) as sumPiece from Tat_Cloth_DR_Sub where DRMID=''' + Trim(FDRMID) + '''');
Open;
end;
FieldByName('CheckEditPiece').Value := ADOTemp.FieldByName('sumPiece').Value;
end; end;
Post; Post;
end; end;
@ -536,6 +546,58 @@ begin
end; end;
end; end;
procedure TfrmTatDRtInPut.TbSavePFPriceClick(Sender: TObject);
var
MaxMid, MaxSid: string;
CurrentYear: string;
begin
///////////////// 保存子表 /////////////////
Order_Sub.DisableControls;
MaxMid := Trim(FDRMID);
with Order_Sub do
begin
First;
while not Eof do
begin
// if Trim(Order_Sub.fieldbyname('DRSID').AsString) = '' then
// begin
// if GetLSNo(ADOCmd, MaxSid, 'TDS', 'Tat_Cloth_DR_Sub', 4, 1) = False then
// raise Exception.Create('取子流水号失败！');
// end
// else
// begin
MaxSid := Trim(Order_Sub.fieldbyname('DRSID').AsString);
// end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Tat_Cloth_DR_Sub ');
sql.Add(' where DRMID=''' + Trim(MaxMid) + '''');
sql.Add(' and DRSID=''' + Trim(MaxSid) + '''');
// ShowMessage(sql.Text);
Open;
if ADOCmd.IsEmpty then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('PFPrice').Value := Order_Sub.fieldbyname('PFPrice').Value;
Post;
end;
Next;
end;
end;
Order_Sub.EnableControls;
Application.MessageBox('保存成功！', '提示', 0);
ModalResult := 1;
end;
procedure TfrmTatDRtInPut.ToolButton1Click(Sender: TObject); procedure TfrmTatDRtInPut.ToolButton1Click(Sender: TObject);
var var
FQtyUnit, FFSubid: string; FQtyUnit, FFSubid: string;

BIN
E04梭织坯布仓库/testDll.identcache
View File

Binary file not shown.

BIN
E04梭织坯布仓库/testDll.res
View File

Binary file not shown.

108
F01染色坯布仓库/DyeGreyClothStk.dproj.local
View File

@ -1,48 +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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.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.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.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.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.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.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm</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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm</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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj</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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.791,=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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.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.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.270,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.270,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
<File Path="cloud-messaging.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\D10szXIANGYING"/> <File Path="..\..\D10szXIANGYING"/>
<File Path="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>

BIN
F01染色坯布仓库/DyeGreyClothStk.identcache
View File

Binary file not shown.