From 0d592fe1f6f39fddec3779f4aed2395784ece05d Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Tue, 16 Jun 2026 15:11:08 +0800 Subject: [PATCH] sss --- E01梭织生产计划/ProjectGroup1.groupproj.local | 2 +- E01梭织生产计划/TatPlan.dproj.local | 120 +++-- E01梭织生产计划/TatPlan.identcache | Bin 2584 -> 2456 bytes E01梭织生产计划/testDll.identcache | Bin 178 -> 170 bytes E03梭织坯布检验/ProjectGroup1.groupproj.local | 2 +- E03梭织坯布检验/TatInsp.dproj | 2 +- E03梭织坯布检验/TatInsp.dproj.local | 54 +- E03梭织坯布检验/TatInsp.identcache | Bin 2099 -> 1991 bytes E03梭织坯布检验/TatInspLogin.dproj.local | 4 +- E03梭织坯布检验/TatInspLogin.identcache | Bin 1186 -> 1134 bytes E03梭织坯布检验/U_TatMachCutHZList.dfm | 15 + E03梭织坯布检验/U_TatMachCutHZList.pas | 2 + E03梭织坯布检验/testDll.identcache | Bin 178 -> 170 bytes E04梭织坯布仓库/ProjectGroup1.groupproj.local | 2 +- E04梭织坯布仓库/TatClothStk.dproj | 2 +- E04梭织坯布仓库/TatClothStk.dproj.local | 4 +- E04梭织坯布仓库/TatClothStk.identcache | Bin 31953 -> 2744 bytes E04梭织坯布仓库/U_CPXSList.dfm | 493 +++++++++++++++++ E04梭织坯布仓库/U_CPXSList.pas | 507 ++++++++++++++++++ E04梭织坯布仓库/U_GetDllForm.pas | 25 +- E04梭织坯布仓库/U_KHXSList.dfm | 479 +++++++++++++++++ E04梭织坯布仓库/U_KHXSList.pas | 505 +++++++++++++++++ E04梭织坯布仓库/U_TatClothCKHZList.dfm | 32 +- E04梭织坯布仓库/U_TatClothCKHZList.pas | 28 +- E04梭织坯布仓库/U_TatClothOutList.dfm | 1 - E04梭织坯布仓库/U_TatClothOutList.pas | 4 +- E04梭织坯布仓库/U_TatClothStkHZList.dfm | 28 + E04梭织坯布仓库/U_TatClothStkHZList.pas | 19 +- E04梭织坯布仓库/U_TatClothStkList.dfm | 7 +- E04梭织坯布仓库/U_TatClothStkListPH.pas | 33 +- E04梭织坯布仓库/U_TatDRList.dfm | 12 +- E04梭织坯布仓库/U_TatDRList.pas | 58 +- E04梭织坯布仓库/testDll.identcache | Bin 1375 -> 170 bytes F01染色坯布仓库/DyeGreyClothStk.dproj.local | 38 +- F01染色坯布仓库/DyeGreyClothStk.identcache | Bin 1635 -> 1547 bytes F01染色坯布仓库/ProjectGroup1.groupproj.local | 2 +- F01染色坯布仓库/testDll.identcache | Bin 178 -> 170 bytes 37 files changed, 2316 insertions(+), 164 deletions(-) create mode 100644 E04梭织坯布仓库/U_CPXSList.dfm create mode 100644 E04梭织坯布仓库/U_CPXSList.pas create mode 100644 E04梭织坯布仓库/U_KHXSList.dfm create mode 100644 E04梭织坯布仓库/U_KHXSList.pas diff --git a/E01梭织生产计划/ProjectGroup1.groupproj.local b/E01梭织生产计划/ProjectGroup1.groupproj.local index 4e29179..a3b8f0e 100644 --- a/E01梭织生产计划/ProjectGroup1.groupproj.local +++ b/E01梭织生产计划/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local index 26ff3bc..536d179 100644 --- a/E01梭织生产计划/TatPlan.dproj.local +++ b/E01梭织生产计划/TatPlan.dproj.local @@ -1,53 +1,81 @@  - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas - 1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas - 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas - 1899/12/30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas - 1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899/12/30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas + 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas + 1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas + 1899-12-30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas + 1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas + 1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm + 1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -69,7 +97,7 @@ - + diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache index 6dca46c5f9fce09d9e85902ea7820566d7336565..116c7281af14ae236a3bf61e777a707188953c37 100644 GIT binary patch literal 2456 zcmbtWO>fgc6wFWI1VVzy;m9qC^Wl;>7ETDMEJd4mX;)pZt=+YtoZtj!s8p#Opl|>o z(K}T9n}F%RU`@I{tT)DqBSncKy~(_J^XB0_vGEh>he?a;br;@ zd;ZvJ+P#@&_q?WIT)j9;PQD~xPgg(RdXxD8EFg9$BD@{}CUCOXgED{}qw)LWx8(9w za`JxltyhhXEvf65$Z|D(p=OtEbM&ImDslU!=$; zM~(p>#awtx$F*Mt*#sO65IIscs|1P&asUN^3R=q5n>6S_ZepBHS%uwkSe-!Z$T5T( zv)z-DW@b}N-wuO_LdH-?H103ir?E~SCDg>M9Sn$uRjEGp@?C@0{fK56DZbn(=u-$S zwtL^4=~BUwg*&=A?QkffN*kDiir{TPeQkP|oQwV{q}k;1Bh6fPyk4n?06EqGjw%Wu z)zzg%(a1%f$L@aLp6|IMTivos0k%G=9UpN`yLV-~*|udzb@{AEk>8FP4}&&iDyOcj xEV5z#xuK0iF07}$GnJkkuGcIzpi0#)Lsh@Llexg1wl><@Dg&KYL4Xzs@fVDno&*2@ literal 2584 zcmb_ePjAyO9PLNp3}Q++aNxEk-P);tLes8nid4CcX{|Z7Wjlg$f)kv_BqTV%;J`GA z-C^R}6vDm*4y{7ucw5&jrzq0z>Am-Re({}3rP6R81unC#E@U*gIR2h|IGdk;Nj|*_ zT-y>ao*+ObGejoAre$5ce4iYhB&YA@Ki>xZVJ%{q&LH$5-e5o|uZtYgx&A}-I3fkm*7~45ARSEQv_YOyg9&yXnZ+ZF#_Klx!a}+wUkTi0H z(8ccLr*F2Ht4Q6;!xl+RFdYHB3%E|Flb^eaPR+7^fBu%7zfO)m&VPLUb9Vge&7qR3 z%B(m1mVX)thn%w_*}(Q64E-`|e&H zVx~)K=ZDv^YY%YZ%L9X+yLsr0R~D;OkBO0=A6tjfa)B){o;Hyv*wrkHj|lPr2a#^& z%3Wek-jeo4$aq#y>ZLSY7f8@Vm3XN^b+ykSYtmp@bg!EZ@loy|LE%%M%njPJq!G*siEb3$c diff --git a/E01梭织生产计划/testDll.identcache b/E01梭织生产计划/testDll.identcache index 18dde52915f1f904d5a0c3dfef843c35db9a6d17..ceadc48616ec6e98053a10c6e5b11527f5ed1ab7 100644 GIT binary patch delta 56 tcmdnQxQda7iGhK^)x|2t#n2#pqJRj8r=y>Hq^F)a2cWmNK1^{tO4gmlF literal 178 zcmZQ#U|{fcv5IjiFf<5CEy#~~xp3$6+3TL{Ui^GPV~mTTL2*??W@27?WoBM_jH`j+ zvqfv4?{0rSW&V?0%U`Tp__SkEOi5~SiAzq7UP?g`&@edgrp(mPc#yd%KywQci{XX> F82}rlOCJCL diff --git a/E03梭织坯布检验/ProjectGroup1.groupproj.local b/E03梭织坯布检验/ProjectGroup1.groupproj.local index 64a322b..04cf60b 100644 --- a/E03梭织坯布检验/ProjectGroup1.groupproj.local +++ b/E03梭织坯布检验/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/E03梭织坯布检验/TatInsp.dproj b/E03梭织坯布检验/TatInsp.dproj index 907c76d..10e0a7a 100644 --- a/E03梭织坯布检验/TatInsp.dproj +++ b/E03梭织坯布检验/TatInsp.dproj @@ -80,7 +80,7 @@ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\testDll.exe + D:\D10W\项目代码\D10szXIANGYING\E03梭织坯布检验\testDll.exe diff --git a/E03梭织坯布检验/TatInsp.dproj.local b/E03梭织坯布检验/TatInsp.dproj.local index f6a7cc0..8414e6b 100644 --- a/E03梭织坯布检验/TatInsp.dproj.local +++ b/E03梭织坯布检验/TatInsp.dproj.local @@ -1,52 +1,52 @@  + 1899-12-30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899-12-30 00:00:00.000.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas - 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm - 1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas= 1899-12-30 00:00:00.000.060,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatInspSHHZ.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm + 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas + 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas 1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas 1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas - 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas 1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj - 1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas - 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas - 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas + 1899-12-30 00:00:00.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm + 1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj + 1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj + 1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas @@ -65,7 +65,7 @@ - + diff --git a/E03梭织坯布检验/TatInsp.identcache b/E03梭织坯布检验/TatInsp.identcache index 6e55e2b683b06faeefc75569c96ce70ef53508aa..4b12b2111bd4d1421c69ce6d2c7fcdcfdeb99799 100644 GIT binary patch delta 446 zcmdliaGak3kc h_&P?O$&rjA$aWe}KF%zT;*E)}3ee~PTVBs94**}{b}0Y= literal 2099 zcmb`IO-tNB7{~W}^c%Ev$yV^t+cwcnWH*Z0^<@bxvzyT!oXiZF32IN49(w7mg3wZE z>!k>7uZs9>)Ue;eiOQPJj4|Nm6axR}<^TMiCogKX+OqRDbXdb$g^Y%ipJ&;(znAC7 z*^dvQ)3Esa4X^39Ha));E?9Hdzy4(BpRT_DyE^@NeS9!E`5g8JT_8NdS>U?;Is;sW zoIYOF*iFlt9DL0Ve`hC0mlt1T)PwOJ-``=%6b)fBqlx6Z62h-h{DRf9feObZGJ<3*aps^|4$XqFB!8a1pif*frV z$-q0np#ubHBeJ7P8|Bi`UMoS7opM2An{!pYR8*HiuN!qg<1K0+^Hnjd-p@9sLx9&n zqLx#6Ps|qIZ(u!Q$#nJP%PffQfYI1ag&DUe+Rex35teF1wTm{Dxo>W_H$ViffCOkf zS;fFp|GVP^!o`$?If4?azO(5<%+w*gG>ZR&(Io2>Wo6CiD9O2%(KL(8oX;;mNNTfB zIVIgngTCtzmV#wp6+e4^k1ciOQ=@y?6hgKdLn3=4YHno5l=~eZ#)b7iVwa zO}f|{ - 1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj - 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj + 1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj + 1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj diff --git a/E03梭织坯布检验/TatInspLogin.identcache b/E03梭织坯布检验/TatInspLogin.identcache index f9c4d470885f1affafb56f436358df11f36fedf2..0d6c92a6236bd9c2509277d72be0de178d82f200 100644 GIT binary patch delta 214 zcmZ3)`Hq8!mw|!7!^JAb#n2#pqJZ&a9wsRc7bLz8ix`J95?_s3lp_?0pUR}p5rx7R zpS*)nl*0>2>@<@Mhd&bk46`DKC!Fuc;Rt6NPp)DXMp4_yqKItP#JMua&YAc_6veeZ GjA8((w>QcF literal 1186 zcmd;OU|{fdv5IjiFf<5CEy#~~xp3$6+3TL{Ui^GPV~mTTL2*@tr=y>Hq^F;IjH`k1 zvqfv4?{0rOcm2~H&CeD$yj;~2 - + diff --git a/E04梭织坯布仓库/TatClothStk.dproj b/E04梭织坯布仓库/TatClothStk.dproj index 26823ac..ac421da 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj +++ b/E04梭织坯布仓库/TatClothStk.dproj @@ -80,7 +80,7 @@ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\testDll.exe + D:\D10W\项目代码\D10szXIANGYING\E04梭织坯布仓库\testDll.exe diff --git a/E04梭织坯布仓库/TatClothStk.dproj.local b/E04梭织坯布仓库/TatClothStk.dproj.local index 229f651..a8197eb 100644 --- a/E04梭织坯布仓库/TatClothStk.dproj.local +++ b/E04梭织坯布仓库/TatClothStk.dproj.local @@ -1,9 +1,9 @@  + 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas @@ -94,7 +94,7 @@ - + diff --git a/E04梭织坯布仓库/TatClothStk.identcache b/E04梭织坯布仓库/TatClothStk.identcache index 59738afdfd6e48a92e26fe09d40033b978f05dc7..150ba462a4af8d93d8080ddb167c5627e518bcee 100644 GIT binary patch literal 2744 zcmb_eU5nE|6zzWz6h%vR^~txIq)m2XTbtH(OQ1}faXai}CL|MdeNuez2dp3{f*&s; zsIO}A-?Wzf7baUL;LIe3Z2~2saL=53?!D*ErADLS7`HuRM?3J&-v3y?`MO+uT)%sk z{S!ZVV7I!RL%ZAYOzqb14`0@c7pu45R^Oj57pJSAr`~9?Z|O7$0XcCYZiXOE@$#p) z4e$^!9aA>%CCu~@6S0jd*ey*vd-{6)^3(eBtL3kZZZX+G6~H1DI9Zn+TVn^sY_}%9 z4wypRj}VarxWf5{$rPj6j^_C=Mn@z~@(zfhO~OQq>GPP2RGQ~#8oJ?7dMsvmm4oMm zhVux*c0#=DH<}EF>06B2<5A_5v`zB~)l4b%F(8W8yUby8GXJP!K^%%qu9b%vfB^>) zDeY!)*a0FweblB=usK{j@g5H?&s{xuyd3)ersHmk=w=mkc|y)R?k)&jD7DWGjwp*d zd)$eTuO~61fgZ;qmwJawN_EJIZ6jnpyRPYo{JV7=U=x***;SzBGV$`;FCVxJT?wh23V;R)fMKYNDI;Q!zjN2q#renPPSA< zp(^Pwk4}p*Fq;REuu4&6}spNo7gTZ)ycrw3TrbZQVZ%=nrB5 literal 31953 zcmb__TW}lam8MAojVnosvSZD9Gc%c_YN}>yQvyg)((V&3gan5-6Od%Pyu|{61_=un z2Hm8@>`s*v$F_Wtt;CLH$8u~XzU3mxlbdZ>vS0RbYhU+a^Ry*^N1pZ;e1?H@mu zO&qd*^l&~kfBcdB{PD+T4o!7`eRccOXF6|Q?|l5^?N49s+<5u1V#&_bTlQMPKJ)#` zdK(vX|I6R)l~acf?LP6#?N>h7{@tb9w_bkizNV8Vom&z_Yv|+Zl(k06*nvM0~irt)=8n#>Xm&3^*mSmaq_vu8W*0jxbwNy3( zW?g=mI5slVsv5baOsm45nw%Q0Rb#nUyOA|5yWQFfoUPewQTjoqZI*2QQ1Vc`VwUTr zcFC@_npSwuw5-yqY4L3)C%S*U(!Km_=h`oCfAVbi7aw*nTno{iSIu@b(`q)&GJPw8 zB_%TTTKP;M(^}u+)gGchlSiW`m+5IvnDzAlesFXoRjCYD_<^R54rkL??tH0X26Ox; zK5=+5UaYno?w97xb9RuHY#AxO*-(wHJb5@;D7Rbndb)KkVPNBmvR%okP_|a8w^prS zt6eeMyp}}xc)PT|Rx4X!EE+pew?f5*mB+FAP`)8TR+?W^zzQ5Ce}$mn=}ermTmGErzS(`4co?v1aUYP zA4l@=SPc?nHq55Yr!~@S@x`V_?Dke9-@v)ivqaR%m=#*W)M2AsI#H{bLyz;bOw*sq zBeB9Gt~?H}Y|;Ib{Coa$Dj7OmYgSrk`Noq8`pxvAaa}+&jS3DoTe3^DwdR>n-hy=7 za`saJd(CW)SU;>AGc$6q=4!1OFBaBKvm(!BbYHr-{mu=#@YErrZI*Fd^pC`0`t$H~ zWWC)go0W~WIZpDRsZONmEF+lDJ~C4Qe2gzW9nE4l3jB$Y%~Bf+ zV)Zz?R;!zVnR7Keo^RG{=kmeaV#~5eYRz&eQ(7n4=G7cF);Crl-vRn<7^ig7uGOu8 zy|r%c^VC4@VwmU3=DJPao17e}RQWiQ$?&OCyH;x2R$yV>S$TI!>$Z)F~JiBJL&2Y++mC@~v&@ZR> z&*bD-@5aWeHM3q>*=mwPX6j~%wI{&>kq~`O&@~Q+G9;3w6)&%MlqbMd{M_kP@Y`a<^)S481Psx7|bM%wHf^$!^6`>+3iURswz?KJ3I~R9P<=1sF&?e9aamID9m)fdzjJ+dW%a zG3#@s^@3@W?S7;9uWY-&J+z1ICi6&^rf#-l#qzl#%-Bq&W>4Vn$J@0^HeD=1`%l%( zv+?pdQ3?9J*mz@huJFTpV!V7Vvu2jhWLk}t7M^K;vDK=}XA?=bxAE@BPi_D9hFIp& z@;Oq+g57Gv5=@lO<(unucnDfasn&#%p{s_{xQJP54)P86$>K5_mfdQ&3)DPD{PyQ> zcCNlArm@FyjOJQpY;h&is&6!!`@EG-^Fl*;@ft%Z&2NNe&Y9)HL$hqzH%;wJll-MI zJW#u}o^73N(%y`B&cD6;`a9icpCFfX{!%=btJQ6BT*-ZEV;5WN8|!msb0btti@y{j zAzB&cb(PwQ0DN%OkjD)c>FOgm+0muBWjY-~4Q)G$?N{zXJkWR=el%CJ=St^J*DCfJ zPL4i3Yi^qLBo2%I;od(2^Vhk0seA1&`|0wqP@Y7DVRNu{({h|uwFH3+z`{0MFB!!?k|U z|6NJ`uCs$j7om-2+pd`wiS#Mjz06vvxoTE4!AS=B7tw-%OgzV!{4G_l=K*i5nDa;k zA<~2litQ4hXBG-en>?{|?YB_x&b3=R&-`xpiJx?CydqA{!6e$vrr8POIp#{%88#Bm z#R);;1`fa*ms4~xtHEb)#k+4mvwiim?Q2)IFFtJ)7fVgE9xEI-q2?s%7J--pkcHBU z(%ytTa1^#jiAr#V9s%-Ju(zPn$_}{JQvn@KSe5C9Xt157Q)a;AxK&qKj)rH>*%`ZC z*Hk?b`Qb(jUJanfgGerF_pni1nLif8Sdng0Xl=C1rh-d7z8hjqdq?7Rrq;BwX0-&I z>KFwLLXFXNJUd2+DuT^o;9!Ldc7<0vri@OpH3KYEhjD7~&$V+qGFD74m8xyiT9Xyh zh0}nXu#6Ha#>iXb4pjgUCLB)7bs!o(Q=A1f(pPvN*>(4at+ZIAtP~i9CLLpUWyas*-{QDO42Eg&xac0 zo)rRcgYGRSMwfs>R!ZeFym}v^)K(%9oIsD{c(!H{Kye(P7RQZ=*qUw81Yb-7r{Ma; zh->C9Y(9UU+$zKDXhH+NY1c6l#_ov zkazTqmeni1Q3knelLYUER!zGC`B2iAbdB#E{G*4X;VWB41#z8ijsXIb&7unfK*C--AV<-Uj&zLV5ss@pM5Xc^PQafHuP5YN9w5 zFaetSqK=`Z*l9w$8Qy&z$&-gNmmjWMF{Ry^R@;o=euCklO=i8GTFgtlG1K&&Iz1Q# zc(9*rQ5|39A@XR^^*iJ0>|n_m1_tQZbqp~nAqfQ@+L4RQO$H#Xz;Q0dJ=^6Z&KXJF0@8`DoI2RF!_g(Z~ z^ovRyojCMZ#k6XxO^{+FRfE>@{V)ESBb)xmNZk3WVmHK!Wh{%o{XbtD{y)$E@1Z~7 z9F5d8{U7_&2+oAx@H@h!_%qB1io}UT&@>t z^-bW&?BU!@NPP?r;0zlFE11t^XL3gF=*(31Xn5sJZDw@~BuNfDS=uP(5N287O>6-8 zul9lBNfc3=`?Qdxt1Bb$xE7gVruG9J>OU31-Og2?a8MsH`%oYwQ z4V3z5Wh+UhV+=plE{?}}1lF&0c9tGTfE)rOKBM5wd^VpOEmump764Z}gAayMSWcs~ z9!$|vj8rCfD3ueq8^M+5wsHu!BSnf+Xw&weT=vP@(2|2;1B4d>=`Gu&t%n>LA{q$G zjoef=mzg3ugmK|MtRW9%1iqui%NT+LuI^`r|cRvFA<#mF6+IWlv| zfo(u}u5yO>RLmxsf#bXjajb;)be)znsw*;-1CO|5NSK2&a1b;-4TKcSB;jOBL9CvU zl5Nc$o5^N#J^+OW6iuR!8<}Id!2bV~CBd(>88e4?)$nloHjqGw#@=V0T1ea;Z8}Re)q=NpnS91Qn{PJ zBmb58zx{jhe-g`2`rx+Edjxb6ItFI{(M#WPdSL*E7ffgJ`RrFB?*u_lfzE51iyLiZ z5_%XsBLiSvG2K|ws4{)*cqANtdVXOkq49SbEKS4}FUgoK1Y1C-8G)<`b*U&mCmvF1 zpgz(L&P_=DAUQotap_KUlu+~w{)fQ4@OH7xM!OA1xCqXZwlH0UVI@G32vD?Pbe{TP z_sI{0z|#^Ie!4D3QKh1f1C5fs7RqIcWW-%p8e)i(a1%`a5Xr~W^#tI1@^h5JaXC6C zP9Bhkx-)I(5^qE=vr8lf)2hK=Y>h0z&Pj^XCGhlE0eeQ9nc#RUp>ujF1C{7W$b}%g zw8P=0)>+nG=Jh%E6)QsCkcMmgkOUnE8W1jP}VWwLKEmpe@)!W1UcGvVtF={E|Wgp8CmztLF1mn3Wt zKXhUP%t6647Fjjo^yz~78MrfVIf?8_T{I!H%vAB%NzjByC@T}vL-Fmw>UsM&sWE$m zVmw|iE>9zoxFIQQa1m=r_rd3J0uh9t$209)Tt;|_mC!ntVfNJ-CkHcsAu<&tKOmYP znQw)G4VdO1m5bPG%cLQp*>q+xwFrx*s7laoE}0inWYTc0*#mtd4tG7Nk$2%T#jwbe z`7@0U!-=?2@#GG#2U|dvW)O9U%tEY~E|fM+K8m~J=`^Bav`50+1t%N`Wyr-T1RX@w z#fqm~G4N3OSaA)K#+pNsk4M;fS=%pU>*m-8M8LdO(n#=}*@L%>q%4(n8Juq$K<2rG z2eHjApEp#4oI$Y~r%i_a;?~26^=#xr+YVQ!_&G(j^{{in+;#QoMR$E%!-2qT>=l5wP}-pg~_-TYCkfgMbPebL9WcN`4~8c>`bN@yFWjV!V-?HGoBUphD+&(C%b7>AM*+Y*hPHX@ZwwWjZse~POz|YP;lPRxzi9zvGRqomMkX-<} z?DiGe*GqSaT|Y|fl}eN`yCut-^ut8@m?F6hsf^i2seS!mncVUiZUriYFdtfiK(>o8 zU3QGIaC(a@`8bjUdVPwPcko!QUf$Oc4<|*a6WqN7SWNf{BvLm(!g5TBT2==&dZ=-W@i ztkzpAr8-I!bTVWdWQd{;fa~L@Dbs}vJf-3(uH)-QRwvianN&j#`q$dL* zeE(!&X2~z(CzsuuJCz(1BZc_F`AR`w_?iRR;OqMdL{u_Mr z%;Tj07T+K%Nb#Eg@?Ri3=kH?EjEnd5q);{GamY{x9DJYe?yG|JP>q zdwvyh*^5&=`E@Vs5XehE*n>a*CMA6kp?cRPk^RxHvvw^2zUPhq@>Xr*Z$ndG5CE$< z%gG23+H)Yf1j7===`Mr{8t*O`MvT@X1S&zXL%4pO;J7C}{$;}Bq0|=y$RGoK+jw^& z^H&d*85c`*7hw3ccce@?B?*!B4d| zI#b0R4#?*yS%u#Ng5$B2Dn62+?Ji?ws&CmNUe?{dKX(4&c)2e`mKqpNZ}r81$ zMs_%XzWBH&ocr<-vI-9SqT>*eKOjGya7~5Dig0mp;-A1C!Vznsy>cH&>bHjikNs%L$wfN!{uNM|(xj3Y!fMqW!@$6%Krf z0NRCulgwvnAevJM2I>NU&irLC4EPyx64&Str%|9Z8TDdmjTUnVx;^4)6*}o*wT8F9 zbcFpa#3w>dP;BCs%zRPc-4k*9Xg6|eeeo^4J@`vgJO04^$b%(Wz(dkJE)#P18>^i~kMy`8D>_R3nA>do~5msi> z5T|Pa$O+Zi6RE|vx!LRb#NF>vxDrCtR$fENmRr6UbBVl0wKvk&Xbu(SAE02}XZ#~h zHD}VL?o{xvNTEIwz$pg@36fMkr-#HOI+>_l&n$>jhvlKzWN&W3A#rtX`%XN;{ZOc$ zy%UC`GCZHSTi(DeY#Zxk4SYpGI&r|_ncSN`_;zaE6ddY!qg3^Zmd7dx`UW{|j8mz#gr!%>-~l4V4e51VOTbQEGpb6W&bBEiM&*@TeB(^u{=@ zpFiU9gNK~}M^VjRDYA(uHJfks#4~yZM9b;L@%+oQ0VF?hj#<=p45i}Ivvd3NE8QPo zch`GZA~<>S!!C2GGJbo7FAn$SPw{yk8ye3xPxW*4q)ZqJNx-7gmP*uJIIV{&-iA)f zDvu0~TY@!ow6(vu_P#%xr@F`-)IK0aakp#gF2j=np@{?1!(<$pW^*d?_YO*M-vw%f zn{SP7CLn?QkB96n_QDdFcx-wV$#W2noIy;;R=G(#kNoT}%I^(Iq@&GE)M*(Nl}8H^ zDc_uL^+h3CETIAr&sCA)s8V{)pDVIZR++eac&}G?YuFyCc3r{NMLv6v=O441l?B2*tO!eSnPxuq0@=o*}&80T% zwHESiTP|6PWCBB zk73~PR;{@=oYkwn2jJi_g=mz4+oPWklsb?fMQu)YNOPkie$x!wMwOz8vyQXkA^VA> zMM6+1Eb(HAnk||GfvD_0)nJfr`zlBJaH)5$eZ|@XlSvM0?+vV_sJcIaf}}uDm@yc29R~fv6~<|AeSqCazWp|}2G=L(m3YE=Kk2Cd;N8P1lhZ*>tA)AdpqiFMATbgn3hd?v%g5s zCEeYWAwYpx%F4FTzblOa!;f3u*9u{@8Bo zPv6e94z&{w%kL%>e3;bl&?(_g9y3$)Qw)T6oMNx>cNlEKh&rJMzd* z^ObXQDQ`au28#R8*MqtM)dL!#O_N$gsc`YunsqfUtqkrywHlrXfX*G%F3?WXrBvl3 z3i03RzIwI$7E17cCl4=;zSJ^$`2%kyDT8lng}6dtdMbF9>OO+}FYi-nxaUS|)1*cE zvW7ZGF$%4!Y`~W>)2onov1?0Vk3gP1>AR@ivQnl{)i)z;XM;C)idVS`~u9WlW2)^ zj|Vl|ZeW+ol*A=t>!j>+_0lS@wKpJfbn~kP9Wa1We-xzx9KrC$2~;}NO)c7BKbS`H z83K=z`M^UP=oitW4E}bpMR{cnM^1FF{ssbd`{U<#ZjlCJEQO23FbG1$9I&uM*`7i| zz3X>WhG4*Gkx~Utr}NohqjYY*C1C|Vl=9!+n-ytVr__l)Q*h8c;SEgB7JsC63oON#g(?gdH!pxGlo zp_TYa^X>!POK*4o^a~k{(0%op+n@fmd-+1=xhtL5Kky0wy|hJ73>K_XT66*~s(bl~ z&O7gSUiwIS_5;OSKKt!_1@tTWlTi;fTM%qkFx%iTD3>2xCysEmaC*6LV&ODOe&M(pZA;*ZOyRdvwRqy4o(4`IKmn*fzSyymw4AmLreiH(>I@6=ShhE^K1d1H}q^ zH`+$3Br^yC*7gXO9LvUI7R0h?5fr0xjz-{&z$sTU)Ew+aPeGe%3nzA7{D=;oMMk(9 zbl4Dja7OopGo>~fZA*1ucolXO!l~U8E;p$MSPBgE6jTiet$H&CgCnajl@2u_8+&xu zPRQBoBPXH_?s6oH?GjA^0Jvt{sr{$@1+GS42~U@R!;4y6Ek;79aLO1*JxM1N-tTIz z^Alfq<_d7hk9_n;W; zo)AtCM)!*5ID_OTk0r7jn@ca}GYj*lQ%m!hhb2al%$Sz%AVOU1f08OC+2*PKS4b9F zny50`v#r$-a0ShU+J}l~&(ombCu*<2(O0Q$p2;WC1v(bDv(|&O5=m=sT@8ev1Z2bbyLoSK73v7!Js z#Zj(_ky^yN>V}Q%T>ohMgA3bNpAErX%@#nxiAz_t_V*I~;1?F1Um2H%qHL{={lpd^ z#<8rkt#)Mu*E6tKG{pLvUO>yM4@(F)Qq5P4BKs@FEphDiH5xtXP)p4%#g8NUbpM;y zS^WX^UWj4+GNDJZkK;mNbmF5?9O?o%Wo+MgzjOZg;CdVD`>B(}fi2vsK&KKQ7X+AR z(CIH!(E^pD4noWB6&mqO_X?UI+fi(hIi$ZiC5LF~T@i(FkzOQ+aRfY2$%$bj+#GJ> zYrKg@VXcm!E7qj(Y9gN8(06Y!i{=4$welMZAHdu(5~sX8saT}*;`7@#f7|`bj~RZu z7EMPt{a`Gnh6vE|C-iMmOQ5|NtJ*9(3f*dGA80oC%u(aHW^w(Z`&0fSahPpSjh*Bv=0PE0Szbd{D+tqEtMle^IcbEojvfX* zf$g$9M5J0uHMd9|!wVQfU^m;A(MIoWN$Yn-Q=F&z7)*4n`^qO0Lq}XE0f|uk2lvy( z=q|+;wUuzCD*bc3YR^Ju+;1os5#4kb43pR7!2$Prm+(X>?4V``{Kj{#eZG6?nye(q z*WIsUZWdlAhL7urJ=#R>+>jy@3Wy!wBd#k!3J-V6O8f{7oS%NG}9Z^LAYNF zgB{6qJfVv%Mv7&-Hz;;7KM6PhOw@*$jRi?Owj?u+H z59>zgs}z8O&g6=8w+Fv4Gs|Y`h2`DR`rn5By^6b;JodWYBdNS4jlx>sJyJM12djd3 zJ5aN%b#DO3XfX{0ju}%NIt&QDJ@)i)STLn&2WS?e7L{{Hc~6qU%?WV5U;M#G$Ttfe zO+2W#+ECrHDT&k*n^7ihAv<$W&-3fM;H@d)$gkD`I2GdJezW4yOG5M>R+&J!P<@)$ zUWvhY_x#1q%RiPuoKBWd13CAL56!02KvbqzG~_l3!dlnXSK7oJQ~ofrIG2#PpubYUR_Nt;pCByJBY$W7TUUJbwvtUCeWd`Pe=Dn?%bp1yF8{ZCLz7a!jXDX$XM539O z8cwKiPBtk??i@dX;nk*-y`tmR-RP8behno`OZZT(kSJ<-8%$bm7$N96l*SP~XA<9Vy zQZS7&31OU;jURo>tC!Y|5L$|z9wM366;9FqArYV_c6s)wB<}9T1Szy`5t6|;Mm4?* znM>+w64Q7`nn26D3G`>LIh;y4ps**|dcS0w95Iqge>f12TDl{PuxHj)!PK6FtC3%z zt=of0@S6VywE2aA-WPsA4V})!uHFKso_4>`DVbdAo7km-tqB^ICgc&>Ia*PG>J%Mn zfd_c0F~Yk~JllQ#x8lK7vtS(OGT)k$gK%gEw`ngqDQRHu2VaSc*usAX}2N8zWG#;7^NED*^2*?x&7?B{_cj#kY%_C)x z$D~)+QM|o-4jo#Hlgh!&!pZq!;4}uHX`(nKxPe@o0<54^fuADW#oofGVP-0vAz0cs z`&$sHK$r^}xtnod?pO~>Jy$n9T&d_qjy<%5Ds&83n6ufRURGAe=fXoc5W-1JbCK_s zh|D!JJ&lRpa4`gc-lC?o!bO^g?TSv~kQN0A0kL-idicSDZ;0LS++6Q;P!0MdoLpHr zZvk^b1%{RaG^RmMQR}sc?o6)WDh(7t$ssDOJaje!85yJEwi3-1W1Wf?UE3VN07@E1 zSw7=}UNum}muII4IaJ1E#kGxum&f+gK%p6qZcN3=r%0^5A!}~_dfd%Fg6TYCwh`kw zy^87LysRezD_r2r{iw4Myw34c)cPU~@XOE`j-Hb`PDEpN^NpV!^Jf^I?ldJmJy>xm>8p>ILJNmEF3h*tG^ONc8Jmb zfjvQPIH3NAIt>8U{FM4S@mIama2h1JbX87+JRn97Gs$+Yynv+p_8lZsO{RCGq>O8lC#y+!pW2j%SuvV+uq}LHvFz_I@>i{A`^EFDC zU%@r4B&f0K={2Z7Pf3e`a5L*WPrlH7{kjtl1lG=?Yn+`CHq^=VQYnTrUJQVHZs{a# z^RV6G5HpCGj+F}gKFYzW@zmo?blNx)(QGwEH^>?kWs&4vGm5;7f52m@1CxnV7zCmV zq%+gSjYSX0;Hgv{(}*aQeWKO=k!FfR3JznU2nHmp~SdkXaz!wVc+-S6G{ods;R-XF72-8>L@oA>0bU_=i+s| zxR+&;U&p`gsXbeqaZXfeEnImeMo zy^aXFRw4UloZxvAuA6h*Y#g;Ec%z1pNx_q}t1?8)^;Y|lKqQWr;sS|a+^Mng-QT|k zVp;S(3U-jDPl0xpT!G9K2*dL52;2$m8wq#X+co6;)u=W%j8X5O*x$%oG8e5@5t%oL z$GZ7sjFM9znA^aTqv{Cd(Fk`LMRqL;B++xjOwi2pG1pwPO^!5Do2x8_Fm)gY!;Vy< z>_&;5Y&@LH?x(NqTzf~X*+G>+!-hS3K|h*_ozGqdGq-*7)t%3NCK3y?pk`595q6%W zMqVg^sbD;C#EI;J8M{77gXo~5i}4HI!K>EkdL>0z(!jh zA%Fl{^c(qNRMLZgAZtlT!qme?aGm%bmwpFOvtnZy;=V$5d8Q506qA>Elk^u4D9U95 z(}O|Rh>%s8W!dLHsPFZ=HRYvWdcVAq&pTN=*K1RRLx1CiR*+bFeFqNp{mv*i>annBX*AzANF@b zZ56Ftoi@*?BYehK7gb~Q(ttb~xa5R6Jsx8yfLs)&1V+}NHT?Wx`X_A>UUb7;O^6;G z)qsYWEJTM3MB(642x0B!eoDR4okh$5*kTRO4cHWnRk@3OEq)=2C4dxeYJw)OJoiE8PduWKiQ*maf!#YTA!K3Vm}I*NnsO$^U(R-tehQB}5k z-Y#>mBTTE<7#`XP!H1cV4*2pGJ>EordDOS$+2{lWRTlNu z1po@M6QkGz(tkOS1J!=}GmJ)Sm3EFWz@p9nXV;7?^w0w=J!n0#K+Q>bVkGy3H^KCM zS#F_*4x}{ps$yw4J`tu}pj(9KRV|z5!@dmBzE)G#>LB6)1sxHMm_KwC8Y+aTL9UR zW`$ri5i);#_bJ+Usdd3DDUDqtIiZEb8iJr`m3#CXPXKiIaEg!9{dcmzbPfOBM~V)} zk6SHlV;NC5v^7r7^_d%38NdpuF6x)0sNs9=Ig99sm-gLXwM8icL}@GUFifp%gN32u zaAYS+m^Mn2K6whLQw(=MB^G^pPv!_*$;iyZGk>?x^hDi_D|y5%LvmOuYioG}^*Kn? zD*Zp$c?$UMNkP3L>4JSnP&OF>&mhYfSFs^SD?88r5s8QLhDFuP3rz)VV(LiA$_EgZ zt_>HfVM^sMH0xUi-L+Oh?YY!N!VOqPW;%N;cZ|dw0EOR$gT2IHIen*vJagn`*h`w`<@%t}MuEWKcMuXj3XhG~O z9W+nyBV&d15RL&OaPc|G!sB$wDAAr^nlz7&kFZT)MbFFYxYT2I-~I?y_hGDyMTjDB zI2gKa6u!D%=AYgNTi$&F?;W6F>Y_8ycH(c#OeRJ#S5={s7?PdN^xy|n00dZqqO)Io zh^c$96C&DUbQ>DR&82e3Xb%MsvckX(h(VWiv{msYmywn8So<9ox!T&Yc9n;0`gAmYR-BBr%f zEQ4N!!3PsL-m+1Nj5loUqp$)N9EOAK=8m8N)9WS~IupQ)w(1k49QpY?JP=+Uh*t{$S5T27(gHXUDgflL z(AuZ%m6UMc{uJ4p?9O3uMWXn3p)w8zWkuml3|OXCoP)G>adJ+gRz6NVYG3Ud3OzlbtR;Yh7=Zsa7WQ>>hXorH8u zMj4wGJ_ZX>FiAdMKemJ!=q*_zrV&c?FxKD`Q3q}9cMgU~6?_rTOH;_^Q*$#>@BAhZ zx`{z_KNj39)nSHo0WenDH2*M4`y}TZQ<#WUKS~WzVw^k^uUt9P20qn~bgo_$GaB{a zn_}~a%orazjs>q;)amyK2{r>j1;xq7jjF8|jTv);I6mk8*H6VrOH@3HXaI(VKiE@v z@4S9cFF=f>WZ{_mxyp%(hnB?asj*FY_6RE|H9g0}YTM0>N_Js1>$)H3Nvq z$(h-BssPcsalx{R2>?&S&#r=avHB5;U|9Vz&s{OWOrcq=l;e&A#BUBgi0UV!itd+s zWkSfy&O3ibfVBI|SGI3_u99>}ejk)Z7MMTPzw*%^rCiV{%BKLB`YFbgc&Nu8hs|fR ziYLZSmGDwDyf%__lwdfHl&C1)YXfh@LFhbO!)rOff{vk_TiOLfcOXq9^hM~Kv9<0`Swn?eW@%2+*q_s*zIW6tOwZBjD{fH3W|=Fp-o4t*8Y9ieXj` zNbX8WM7f`9(wz?7Fa5RnUH z`Q1~T?Q#oi@44q2n?9IP(+B%zNPg|Xi9pM&SG4qh{m0*Pk6H?kfRvf@D}S`ca0_~a z19W$oi$$0;iOr?6k6>rXTyOzPfj{XKz)=X!+Vg<)V&Wze1_~aPR1DcOsja2+X;KKh z!mCUmo~4!=#EcJ!vClX2@*}-v5&puB12kIQ3o|9dD=UjE!ZpuR`;{SgAK(7{b)?Dg z407cOm;-bzc3ya@bMg1oA9?*kw(k>qxle-U590_RS|ac=?Wd$U0-7A9X|y3#@7w rt6?X7aQl_N0Hkfd|BnCRWV?YGLP|gvb=CeVWv4$lL8xtTVg3IHW6QWO diff --git a/E04梭织坯布仓库/U_CPXSList.dfm b/E04梭织坯布仓库/U_CPXSList.dfm new file mode 100644 index 0000000..cadf22d --- /dev/null +++ b/E04梭织坯布仓库/U_CPXSList.dfm @@ -0,0 +1,493 @@ +inherited frmCPXSList: TfrmCPXSList + Left = 184 + Top = 138 + Caption = #20135#21697#38144#21806#21015#34920 + ClientHeight = 600 + ClientWidth = 1540 + FormStyle = fsMDIChild + Position = poScreenCenter + Visible = True + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatClothStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 190 + Top = 10 + Width = 52 + Height = 12 + Hint = '0' + Caption = #20135#21697#21517#31216 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 88 + Top = 6 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 3 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 4 + end + object IsJYTime: TCheckBox + Left = 14 + Top = 8 + Width = 73 + Height = 17 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = IsJYTimeClick + end + object C_Name: TEdit + Tag = 2 + Left = 248 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 5 + OnKeyPress = C_NameKeyPress + end + end + object Panel2: TPanel [2] + Left = 0 + Top = 105 + Width = 1540 + Height = 495 + Align = alClient + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 1538 + Height = 493 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_1 + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column1 + end + item + Kind = skSum + Column = Tv1Column2 + end + item + Kind = skSum + Column = Tv1Column4 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + Styles.IncSearch = DataLink_TatClothStk.SHuangSe + Styles.Footer = DataLink_TatClothStk.Default + Styles.Header = DataLink_TatClothStk.Default + Styles.Inactive = DataLink_TatClothStk.SHuangSe + Styles.Selection = DataLink_TatClothStk.SHuangSe + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #20135#21697#21517#31216 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column5: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 68 + end + object Tv1Column1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ps' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 76 + end + object Tv1Column2: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'meter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object Tv1Column4: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'ckmoney' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 68 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 553 + Top = 200 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 708 + Top = 156 + end + object GPM_1: TcxGridPopupMenu + PopupMenus = <> + Left = 608 + Top = 136 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 552 + Top = 140 + end + object PM_1: TPopupMenu + Left = 368 + Top = 248 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 461 + Top = 322 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 557 + Top = 330 + end + object PM_2: TPopupMenu + Left = 469 + Top = 386 + object N4: TMenuItem + Caption = #20840#36873 + OnClick = N4Click + end + object N5: TMenuItem + Caption = #20840#24323 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #22797#21046 + end + object N7: TMenuItem + Caption = #22797#21046#27880#33050 + end + end + object GPM_2: TcxGridPopupMenu + PopupMenus = <> + Left = 565 + Top = 386 + end +end diff --git a/E04梭织坯布仓库/U_CPXSList.pas b/E04梭织坯布仓库/U_CPXSList.pas new file mode 100644 index 0000000..c98d0af --- /dev/null +++ b/E04梭织坯布仓库/U_CPXSList.pas @@ -0,0 +1,507 @@ +unit U_CPXSList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, + System.StrUtils, dxScrollbarAnnotations; + +type + TfrmCPXSList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + Label5: TLabel; + C_Name: TEdit; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + Panel2: TPanel; + N2: TMenuItem; + N3: TMenuItem; + CDS_2: TClientDataSet; + DS_2: TDataSource; + PM_2: TPopupMenu; + GPM_2: TcxGridPopupMenu; + N4: TMenuItem; + N5: TMenuItem; + N6: TMenuItem; + N7: TMenuItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv1Column6: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure C_NameKeyPress(Sender: TObject; var Key: Char); + + procedure N2Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure N5Click(Sender: TObject); + + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure InitGrid2(); + procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); + + { Private declarations } + public + canshu1: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint, U_TatClothStkHZList2; + +{$R *.dfm} + +procedure TfrmCPXSList.SetStatus(); +begin + +end; + +procedure TfrmCPXSList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmCPXSList.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmCPXSList.InitGrid(); +var + WSql: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + + sql.Add('select C_Name,C_GramWeight,c_width,sum(meter)meter,count(*)ps,sum(ckmoney)ckmoney '); + + SQL.Add('from V_Tat_Cloth_IO A where 1=1 ' + WSql); + SQL.Add(' and Grade <> ''ϲ'' '); + SQL.Add(' and Grade <> ''ѭ'' '); + SQL.Add(' and iotype = ''۳'' '); + + sql.Add(' group by C_Name,C_GramWeight,c_width ORDER BY count(*) DESC'); + + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + +procedure TfrmCPXSList.InitGrid2(); +var + WSql: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + + sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight '); + SQL.Add(',pf=SUM(CASE WHEN (GRADE=''ŵƷ'' or GRADE=''Ʒ'' or GRADE=''С'' or GRADE='''' or GRADE='''') THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter ELSE 0 END )AS Ydqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END )AS edJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter ELSE 0 END )AS edqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END )AS xjJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter ELSE 0 END )AS xjqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN 1 ELSE 0 END )AS fbJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN A.meter ELSE 0 END )AS fbqty'); +// SQL.Add(',SUM(CASE WHEN GRADE=''ϲ'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS fqJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS fqqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN 1 ELSE 0 END )AS xhJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN A.meter ELSE 0 END )AS xhqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS csJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS csqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF'); + sql.Add(', issp=isnull(A.issp,'''') '); + + SQL.Add('from V_Tat_Cloth_stk A where 1=1 '); + SQL.Add(' and Grade <> ''ϲ'' '); + SQL.Add(' and Grade <> ''ѭ'' '); + + SQL.Add(WSql); + sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,'''') '); + SQL.Add(' order by A.C_NAME, CAST(A.C_Width AS DECIMAL(10,2)),A.C_GramWeight'); + +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + + finally + ADOQueryMain.EnableControls; + + end; + +end; + +procedure TfrmCPXSList.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmCPXSList.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); + +end; + +procedure TfrmCPXSList.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmCPXSList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmCPXSList.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmCPXSList.C_NameKeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + InitGrid2(); + end; +end; + +procedure TfrmCPXSList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmCPXSList.FormShow(Sender: TObject); +begin + inherited; + + ReadCxGrid(trim(self.Caption) + 'Tv11', Tv1, '۱'); + + CurrentPage := 1; + RecordsNumber := 500; + canshu1 := Trim(Self.fParameters1); + + SetStatus(); + InitGrid(); + +end; + +procedure TfrmCPXSList.TBExportClick(Sender: TObject); +begin + + if CDS_1.IsEmpty then + Exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); + +end; + +procedure TfrmCPXSList.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmCPXSList.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmCPXSList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmCPXSList.Tv1DblClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmTatClothStkHZList2 := TfrmTatClothStkHZList2.Create(Application); + with frmTatClothStkHZList2 do + begin + fEndDateTime := self.EndDate.DateTime; + fBegDateTime := Self.BegDate.DateTime; + + fC_Name := Self.CDS_1.FieldByName('C_Name').AsString; + fC_GramWeight := Self.CDS_1.FieldByName('C_GramWeight').AsString; + fissp := Self.CDS_1.FieldByName('issp').AsString; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatClothStkHZList2.Free; + end; +end; + +procedure TfrmCPXSList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmCPXSList.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmCPXSList.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmCPXSList.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmCPXSList.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmCPXSList.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_1, true); +end; + +procedure TfrmCPXSList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmCPXSList.N3Click(Sender: TObject); +begin + + CopyColumnSummaryToClipboard(TV1, TV1.Controller.FocusedColumn); +end; + +procedure TfrmCPXSList.N4Click(Sender: TObject); +begin + + SelOKNo(CDS_2, true); +end; + +procedure TfrmCPXSList.N5Click(Sender: TObject); +begin + + SelOKNo(CDS_2, false); +end; + +procedure TfrmCPXSList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); +var + SummaryIndex: Integer; + SummaryText: string; +begin + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + +procedure TfrmCPXSList.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmCPXSList.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv11', Tv1, '۱'); + +end; + +end. + diff --git a/E04梭织坯布仓库/U_GetDllForm.pas b/E04梭织坯布仓库/U_GetDllForm.pas index 551b6e0..c4a45a3 100644 --- a/E04梭织坯布仓库/U_GetDllForm.pas +++ b/E04梭织坯布仓库/U_GetDllForm.pas @@ -18,7 +18,7 @@ uses U_DataLink, U_iniParam, U_TatClothInEdit, U_TatClothInList, U_TatDRList, U_TatClothDROutEdit, U_TatClothOutEdit, U_TatClothOutList, U_TatClothStkList, U_TatClothStkHZList, U_TatClothCKHZList, U_TatClothRKHZList, - U_TatClothStkListPH, U_TatClothCRStkHZList; + U_TatClothStkListPH, U_TatClothCRStkHZList, U_KHXSList, U_CPXSList; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -272,6 +272,29 @@ begin end; end; + 611: //ͻ۱ + begin + with TfrmKHXSList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; + 612: //Ʒ۱ + begin + with TfrmCPXSList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; + 10000: begin for i := 0 to application.MainForm.MDIChildCount - 1 do diff --git a/E04梭织坯布仓库/U_KHXSList.dfm b/E04梭织坯布仓库/U_KHXSList.dfm new file mode 100644 index 0000000..7f7e4f0 --- /dev/null +++ b/E04梭织坯布仓库/U_KHXSList.dfm @@ -0,0 +1,479 @@ +inherited frmKHXSList: TfrmKHXSList + Left = 184 + Top = 138 + Caption = #23458#25143#38144#21806#21015#34920 + ClientHeight = 600 + ClientWidth = 1540 + FormStyle = fsMDIChild + Position = poScreenCenter + Visible = True + ExplicitWidth = 1556 + ExplicitHeight = 639 + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1540 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 91 + Caption = 'ToolBar1' + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + Images = DataLink_TatClothStk.ImageList_new32 + List = True + ParentColor = False + ParentFont = False + ShowCaptions = True + TabOrder = 0 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object TBExport: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = TBExportClick + end + object ToolButton4: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton4Click + end + object TBClose: TToolButton + Left = 237 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 38 + Width = 1540 + Height = 67 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label2: TLabel + Left = 70 + Top = 36 + Width = 12 + Height = 12 + Caption = #33267 + end + object Label5: TLabel + Left = 190 + Top = 10 + Width = 26 + Height = 12 + Hint = '0' + Caption = #23458#25143 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object BegDate: TDateTimePicker + Left = 88 + Top = 6 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 1 + end + object EndDate: TDateTimePicker + Left = 88 + Top = 32 + Width = 87 + Height = 20 + Date = 40768.000000000000000000 + Time = 0.458268587972270300 + TabOrder = 2 + end + object begtime: TDateTimePicker + Left = 137 + Top = 132 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 39780.000000000000000000 + Kind = dtkTime + TabOrder = 3 + end + object endTime: TDateTimePicker + Left = 137 + Top = 156 + Width = 55 + Height = 20 + Date = 39780.000000000000000000 + Format = 'HH:mm' + Time = 0.999317129630071600 + Kind = dtkTime + TabOrder = 4 + end + object IsJYTime: TCheckBox + Left = 14 + Top = 8 + Width = 73 + Height = 17 + Caption = #26597#35810#26085#26399 + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + TabOrder = 0 + OnClick = IsJYTimeClick + end + object ToCoName2: TEdit + Tag = 2 + Left = 237 + Top = 6 + Width = 100 + Height = 20 + Hint = '0' + TabOrder = 5 + OnKeyPress = ToCoName2KeyPress + end + end + object Panel2: TPanel [2] + Left = 0 + Top = 105 + Width = 1540 + Height = 495 + Align = alClient + TabOrder = 2 + object cxGrid1: TcxGrid + Left = 1 + Top = 1 + Width = 1538 + Height = 493 + Align = alClient + BorderStyle = cxcbsNone + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + PopupMenu = PM_1 + TabOrder = 0 + object Tv1: TcxGridDBTableView + OnDblClick = Tv1DblClick + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Format = #26816#39564#31995#25968'=#.##' + Kind = skAverage + end + item + Format = #25442#31639#31995#25968'=#.##' + Kind = skAverage + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = Tv1Column4 + end + item + Kind = skSum + Column = Tv1Column2 + end + item + Kind = skSum + Column = Tv1Column1 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + OptionsView.IndicatorWidth = 30 + Styles.IncSearch = DataLink_TatClothStk.SHuangSe + Styles.Footer = DataLink_TatClothStk.Default + Styles.Header = DataLink_TatClothStk.Default + Styles.Inactive = DataLink_TatClothStk.SHuangSe + Styles.Selection = DataLink_TatClothStk.SHuangSe + object v1Column22: TcxGridDBColumn + Caption = #36873#25321 + DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxCheckBoxProperties' + Properties.ImmediatePost = True + Properties.NullStyle = nssUnchecked + HeaderAlignmentHorz = taCenter + Options.Sorting = False + Width = 66 + end + object Tv1Column3: TcxGridDBColumn + Caption = #23458#25143 + DataBinding.FieldName = 'ToCoName2' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object Tv1Column1: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'ps' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 76 + end + object Tv1Column2: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'meter' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 74 + end + object Tv1Column4: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'ckmoney' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 75 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = Tv1 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 553 + Top = 200 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + Left = 425 + Top = 201 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + CommandTimeout = 600 + Parameters = <> + Left = 148 + Top = 280 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 252 + Top = 260 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TatClothStk.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 112 + Top = 204 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 708 + Top = 156 + end + object GPM_1: TcxGridPopupMenu + PopupMenus = <> + Left = 608 + Top = 136 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + BeforeOpen = CDS_1BeforeOpen + Left = 552 + Top = 140 + end + object PM_1: TPopupMenu + Left = 368 + Top = 248 + object N1: TMenuItem + Caption = #20840#36873 + OnClick = N1Click + end + object PM11: TMenuItem + Caption = #20840#24323 + OnClick = PM11Click + end + object N2: TMenuItem + Caption = #22797#21046 + OnClick = N2Click + end + object N3: TMenuItem + Caption = #22797#21046#27880#33050 + OnClick = N3Click + end + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 461 + Top = 322 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 557 + Top = 330 + end + object PM_2: TPopupMenu + Left = 469 + Top = 386 + object N4: TMenuItem + Caption = #20840#36873 + OnClick = N4Click + end + object N5: TMenuItem + Caption = #20840#24323 + OnClick = N5Click + end + object N6: TMenuItem + Caption = #22797#21046 + end + object N7: TMenuItem + Caption = #22797#21046#27880#33050 + end + end + object GPM_2: TcxGridPopupMenu + PopupMenus = <> + Left = 565 + Top = 386 + end +end diff --git a/E04梭织坯布仓库/U_KHXSList.pas b/E04梭织坯布仓库/U_KHXSList.pas new file mode 100644 index 0000000..9af35ab --- /dev/null +++ b/E04梭织坯布仓库/U_KHXSList.pas @@ -0,0 +1,505 @@ +unit U_KHXSList; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView, + cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses, + cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls, + ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, + cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, + RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, + dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, + System.StrUtils, dxScrollbarAnnotations; + +type + TfrmKHXSList = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBExport: TToolButton; + TBClose: TToolButton; + Panel1: TPanel; + ADOQueryCmd: TADOQuery; + ADOQueryMain: TADOQuery; + ADOQueryTemp: TADOQuery; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + Label2: TLabel; + BegDate: TDateTimePicker; + EndDate: TDateTimePicker; + CDS_1: TClientDataSet; + begtime: TDateTimePicker; + endTime: TDateTimePicker; + IsJYTime: TCheckBox; + ToolButton4: TToolButton; + Label5: TLabel; + ToCoName2: TEdit; + PM_1: TPopupMenu; + PM11: TMenuItem; + N1: TMenuItem; + Panel2: TPanel; + N2: TMenuItem; + N3: TMenuItem; + CDS_2: TClientDataSet; + DS_2: TDataSource; + PM_2: TPopupMenu; + GPM_2: TcxGridPopupMenu; + N4: TMenuItem; + N5: TMenuItem; + N6: TMenuItem; + N7: TMenuItem; + cxGrid1: TcxGrid; + Tv1: TcxGridDBTableView; + v1Column22: TcxGridDBColumn; + Tv1Column3: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + Tv1Column1: TcxGridDBColumn; + Tv1Column2: TcxGridDBColumn; + Tv1Column4: TcxGridDBColumn; + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure FormCreate(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ConNoMChange(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBExportClick(Sender: TObject); + procedure orderNoKeyPress(Sender: TObject; var Key: Char); + procedure BTNPClick(Sender: TObject); + procedure BTLPClick(Sender: TObject); + procedure TCBNORChange(Sender: TObject); + procedure JYTypeChange(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure cxPageControl1Change(Sender: TObject); + procedure CDS_1BeforeOpen(DataSet: TDataSet); + procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); + + procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); + procedure ToolButton4Click(Sender: TObject); + procedure PM11Click(Sender: TObject); + procedure N1Click(Sender: TObject); + procedure IsJYTimeClick(Sender: TObject); + procedure ToCoName2KeyPress(Sender: TObject; var Key: Char); + + procedure N2Click(Sender: TObject); + procedure Tv1DblClick(Sender: TObject); + procedure N3Click(Sender: TObject); + procedure N4Click(Sender: TObject); + procedure N5Click(Sender: TObject); + + private + CurrentPage, RecordsNumber: Integer; + lstCust: TStringList; + procedure InitGrid(); + procedure InitGrid2(); + procedure SetStatus(); + procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); + + { Private declarations } + public + canshu1: string; + { Public declarations } + end; + +implementation + +uses + U_DataLink, U_RTFun, U_LabelPrint, U_TatClothStkHZList2; + +{$R *.dfm} + +procedure TfrmKHXSList.SetStatus(); +begin + +end; + +procedure TfrmKHXSList.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + FreeAndNil(lstCust); + Action := caFree; +end; + +procedure TfrmKHXSList.FormCreate(Sender: TObject); +begin + inherited; + lstCust := TStringList.Create; + EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); + BegDate.DateTime := EndDate.DateTime - 20; +end; + +procedure TfrmKHXSList.InitGrid(); +var + WSql: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + + sql.Add('select ToCoName2,sum(meter)meter,count(*)ps,sum(ckmoney)ckmoney '); + + SQL.Add('from V_Tat_Cloth_IO A where 1=1 ' + WSql); + SQL.Add(' and Grade <> ''ϲ'' '); + SQL.Add(' and Grade <> ''ѭ'' '); + SQL.Add(' and iotype = ''۳'' '); + + sql.Add(' group by ToCoName2 ORDER BY count(*) DESC'); + + Open; + end; + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + + finally + ADOQueryMain.EnableControls; + TV1.DataController.Filter.Clear; + end; + +end; + +procedure TfrmKHXSList.InitGrid2(); +var + WSql: string; +begin + + WSql := SGetFilters(Panel1, 1, 2); + if Trim(WSql) <> '' then + WSql := ' and ' + WSql; + if IsJYTime.Checked then + begin + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + end; + + try + ADOQueryMain.DisableControls; + + with ADOQueryMain do + begin + Filtered := False; + Close; + sql.Clear; + + sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight '); + SQL.Add(',pf=SUM(CASE WHEN (GRADE=''ŵƷ'' or GRADE=''Ʒ'' or GRADE=''С'' or GRADE='''' or GRADE='''') THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter ELSE 0 END )AS Ydqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN 1 ELSE 0 END )AS edJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter ELSE 0 END )AS edqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''Ʒ'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN 1 ELSE 0 END )AS xjJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter ELSE 0 END )AS xjqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''С'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN 1 ELSE 0 END )AS fbJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ϲ'' THEN A.meter ELSE 0 END )AS fbqty'); +// SQL.Add(',SUM(CASE WHEN GRADE=''ϲ'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS fqJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS fqqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN 1 ELSE 0 END )AS xhJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE=''ѭ'' THEN A.meter ELSE 0 END )AS xhqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN 1 ELSE 0 END )AS csJS'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter ELSE 0 END )AS csqty'); + SQL.Add(',SUM(CASE WHEN A.GRADE='''' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF'); + sql.Add(', issp=isnull(A.issp,'''') '); + + SQL.Add('from V_Tat_Cloth_stk A where 1=1 '); + SQL.Add(' and Grade <> ''ϲ'' '); + SQL.Add(' and Grade <> ''ѭ'' '); + + SQL.Add(WSql); + sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,'''') '); + SQL.Add(' order by A.C_NAME, CAST(A.C_Width AS DECIMAL(10,2)),A.C_GramWeight'); + +// showmessage(sql.text); + Open; + end; + SCreateCDS(ADOQueryMain, CDS_2); + SInitCDSData(ADOQueryMain, CDS_2); + + finally + ADOQueryMain.EnableControls; + + end; + +end; + +procedure TfrmKHXSList.IsJYTimeClick(Sender: TObject); +begin + inherited; + InitGrid(); +end; + +procedure TfrmKHXSList.TBRafreshClick(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); + +end; + +procedure TfrmKHXSList.CDS_1BeforeOpen(DataSet: TDataSet); +begin + + lstCust.Clear; +end; + +procedure TfrmKHXSList.ConNoMChange(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + end; +end; + +procedure TfrmKHXSList.cxPageControl1Change(Sender: TObject); +begin + CurrentPage := 1; + SetStatus(); + InitGrid(); +end; + +procedure TfrmKHXSList.ToCoName2KeyPress(Sender: TObject; var Key: Char); +begin + inherited; + if Key = #13 then + begin + InitGrid(); + InitGrid2(); + end; +end; + +procedure TfrmKHXSList.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmKHXSList.FormShow(Sender: TObject); +begin + inherited; + + ReadCxGrid(trim(self.Caption) + 'Tv11', Tv1, '۱'); + + CurrentPage := 1; + RecordsNumber := 500; + canshu1 := Trim(Self.fParameters1); + + SetStatus(); + InitGrid(); + +end; + +procedure TfrmKHXSList.TBExportClick(Sender: TObject); +begin + + if CDS_1.IsEmpty then + Exit; + with CDS_1 do + begin + Filtered := false; + Filter := ' ssel = 1'; + Filtered := true; + end; + TcxGridToExcel(Self.Caption, cxGrid1); + InitGrid(); + +end; + +procedure TfrmKHXSList.orderNoKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + CurrentPage := 1; + InitGrid(); + end; +end; + +procedure TfrmKHXSList.PM11Click(Sender: TObject); +begin + SelOKNo(CDS_1, false); +end; + +procedure TfrmKHXSList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string); +begin + lstCust.Clear; +end; + +procedure TfrmKHXSList.Tv1DblClick(Sender: TObject); +begin + if CDS_1.IsEmpty then + Exit; + try + frmTatClothStkHZList2 := TfrmTatClothStkHZList2.Create(Application); + with frmTatClothStkHZList2 do + begin + fEndDateTime := self.EndDate.DateTime; + fBegDateTime := Self.BegDate.DateTime; + + fC_Name := Self.CDS_1.FieldByName('C_Name').AsString; + fC_GramWeight := Self.CDS_1.FieldByName('C_GramWeight').AsString; + fissp := Self.CDS_1.FieldByName('issp').AsString; + if ShowModal = 1 then + begin + + end; + end; + finally + frmTatClothStkHZList2.Free; + end; +end; + +procedure TfrmKHXSList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string); +begin + if lstCust <> nil then + AText := IntToStr(lstCust.Count); +end; + +procedure TfrmKHXSList.BTNPClick(Sender: TObject); +begin + if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then + CurrentPage := CurrentPage + 1; + InitGrid(); +end; + +procedure TfrmKHXSList.BTLPClick(Sender: TObject); +begin + if CurrentPage > 1 then + CurrentPage := CurrentPage - 1; + InitGrid(); +end; + +procedure TfrmKHXSList.TCBNORChange(Sender: TObject); +begin + + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmKHXSList.JYTypeChange(Sender: TObject); +begin + CurrentPage := 1; + InitGrid(); +end; + +procedure TfrmKHXSList.N1Click(Sender: TObject); +begin + + SelOKNo(CDS_1, true); +end; + +procedure TfrmKHXSList.N2Click(Sender: TObject); +begin + Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString))); + +end; + +procedure TfrmKHXSList.N3Click(Sender: TObject); +begin + + CopyColumnSummaryToClipboard(TV1, TV1.Controller.FocusedColumn); +end; + +procedure TfrmKHXSList.N4Click(Sender: TObject); +begin + + SelOKNo(CDS_2, true); +end; + +procedure TfrmKHXSList.N5Click(Sender: TObject); +begin + + SelOKNo(CDS_2, false); +end; + +procedure TfrmKHXSList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); +var + SummaryIndex: Integer; + SummaryText: string; +begin + // ָеĻ + SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn); + if SummaryIndex <> -1 then + begin + SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex]; + Clipboard.AsText := SummaryText; + end + else + ShowMessage('δҵеĻ'); +end; + +procedure TfrmKHXSList.ToolButton2Click(Sender: TObject); +var + WSql: string; +begin + if CDS_1.IsEmpty then + Exit; + if not CDS_1.Locate('SSel', True, []) then + begin + Application.MessageBox('ûѡ!', 'ʾ', 0); + Exit; + end; + WSql := ''; + CDS_1.DisableControls; + with CDS_1 do + begin + First; + while not Eof do + begin + if CDS_1.fieldbyname('SSel').AsBoolean then + begin + if WSql <> '' then + begin + WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end + else + begin + WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + end; + end; + Next; + end; + end; + CDS_1.Locate('SSel', True, []); + CDS_1.EnableControls; + try + frmLabelPrint := TfrmLabelPrint.Create(Application); + with frmLabelPrint do + begin + FLMType := 'TradeClothStk'; + FFiltration1 := WSql; + if ShowModal = 1 then + begin + + end; + end; + finally + frmLabelPrint.Free; + end; +end; + +procedure TfrmKHXSList.ToolButton4Click(Sender: TObject); +begin + WriteCxGrid(trim(self.Caption) + 'Tv11', Tv1, '۱'); + +end; + +end. + diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.dfm b/E04梭织坯布仓库/U_TatClothCKHZList.dfm index 3940058..b1b6545 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothCKHZList.dfm @@ -267,7 +267,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Top = 105 Width = 1540 Height = 516 - ActivePage = TabSheet4 + ActivePage = TabSheet1 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -428,6 +428,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Options.Editing = False Width = 80 end + object Tv1Column1: TcxGridDBColumn + Caption = #36192#36865 + DataBinding.FieldName = 'ISZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -452,6 +459,8 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList ParentFont = False PopupMenu = PM_4 TabOrder = 0 + ExplicitLeft = 40 + ExplicitTop = 3 object Tv4: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -699,6 +708,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList HeaderAlignmentHorz = taCenter Width = 80 end + object Tv4Column1: TcxGridDBColumn + Caption = #36192#36865 + DataBinding.FieldName = 'ISZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 67 + end end object cxGridLevel3: TcxGridLevel GridView = Tv4 @@ -850,6 +866,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Options.Editing = False Width = 80 end + object Tv2Column1: TcxGridDBColumn + Caption = #36192#36865 + DataBinding.FieldName = 'ISZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 66 + end end object cxGridLevel1: TcxGridLevel GridView = Tv2 @@ -992,6 +1015,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList Options.Editing = False Width = 80 end + object Tv3Column1: TcxGridDBColumn + Caption = #36192#36865 + DataBinding.FieldName = 'ISZS' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 69 + end end object cxGridLevel2: TcxGridLevel GridView = Tv3 diff --git a/E04梭织坯布仓库/U_TatClothCKHZList.pas b/E04梭织坯布仓库/U_TatClothCKHZList.pas index b46fc90..7cab83a 100644 --- a/E04梭织坯布仓库/U_TatClothCKHZList.pas +++ b/E04梭织坯布仓库/U_TatClothCKHZList.pas @@ -131,6 +131,10 @@ type Tv4isIncludeTax: TcxGridDBColumn; Tv4Grade: TcxGridDBColumn; Tv4FHDH: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv4Column1: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + Tv3Column1: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -239,7 +243,7 @@ begin Close; sql.Clear; - 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 = '''',ISZS '); // sql.Add(',B.ToCoID '); // sql.Add(',COName = '''' '); sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); @@ -254,9 +258,9 @@ begin begin sql.Add(' and EXISTS ( select * from BS_Company X where X.COID = B.ToCoID and X.Saleser = ' + quotedStr(Trim(DName)) + ')'); end; - 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,''''),ISZS'); // ,B.ToCoID - SQL.Add(' order by A.C_CODE ,A.C_GramWeight'); + SQL.Add(' order by A.C_CODE ,A.C_GramWeight,ISZS'); // showmessage(sql.text); Open; @@ -293,7 +297,7 @@ begin Filtered := False; Close; 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,ISZS '); // sql.Add(',ioType=max(A.ioType) '); sql.Add(',COName = '''' '); sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); @@ -308,7 +312,7 @@ begin sql.Add(' and EXISTS ( select * from BS_Company X where X.COID = B.ToCoID and X.Saleser = ' + quotedStr(Trim(DName)) + ')'); end; - 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, ''''),ISZS'); SQL.Add(' order By A.C_CODE ,A.C_GramWeight'); // SQL.Add(' order by B.DRMID'); // showmessage(sql.text); @@ -350,7 +354,7 @@ begin sql.Add('SELECT '); sql.Add(' B.ToCoID,DRMID = '''' '); sql.Add(',COName = (select COName from BS_Company X where X.CoID = B.ToCoID)'); - sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) '); + sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight),ISZS '); // sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) '); // SQL.Add(',issp=isnull(A.issp,'''') '); sql.Add(' FROM V_Tat_Cloth_IO A '); @@ -362,7 +366,7 @@ begin begin sql.Add(' and EXISTS ( select * from BS_Company X where X.COID = B.ToCoID and X.Saleser = ' + quotedStr(Trim(DName)) + ')'); end; - SQL.Add(' group by B.ToCoID'); + SQL.Add(' group by B.ToCoID,ISZS'); // showmessage(sql.text); Open; @@ -400,7 +404,7 @@ begin Close; sql.Clear; - sql.Add('SELECT A.C_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IONO as DRMID,A.Grade,A.FHDH '); + sql.Add('SELECT ISZS,A.C_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IONO as DRMID,A.Grade,A.FHDH '); 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(', D.COName,D.Saleser,D.dept,B.CompanyName,C.note,C.isIncludeTax '); @@ -443,7 +447,7 @@ begin SQL.Add(' and A.C_GramWeight like ' + QuotedStr('%' + Trim(C_GramWeight.text) + '%')); end; - 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,D.Saleser,D.dept,B.CompanyName,C.note,C.isIncludeTax,A.Grade,A.FHDH'); + SQL.Add(' group by ISZS,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,D.Saleser,D.dept,B.CompanyName,C.note,C.isIncludeTax,A.Grade,A.FHDH'); // 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),A.Grade,A.FHDH'); @@ -565,7 +569,7 @@ begin end else if PageControl1.ActivePage.Caption = 'гⵥϸ' then begin - if CDS_4.IsEmpty then + if CDS_4.IsEmpty then Exit; with CDS_4 do begin @@ -578,7 +582,7 @@ begin end else if PageControl1.ActivePage.Caption = '޳ⵥ' then begin - if CDS_2.IsEmpty then + if CDS_2.IsEmpty then Exit; with CDS_2 do begin @@ -591,7 +595,7 @@ begin end else if PageControl1.ActivePage.Caption = 'гⵥ(ͻ)' then begin - if CDS_3.IsEmpty then + if CDS_3.IsEmpty then Exit; with CDS_3 do begin diff --git a/E04梭织坯布仓库/U_TatClothOutList.dfm b/E04梭织坯布仓库/U_TatClothOutList.dfm index 173013a..cd22d97 100644 --- a/E04梭织坯布仓库/U_TatClothOutList.dfm +++ b/E04梭织坯布仓库/U_TatClothOutList.dfm @@ -71,7 +71,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList AutoSize = True Caption = #21246#36873#25171#21360 ImageIndex = 21 - Visible = False OnClick = ToolButton2Click end object TBExport: TToolButton diff --git a/E04梭织坯布仓库/U_TatClothOutList.pas b/E04梭织坯布仓库/U_TatClothOutList.pas index 80abd9e..3091c08 100644 --- a/E04梭织坯布仓库/U_TatClothOutList.pas +++ b/E04梭织坯布仓库/U_TatClothOutList.pas @@ -643,11 +643,11 @@ begin begin if WSql <> '' then begin - WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + WSql := WSql + ',' + (Trim(CDS_1.fieldbyname('CIID').AsString)); end else begin - WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString)); + WSql := (Trim(CDS_1.fieldbyname('CIID').AsString)); end; end; Next; diff --git a/E04梭织坯布仓库/U_TatClothStkHZList.dfm b/E04梭织坯布仓库/U_TatClothStkHZList.dfm index 0a4d22b..a69c49e 100644 --- a/E04梭织坯布仓库/U_TatClothStkHZList.dfm +++ b/E04梭织坯布仓库/U_TatClothStkHZList.dfm @@ -566,6 +566,20 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList Options.Editing = False Width = 80 end + object Tv1Column2: TcxGridDBColumn + Caption = #32440#31649 + DataBinding.FieldName = 'tube' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1Column5: TcxGridDBColumn + Caption = #21253#35013#34955 + DataBinding.FieldName = 'Packaging' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 @@ -901,6 +915,20 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList HeaderAlignmentHorz = taCenter Width = 71 end + object Tv2Column1: TcxGridDBColumn + Caption = #32440#31649 + DataBinding.FieldName = 'tube' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv2Column2: TcxGridDBColumn + Caption = #21253#35013#34955 + DataBinding.FieldName = 'Packaging' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end end object cxGridLevel1: TcxGridLevel GridView = Tv2 diff --git a/E04梭织坯布仓库/U_TatClothStkHZList.pas b/E04梭织坯布仓库/U_TatClothStkHZList.pas index e984526..d62d2ed 100644 --- a/E04梭织坯布仓库/U_TatClothStkHZList.pas +++ b/E04梭织坯布仓库/U_TatClothStkHZList.pas @@ -106,6 +106,10 @@ type N7: TMenuItem; label12: TLabel; C_width: TEdit; + Tv1Column2: TcxGridDBColumn; + Tv1Column5: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + Tv2Column2: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -201,7 +205,7 @@ begin Close; sql.Clear; - sql.Add('select A.C_NAME ,A.C_GramWeight'); + sql.Add('select A.C_NAME ,A.C_GramWeight,tube,Packaging'); // SQL.Add(',pf=SUM(A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)))'); SQL.Add(',pf=SUM(CASE WHEN GRADE=''ŵƷ'' or GRADE=''Ʒ'' or GRADE=''С'' or GRADE='''' or GRADE='''' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )'); SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); @@ -230,7 +234,7 @@ begin SQL.Add(' and Grade <> ''ϲ'' '); SQL.Add(' and Grade <> ''ѭ'' '); - sql.Add(' group by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') '); + sql.Add(' group by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') ,tube,Packaging'); SQL.Add(' order by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') '); // showmessage(sql.text); @@ -269,7 +273,7 @@ begin Close; sql.Clear; - sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight '); + sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight,tube,Packaging '); SQL.Add(',pf=SUM(CASE WHEN (GRADE=''ŵƷ'' or GRADE=''Ʒ'' or GRADE=''С'' or GRADE='''' or GRADE='''') THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )'); SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN 1 ELSE 0 END )AS YDJS'); SQL.Add(',SUM(CASE WHEN A.GRADE=''ŵƷ'' THEN A.meter ELSE 0 END )AS Ydqty'); @@ -297,9 +301,8 @@ begin SQL.Add(' and Grade <> ''ϲ'' '); SQL.Add(' and Grade <> ''ѭ'' '); - SQL.Add(WSql); - sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,'''') '); + sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,''''),tube,Packaging '); SQL.Add(' order by A.C_NAME, CAST(A.C_Width AS DECIMAL(10,2)),A.C_GramWeight'); // showmessage(sql.text); @@ -397,7 +400,7 @@ begin end else if PageControl1.ActivePage.Caption = ' ϸ ' then begin - if CDS_2.IsEmpty then + if CDS_2.IsEmpty then Exit; with CDS_2 do begin @@ -502,7 +505,7 @@ end; procedure TfrmTatClothStkHZList.N3Click(Sender: TObject); begin - CopyColumnSummaryToClipboard(TV1,TV1.Controller.FocusedColumn); + CopyColumnSummaryToClipboard(TV1, TV1.Controller.FocusedColumn); end; procedure TfrmTatClothStkHZList.N4Click(Sender: TObject); @@ -526,7 +529,7 @@ end; procedure TfrmTatClothStkHZList.N7Click(Sender: TObject); begin - CopyColumnSummaryToClipboard(TV2,TV2.Controller.FocusedColumn); + CopyColumnSummaryToClipboard(TV2, TV2.Controller.FocusedColumn); end; procedure TfrmTatClothStkHZList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn); diff --git a/E04梭织坯布仓库/U_TatClothStkList.dfm b/E04梭织坯布仓库/U_TatClothStkList.dfm index 97edd94..95c24cc 100644 --- a/E04梭织坯布仓库/U_TatClothStkList.dfm +++ b/E04梭织坯布仓库/U_TatClothStkList.dfm @@ -7,7 +7,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList FormStyle = fsMDIChild Position = poScreenCenter Visible = True - ExplicitTop = -14 + ExplicitLeft = -350 ExplicitWidth = 1556 ExplicitHeight = 639 PixelsPerInch = 96 @@ -535,7 +535,8 @@ inherited frmTatClothStkList: TfrmTatClothStkList '500' '1000' '5000' - '10000') + '10000' + '20000') end end object cxGrid1: TcxGrid [3] @@ -553,7 +554,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList ParentFont = False PopupMenu = PM_1 TabOrder = 3 - ExplicitTop = 133 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -863,6 +863,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList end object Tv1Column1: TcxGridDBColumn Caption = #32440#31649 + DataBinding.FieldName = 'tube' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 70 diff --git a/E04梭织坯布仓库/U_TatClothStkListPH.pas b/E04梭织坯布仓库/U_TatClothStkListPH.pas index 9694177..48e3a62 100644 --- a/E04梭织坯布仓库/U_TatClothStkListPH.pas +++ b/E04梭织坯布仓库/U_TatClothStkListPH.pas @@ -504,7 +504,7 @@ end; procedure TfrmTatClothStkListPH.ToolButton3Click(Sender: TObject); var MIOIDS, MStkIds, MOutNos: string; - mFHDH: string; + mFHDH, sQZ: string; begin if CDS_1.IsEmpty then Exit; @@ -543,24 +543,41 @@ begin try ADOQueryCmd.Connection.BeginTrans; - with ADOQueryCmd do + + begin + with ADOQueryCmd do begin Close; sql.Clear; - SQL.Add(' select FHDH from tat_cloth_io_FHDH where CompanyName = '+ quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString))); + //SQLͬʱѯFHDHQZǰ׺ + SQL.Add(' exec Update_Tat_Cloth_IO_MaxFHDH @CompanyName = ' + quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString))); Open; end; - mFHDH := ADOQueryCmd.FieldByName('FHDH').AsString; - mFHDH := FormatDateTime('yy', Date) + Format('%.6d', [(StrToIntDef(mFHDH, 0) + 1000000) mod 1000000]); - with ADOQueryCmd do + with ADOQueryCmd do + begin + Close; + sql.Clear; + //SQLͬʱѯFHDHQZǰ׺ + SQL.Add(' select FHDH=FHDH+1,QZ from tat_cloth_io_FHDH where CompanyName = ' + quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString))); + Open; + end; + + mFHDH := ADOQueryCmd.FieldByName('FHDH').AsString; + sQZ := ADOQueryCmd.FieldByName('QZ').AsString; //ݿQZֶǰ׺ + + //ǰ׺ + ݺλ + 6λˮ + mFHDH := sQZ + FormatDateTime('yy', Date) + Format('%.6d', [(StrToIntDef(mFHDH, 0) + 1000000) mod 1000000]); + + with ADOQueryCmd do begin Close; Sql.Clear; - sql.Add(' update tat_cloth_io_FHDH SET FHDH = FHDH+1,ioFHDH=''' + mFHDH + ''' '); - SQL.Add(' where CompanyName = '+ quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString))); + sql.Add(' update tat_cloth_io_FHDH SET FHDH = FHDH+1,ioFHDH=''' + mFHDH + ''' '); + SQL.Add(' where CompanyName = ' + quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString))); EXECSQL; end; + end; with ADOQueryCmd do begin diff --git a/E04梭织坯布仓库/U_TatDRList.dfm b/E04梭织坯布仓库/U_TatDRList.dfm index 0ee5051..4362c0e 100644 --- a/E04梭织坯布仓库/U_TatDRList.dfm +++ b/E04梭织坯布仓库/U_TatDRList.dfm @@ -35,7 +35,6 @@ inherited frmTatDRList: TfrmTatDRList ParentFont = False ShowCaptions = True TabOrder = 0 - ExplicitWidth = 1465 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -273,7 +272,6 @@ inherited frmTatDRList: TfrmTatDRList Color = clWhite ParentBackground = False TabOrder = 1 - ExplicitWidth = 1465 object Label4: TLabel Left = 520 Top = 15 @@ -497,7 +495,6 @@ inherited frmTatDRList: TfrmTatDRList #24050#21462#28040 #20840#37096) OnChange = cxTabControl1Change - ExplicitWidth = 1465 ClientRectRight = 0 ClientRectTop = 0 end @@ -508,7 +505,6 @@ inherited frmTatDRList: TfrmTatDRList Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom - ExplicitWidth = 1465 end object PageControl1: TPageControl [4] Left = 0 @@ -519,7 +515,6 @@ inherited frmTatDRList: TfrmTatDRList Align = alClient TabOrder = 4 OnChange = PageControl1Change - ExplicitWidth = 1465 object TabSheet1: TTabSheet Caption = ' '#27719#24635 object cxGrid1: TcxGrid @@ -530,7 +525,6 @@ inherited frmTatDRList: TfrmTatDRList Align = alClient PopupMenu = PM_1 TabOrder = 0 - ExplicitTop = -6 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -795,9 +789,6 @@ inherited frmTatDRList: TfrmTatDRList Align = alBottom PopupMenu = PM_2 TabOrder = 1 - ExplicitLeft = 112 - ExplicitTop = 343 - ExplicitWidth = 1457 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -1026,7 +1017,7 @@ inherited frmTatDRList: TfrmTatDRList OnBtnUpClick = CompanyNameBtnUpClick end object Button1: TButton - Left = 56 + Left = 57 Top = 64 Width = 75 Height = 25 @@ -1056,7 +1047,6 @@ inherited frmTatDRList: TfrmTatDRList Align = alClient PopupMenu = pm_3 TabOrder = 0 - ExplicitWidth = 1457 object TV3: TcxGridDBTableView OnDblClick = TV3DblClick Navigator.Buttons.CustomButtons = <> diff --git a/E04梭织坯布仓库/U_TatDRList.pas b/E04梭织坯布仓库/U_TatDRList.pas index 2bc30f7..18df8b2 100644 --- a/E04梭织坯布仓库/U_TatDRList.pas +++ b/E04梭织坯布仓库/U_TatDRList.pas @@ -750,6 +750,16 @@ begin Close; sql.Clear; sql.Add('delete Tat_Cloth_DR_Main where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''''); + + sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); + sql.Add(' ' + quotedstr(trim(DName))); + sql.Add(',getdate() '); + sql.Add(',' + quotedstr(trim(self.Caption))); + sql.Add(',' + quotedstr(trim('发货申请删除'))); + sql.Add(',' + quotedstr(trim('DRMID：' + trim(Order_Main.fieldbyname('DRMID').AsString)))); + sql.Add(',' + quotedstr(trim('成功'))); + sql.Add(')'); + ExecSQL; ExecSQL; end; end; @@ -1575,29 +1585,47 @@ end; procedure TfrmTatDRList.ToolButton7Click(Sender: TObject); var mFHDH: string; + sQZ: string; begin try ADOQueryCmd.Connection.BeginTrans; with Order_Main do begin - with ADOQueryCmd do begin - Close; - sql.Clear; - SQL.Add(' select FHDH from tat_cloth_io_FHDH where CompanyName = '+ quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString))); - Open; - end; - mFHDH := ADOQueryCmd.FieldByName('FHDH').AsString; - mFHDH := FormatDateTime('yy', Date) + Format('%.6d', [(StrToIntDef(mFHDH, 0) + 1000000) mod 1000000]); - with ADOQueryCmd do - begin - Close; - Sql.Clear; - sql.Add(' update tat_cloth_io_FHDH SET FHDH = FHDH+1,ioFHDH=''' + mFHDH + ''' '); - SQL.Add(' where CompanyName = '+ quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString))); - EXECSQL; + with ADOQueryCmd do + begin + Close; + sql.Clear; + //SQL同时查询FHDH和QZ前缀 + SQL.Add(' exec Update_Tat_Cloth_IO_MaxFHDH @CompanyName = ' + quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString))); + Open; + end; + + with ADOQueryCmd do + begin + Close; + sql.Clear; + //SQL同时查询FHDH和QZ前缀 + SQL.Add(' select FHDH=FHDH+1,QZ from tat_cloth_io_FHDH where CompanyName = ' + quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString))); + Open; + end; + + mFHDH := ADOQueryCmd.FieldByName('FHDH').AsString; + sQZ := ADOQueryCmd.FieldByName('QZ').AsString; //从数据库QZ字段拿前缀 + + //前缀 + 年份后两位 + 6位流水号 + mFHDH := sQZ + FormatDateTime('yy', Date) + Format('%.6d', [(StrToIntDef(mFHDH, 0) + 1000000) mod 1000000]); + + with ADOQueryCmd do + begin + Close; + Sql.Clear; + sql.Add(' update tat_cloth_io_FHDH SET FHDH = FHDH+1,ioFHDH=''' + mFHDH + ''' '); + SQL.Add(' where CompanyName = ' + quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString))); + EXECSQL; + end; end; with ADOQueryCmd do diff --git a/E04梭织坯布仓库/testDll.identcache b/E04梭织坯布仓库/testDll.identcache index 5c45beecbfd7f4afb7db9e5c451e92b952ccd789..b0cc76d1e6a8c68f8a7afca95a10c4007c4a85c6 100644 GIT binary patch delta 53 qcmcc5wTh94iGhK^-Nh=##n2#pqJZ&a4n|%Ppb#9m!sXmpK!N}PAqZCh literal 1375 zcmbtUOK;mo5O&0;M8RnL3;GKJvrW^-O%`oMsO%Wlx(`4=u_8y}Hp?ZkyNaU#1rqd- zIA~7JB?tl}?V$yV);Xp%(qGb}CENd^!&di-Ga{Al+2$CKm3+24l) z4N6CxUrh>$$;|J4d|DuqE4$wEt0h6%69uZ#mOwRZ<}#}>;S6ESgiFe0*yswT8RhIQ zIA+7zorwD0cV&u%bF-(cf-0|&`B>5{XcYx#G1V*=U;aN37gere{vSU4onPPk_sTtl z;l^|%0W2-2%Qk(I=X{;Y(ALueN|+Y*QSIeD6EV>`7hxM4yyf?(7*FUJ>P%>mBN~I# zif%^hPKhmacH)#uZw$JG-Q1yw4KPlHYyM~=;u4?Vk+euztelurrQ9;I8yQN2h-$h{ z74)_Am6jyOD%Nc(gUd{xSKhDLz!mrj$}q%J{@dezUngxXxoUJX?6t?RwaT%NoK8DW zpt2Lz*a#&?bz;hSP(j_CJ^F2a@BZx3i?cUx{C1w1ydK$_ZXzCcI*u`uo$iaoG1@P* z^}nK$QK416MAzoIf;!ovOl*Oe)W`@I_|nyo)f9C)+sKkv5;_Lykd1`t`rF{JQD)c$ zg~RIjy5JV@M_v+?FZTAQxO-I@v3k!WLFLpm*>< zD@kxXl-Dkm1?7}b!iKSivCjwdgTvY5SM!5k&tCp?{^aS|(UC1+KMe@g$dXR``j(IR z`g+Q%`g|7ja+)k#^GHfX^3L~9{UugaBZWt94!=i!e6mSp*_BV0MsFs7o|9(Glv7Gj znh?eDBAnKItWaQ~WzN+q%L)z|2yKFWGZ7X4eB31Ta)MXMJ0f{_r<4k# zSp@#sI)&wRVF|{Y#Mom&vU|fIvnP0eEN+fkv~Cm0GAkKn{>B|`>}PAZqw5!XSc#&6 z!tu=(g1g0Jh{M`IQLwa`#PjD*FI-&d`?@z`0v$iC?0w>r9vuRA`uMK1ts diff --git a/F01染色坯布仓库/DyeGreyClothStk.dproj.local b/F01染色坯布仓库/DyeGreyClothStk.dproj.local index e70e879..cc7f51e 100644 --- a/F01染色坯布仓库/DyeGreyClothStk.dproj.local +++ b/F01染色坯布仓库/DyeGreyClothStk.dproj.local @@ -1,46 +1,46 @@  - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas + 1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899-12-30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas + 1899-12-30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj 1899-12-30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas - 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas 1899-12-30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm - 1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm - 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899-12-30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899-12-30 00:00:00.000.270,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm + 1899-12-30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas @@ -88,7 +88,7 @@ - + diff --git a/F01染色坯布仓库/DyeGreyClothStk.identcache b/F01染色坯布仓库/DyeGreyClothStk.identcache index fe0807064a011866b4cd4b0639ed56c4368e2a95..165251c0f4ff26e8bf90b32df719f497835535f6 100644 GIT binary patch literal 1547 zcmbu9(TdtY6o!3@K0=q4R$?!EXA=_@O{H1aDghbIR0k(BVP-;Wue$WA*Dfq83K#J@yZNG wjPhQmEuQm9M`g&2Ldy;ruN{`%rG;eRaY%tb?rhRAtWK2 z(nSJYwGI6nyKerXQUb$xB&#kK7zx8U_uO;Oy<4SHspUTRU1nPy$f$pJ`D1ZEHfYyM)f?= zsaZ6@XlPr0cg!KIM#N8ly?&>gyiH_7M;3{ySk~S9lf~yRi?7GCU#XlX7(l!Wm7DjXeBi!XFpIUjP9cghiRMO&wR%%qoWwL2bZ6#$QV(R{bpb z8+k|dR)5FaYyD?8BTNSXzXIIEJ<2VrOiW#DN%zL?Sa9TUVtVRLu - + diff --git a/F01染色坯布仓库/testDll.identcache b/F01染色坯布仓库/testDll.identcache index 42d1990d930dc1d6dfe610943d68ef27e995642f..e1cf0eaa222225dd2e2968b199ae2c78d842efa5 100644 GIT binary patch delta 56 tcmdnQxQda7iGhK^-Nh=##n2#pqJRj8r=y>Hq^F