Group_01/D10SZKaiXiYa
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-07-12 15:10:02 +08:00
parent b03753a3cd
commit 4f81bee7c8
13 changed files with 360 additions and 690 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
E04梭织坯布仓库/TatClothStk.dpr
View File

@ -45,7 +45,8 @@ uses
U_TatClothInList_ZDDY in 'U_TatClothInList_ZDDY.pas' {frmTatClothInList_ZDDY},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
U_TatClothStkList in 'U_TatClothStkList.pas' {frmTatClothStkList};
U_TatClothStkList in 'U_TatClothStkList.pas' {frmTatClothStkList},
U_TatClothStkSel in 'U_TatClothStkSel.pas' {frmTatClothStkSel};
{$R *.res}

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

@ -188,6 +188,10 @@
<Form>frmTatClothStkList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_TatClothStkSel.pas">
<Form>frmTatClothStkSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
@ -913,6 +917,7 @@
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
</Deployment>
<ModelSupport>False</ModelSupport>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>

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

@ -1,90 +1,95 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<Transaction>1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.181,=D:\Dp10Repo\项目代码\路尚\B02基础纱线仓库\U_YarnInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.316,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_TatClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.559,=D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList_ZDDY.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.456,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.025,D:\Dp10RepoV1\项目代码\花蝴蝶\B03基础物料仓库\U_ProductInfoInPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.627,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.280,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.500,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.pas=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.862,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsinput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.338,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_WBSpecSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.408,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E03梭织坯布检验\U_DCGCL.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.436,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.526,=D:\Dp10RepoV1\项目代码\D10szJinCheng\A00通用组件\FrameDateSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\路尚\B03基础物料仓库\U_ProductInfoInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.326,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.744,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.618,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoProcessListSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.961,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.541,=D:\Dp10Repo\项目代码\路尚\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.139,=D:\Dp10Repo\项目代码\路尚\A02基础产品管理\U_ClothInfoTechnicsSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.141,D:\Dp10RepoV1\项目代码\D10szJinCheng\E04梭织坯布仓库\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\D10szJinCheng\B02基础纱线仓库\U_SXCKList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10RepoV1\项目代码\花蝴蝶\B02基础纱线仓库\U_YarnInfoInPut.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
<Transaction>2025/07/03 14:12:23.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>2025/07/03 14:12:23.000.877,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
<Transaction>2025/07/12 10:29:31.000.435,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>2025/07/12 10:34:14.410,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=</Transaction>
<Transaction>2025/07/12 10:51:18.202,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
<Transaction>2025/07/12 10:53:24.590,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas=</Transaction>
<Transaction>2025/07/12 10:53:58.993,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E04梭织坯布仓库\U_TatClothStkSel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10SZKaiXiYa"/>
@ -168,5 +173,7 @@
<File Path="U_TatDRSel.dfm"/>
<File Path="U_TatClothStkList.pas"/>
<File Path="U_TatClothStkList.dfm"/>
<File Path="U_TatClothStkSel.pas"/>
<File Path="U_TatClothStkSel.dfm"/>
</ProjectSortOrder>
</BorlandProject>

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

Binary file not shown.

24
E04梭织坯布仓库/U_TatClothStkList.dfm
View File

@ -3,12 +3,12 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Top = 138
Caption = #25104#21697#24211#23384#21015#34920
ClientHeight = 600
ClientWidth = 1541
ClientWidth = 1540
Font.Height = -16
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1557
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 21
@ -16,7 +16,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Tag = 1
Left = 0
Top = 0
Width = 1541
Width = 1540
Height = 30
AutoSize = True
ButtonHeight = 30
@ -78,16 +78,16 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxPageControl1: TcxPageControl [1]
Left = 0
Top = 30
Width = 1541
Width = 1540
Height = 570
Align = alClient
TabOrder = 3
Properties.ActivePage = cxTabSheet2
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 5
OnChange = cxPageControl1Change
ClientRectBottom = 570
ClientRectRight = 1541
ClientRectRight = 1540
ClientRectTop = 32
object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635#20449#24687' '
@ -95,7 +95,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Pnl_F2: TPanel
Left = 0
Top = 0
Width = 1541
Width = 1540
Height = 75
Align = alTop
BevelInner = bvRaised
@ -274,7 +274,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxGrid2: TcxGrid
Left = 0
Top = 75
Width = 1541
Width = 1540
Height = 463
Align = alClient
BorderStyle = cxcbsNone
@ -504,13 +504,13 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Panel6: TPanel
Left = 0
Top = 102
Width = 1541
Width = 1540
Height = 33
Align = alTop
BorderStyle = bsSingle
TabOrder = 0
DesignSize = (
1537
1536
29)
object Label31: TLabel
Left = 35
@ -607,7 +607,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Pnl_F1: TPanel
Left = 0
Top = 0
Width = 1541
Width = 1540
Height = 102
Align = alTop
BevelInner = bvRaised
@ -837,7 +837,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxGrid1: TcxGrid
Left = 0
Top = 135
Width = 1541
Width = 1540
Height = 403
Align = alClient
BorderStyle = cxcbsNone

65
E04梭织坯布仓库/U_TatClothStkSelSel.dfm → E04梭织坯布仓库/U_TatClothStkSel.dfm
View File

@ -1,22 +1,20 @@
inherited frmTatClothStkList: TfrmTatClothStkList
inherited frmTatClothStkSel: TfrmTatClothStkSel
Left = 184
Top = 138
Caption = #25104#21697#24211#23384#21015#34920
Caption = #25104#21697#24211#23384#36873#25321
ClientHeight = 600
ClientWidth = 1541
ClientWidth = 1540
Font.Height = -16
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1557
ExplicitWidth = 1556
ExplicitHeight = 639
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Tag = 2
Left = 0
Top = 0
Width = 1541
Width = 1540
Height = 30
AutoSize = True
ButtonHeight = 30
@ -42,24 +40,34 @@ inherited frmTatClothStkList: TfrmTatClothStkList
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
object ToolButton1: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36873#25321
ImageIndex = 12
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #30721#21333#25171#21360
ImageIndex = 21
Visible = False
OnClick = ToolButton2Click
end
object TBExport: TToolButton
Left = 150
Left = 213
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
Visible = False
OnClick = TBExportClick
end
object ToolButton4: TToolButton
Left = 213
Left = 276
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -67,7 +75,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 300
Left = 363
Top = 0
AutoSize = True
Caption = #20851#38381
@ -78,16 +86,17 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxPageControl1: TcxPageControl [1]
Left = 0
Top = 30
Width = 1541
Width = 1540
Height = 570
Align = alClient
TabOrder = 3
Properties.ActivePage = cxTabSheet2
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 5
OnChange = cxPageControl1Change
ExplicitTop = 36
ClientRectBottom = 570
ClientRectRight = 1541
ClientRectRight = 1540
ClientRectTop = 32
object cxTabSheet1: TcxTabSheet
Caption = ' '#20135#21697#27719#24635#20449#24687' '
@ -95,7 +104,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Pnl_F2: TPanel
Left = 0
Top = 0
Width = 1541
Width = 1540
Height = 75
Align = alTop
BevelInner = bvRaised
@ -103,6 +112,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Color = clWhite
ParentBackground = False
TabOrder = 0
ExplicitTop = -6
object Label4: TLabel
Left = 244
Top = 10
@ -274,16 +284,16 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxGrid2: TcxGrid
Left = 0
Top = 75
Width = 1541
Width = 1540
Height = 463
Align = alClient
BorderStyle = cxcbsNone
PopupMenu = PM_2
TabOrder = 1
ExplicitTop = 72
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = TV2CellDblClick
OnCustomDrawCell = TV2CustomDrawCell
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
@ -347,6 +357,13 @@ inherited frmTatClothStkList: TfrmTatClothStkList
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
object TV2SSel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
@ -501,16 +518,17 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxTabSheet2: TcxTabSheet
Caption = ' '#20135#21697#26126#32454#20449#24687' '
ImageIndex = 1
TabVisible = False
object Panel6: TPanel
Left = 0
Top = 102
Width = 1541
Width = 1540
Height = 33
Align = alTop
BorderStyle = bsSingle
TabOrder = 0
DesignSize = (
1537
1536
29)
object Label31: TLabel
Left = 35
@ -607,7 +625,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object Pnl_F1: TPanel
Left = 0
Top = 0
Width = 1541
Width = 1540
Height = 102
Align = alTop
BevelInner = bvRaised
@ -615,6 +633,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = -1
object Label3: TLabel
Left = 236
Top = 9
@ -837,12 +856,14 @@ inherited frmTatClothStkList: TfrmTatClothStkList
object cxGrid1: TcxGrid
Left = 0
Top = 135
Width = 1541
Width = 1540
Height = 403
Align = alClient
BorderStyle = cxcbsNone
PopupMenu = PM_1
TabOrder = 2
ExplicitLeft = -128
ExplicitTop = 108
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

147
E04梭织坯布仓库/U_TatClothStkSel.pas
View File

@ -1,4 +1,4 @@
unit U_TatClothStkList;
unit U_TatClothStkSel;
interface
@ -33,7 +33,7 @@ uses
dxSkinXmas2008Blue;
type
TfrmTatClothStkList = class(TfrmBaseList)
TfrmTatClothStkSel = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBExport: TToolButton;
@ -154,6 +154,8 @@ type
BegDate: TcxDateEdit;
EndDate: TcxDateEdit;
TV2Column1: TcxGridDBColumn;
TV2SSel: TcxGridDBColumn;
ToolButton1: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -172,12 +174,13 @@ type
procedure ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure MenuItem1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure ToolButton1Click(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
lstPacketId: TStringList;
@ -190,13 +193,16 @@ type
{ Public declarations }
end;
var
frmTatClothStkSel: TfrmTatClothStkSel;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
{$R *.dfm}
procedure TfrmTatClothStkList.InitPage();
procedure TfrmTatClothStkSel.InitPage();
begin
CurrentPage := 1;
case cxPageControl1.ActivePageIndex of
@ -211,20 +217,20 @@ begin
end;
end;
procedure TfrmTatClothStkList.SetStatus();
procedure TfrmTatClothStkSel.SetStatus();
begin
// if canshu1 then
end;
procedure TfrmTatClothStkList.FormClose(Sender: TObject; var Action: TCloseAction);
procedure TfrmTatClothStkSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstPacketId);
Action := caFree;
end;
procedure TfrmTatClothStkList.FormCreate(Sender: TObject);
procedure TfrmTatClothStkSel.FormCreate(Sender: TObject);
begin
inherited;
lstPacketId := TStringList.Create;
@ -235,7 +241,7 @@ begin
FWorkshop := trim(Self.fParameters3);
end;
procedure TfrmTatClothStkList.InitGrid(WSql: string);
procedure TfrmTatClothStkSel.InitGrid(WSql: string);
begin
if Trim(WSql) <> '' then
@ -256,11 +262,10 @@ begin
sql.Clear;
sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color');
sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage');
sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage,ConNo,ConMID,ConSID');
sql.Add(' from V_Tat_Cloth_Stk A where 1=1 ');
sql.Add(WSql);
sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color');
sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color,ConNo,ConMID,ConSID');
// showmessage(sql.text);
Open;
end;
@ -271,66 +276,65 @@ begin
end;
1:
begin
if chk_F1.Checked then
begin
WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date));
WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1));
end;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select top ' + inttostr(RecordsNumber) + ' * ');
sql.Add(' from ');
sql.Add('(select rownumber=cast((row_number() over(order by AA.IOTime desc)) as int)');
sql.Add(',COUNT(1) OVER() AS TotalCount');
sql.Add(', kl= DATEDIFF(dd,IOTime, GETDATE()),* from V_Tat_Cloth_Stk AA where 1=1 ');
// if trim(FWorkshop) <> '' then
// sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' ');
sql.Add('and 1=1 ' + WSql);
sql.Add(') temp_row');
sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber)));
sql.Add(' order by rownumber');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber));
TV1.DataController.Filter.Clear;
// if chk_F1.Checked then
// begin
// WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date));
// WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1));
// end;
// with ADOQueryMain do
// begin
// Filtered := False;
// Close;
// sql.Clear;
// sql.Add(' select top ' + inttostr(RecordsNumber) + ' * ');
// sql.Add(' from ');
// sql.Add('(select rownumber=cast((row_number() over(order by AA.IOTime desc)) as int)');
// sql.Add(',COUNT(1) OVER() AS TotalCount');
// sql.Add(', kl= DATEDIFF(dd,IOTime, GETDATE()),* from V_Tat_Cloth_Stk AA where 1=1 ');
//// if trim(FWorkshop) <> '' then
//// sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' ');
// sql.Add('and 1=1 ' + WSql);
// sql.Add(') temp_row');
// sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber)));
// sql.Add(' order by rownumber');
//// showmessage(sql.text);
// Open;
end;
// SCreateCDS(ADOQueryMain, CDS_1);
// SInitCDSData(ADOQueryMain, CDS_1);
// LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber));
// TV1.DataController.Filter.Clear;
// end;
end;
end;
procedure TfrmTatClothStkList.TBRafreshClick(Sender: TObject);
procedure TfrmTatClothStkSel.TBRafreshClick(Sender: TObject);
begin
InitPage();
end;
procedure TfrmTatClothStkList.CDS_1BeforeOpen(DataSet: TDataSet);
procedure TfrmTatClothStkSel.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstPacketId.Clear;
end;
procedure TfrmTatClothStkList.cxPageControl1Change(Sender: TObject);
procedure TfrmTatClothStkSel.cxPageControl1Change(Sender: TObject);
begin
SetStatus();
end;
procedure TfrmTatClothStkList.TBCloseClick(Sender: TObject);
procedure TfrmTatClothStkSel.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatClothStkList.FormShow(Sender: TObject);
procedure TfrmTatClothStkSel.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ËóÖ¯Å÷²¼²Ö¿â');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ËóÖ¯Å÷²¼²Ö¿â');
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存选择');
CurrentPage := 1;
RecordsNumber := 500;
canshu1 := Trim(Self.fParameters1);
@ -338,14 +342,14 @@ begin
InitPage();
end;
procedure TfrmTatClothStkList.TBExportClick(Sender: TObject);
procedure TfrmTatClothStkSel.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
TcxGridToExcel(Self.Caption, cxGrid1);
end;
procedure TfrmTatClothStkList.orderNoKeyPress(Sender: TObject; var Key: Char);
procedure TfrmTatClothStkSel.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
@ -353,88 +357,84 @@ begin
end;
end;
procedure TfrmTatClothStkList.PM11Click(Sender: TObject);
procedure TfrmTatClothStkSel.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_1, false);
end;
procedure TfrmTatClothStkList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure TfrmTatClothStkSel.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
ACanvas.Brush.Color := $B3DEF5;
end;
procedure TfrmTatClothStkList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
procedure TfrmTatClothStkSel.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstPacketId.Clear; //ÖØдò¿ªÊý¾Ý¼¯Ç°Çå¿ÕlstPacketId
end;
procedure TfrmTatClothStkList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
procedure TfrmTatClothStkSel.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstPacketId <> nil then
AText := IntToStr(lstPacketId.Count);
end;
procedure TfrmTatClothStkList.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
BegDate.Date := BegDate2.Date;
EndDate.Date := EndDate2.Date;
chk_F2.Checked := chk_F1.Checked;
cxPageControl1.ActivePageIndex := 1;
SetStatus();
InitGrid(SGetCDSFilters(Tv2, CDS_2));
end;
procedure TfrmTatClothStkList.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure TfrmTatClothStkSel.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
ACanvas.Brush.Color := $B3DEF5;
end;
procedure TfrmTatClothStkList.BTNPClick(Sender: TObject);
procedure TfrmTatClothStkSel.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid(SGetHintFilters(Pnl_F1, 1, 2));
end;
procedure TfrmTatClothStkList.BTLPClick(Sender: TObject);
procedure TfrmTatClothStkSel.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid(SGetHintFilters(Pnl_F1, 1, 2));
end;
procedure TfrmTatClothStkList.TCBNORChange(Sender: TObject);
procedure TfrmTatClothStkSel.TCBNORChange(Sender: TObject);
begin
RecordsNumber := StrToInt(TCBNOR.Text);
CurrentPage := 1;
InitGrid(SGetHintFilters(Pnl_F1, 1, 2));
end;
procedure TfrmTatClothStkList.JYTypeChange(Sender: TObject);
procedure TfrmTatClothStkSel.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitPage();
end;
procedure TfrmTatClothStkList.MenuItem1Click(Sender: TObject);
procedure TfrmTatClothStkSel.MenuItem1Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothStkList.N1Click(Sender: TObject);
procedure TfrmTatClothStkSel.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, true);
end;
procedure TfrmTatClothStkList.N2Click(Sender: TObject);
procedure TfrmTatClothStkSel.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothStkList.ToolButton2Click(Sender: TObject);
procedure TfrmTatClothStkSel.ToolButton1Click(Sender: TObject);
begin
inherited;
ModalResult := 1;
end;
procedure TfrmTatClothStkSel.ToolButton2Click(Sender: TObject);
var
WSql: string;
begin
@ -485,10 +485,9 @@ begin
end;
end;
procedure TfrmTatClothStkList.ToolButton4Click(Sender: TObject);
procedure TfrmTatClothStkSel.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, 'ËóÖ¯Å÷²¼²Ö¿â');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, 'ËóÖ¯Å÷²¼²Ö¿â');
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '成品库存选择');
end;
end.

495
E04梭织坯布仓库/U_TatClothStkSelSel.pas
View File

@ -1,495 +0,0 @@
unit U_TatClothStkList;
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, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, cxPC, System.StrUtils, cxContainer, dxCore,
cxDateUtils, cxMaskEdit, dxScrollbarAnnotations, cxProgressBar, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue;
type
TfrmTatClothStkList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
CDS_1: TClientDataSet;
ToolButton2: TToolButton;
ToolButton4: TToolButton;
PM_1: TPopupMenu;
PM11: TMenuItem;
N1: TMenuItem;
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
Panel6: TPanel;
Label31: TLabel;
LBCPAP: TLabel;
BTLP: TButton;
BTNP: TButton;
TCBNOR: TComboBox;
Pnl_F1: TPanel;
Label3: TLabel;
Label7: TLabel;
Label10: TLabel;
Label5: TLabel;
lbl1: TLabel;
Label20: TLabel;
Label23: TLabel;
begtime: TDateTimePicker;
endTime: TDateTimePicker;
OrderNo: TcxTextEdit;
conNO: TcxTextEdit;
STKID: TcxTextEdit;
C_Name: TcxTextEdit;
C_Color: TcxTextEdit;
BCIOID: TcxTextEdit;
C_Pattern: TcxTextEdit;
C_Code: TcxTextEdit;
Pnl_F2: TPanel;
Label4: TLabel;
Label6: TLabel;
Label9: TLabel;
Label13: TLabel;
DateTimePicker3: TDateTimePicker;
DateTimePicker4: TDateTimePicker;
Edit1: TcxTextEdit;
Edit2: TcxTextEdit;
Edit4: TcxTextEdit;
Edit5: TcxTextEdit;
Edit8: TcxTextEdit;
GPM_2: TcxGridPopupMenu;
CDS_2: TClientDataSet;
DS_2: TDataSource;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV2Column3: TcxGridDBColumn;
Label18: TLabel;
Label19: TLabel;
Edit9: TcxTextEdit;
Edit10: TcxTextEdit;
Label8: TLabel;
Label14: TLabel;
Edit3: TcxTextEdit;
Edit11: TcxTextEdit;
PM_2: TPopupMenu;
MenuItem1: TMenuItem;
N2: TMenuItem;
TV2Column2: TcxGridDBColumn;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column22: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
v1Column32: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
v1Column28: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column42: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label1: TLabel;
BegDate2: TcxDateEdit;
EndDate2: TcxDateEdit;
chk_F2: TcxCheckBox;
Label2: TLabel;
chk_F1: TcxCheckBox;
BegDate: TcxDateEdit;
EndDate: TcxDateEdit;
TV2Column1: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(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 ToolButton4Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure MenuItem1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
private
CurrentPage, RecordsNumber: Integer;
lstPacketId: TStringList;
procedure InitGrid(WSql: string);
procedure InitPage();
procedure SetStatus();
{ Private declarations }
public
canshu1, FWorkshop: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_RTFun, U_LabelPrint;
{$R *.dfm}
procedure TfrmTatClothStkList.InitPage();
begin
CurrentPage := 1;
case cxPageControl1.ActivePageIndex of
0:
begin
InitGrid(SGetHintFilters(Pnl_F2, 1, 2));
end;
1:
begin
InitGrid(SGetHintFilters(Pnl_F1, 1, 2));
end;
end;
end;
procedure TfrmTatClothStkList.SetStatus();
begin
// if canshu1 then
end;
procedure TfrmTatClothStkList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
FreeAndNil(lstPacketId);
Action := caFree;
end;
procedure TfrmTatClothStkList.FormCreate(Sender: TObject);
begin
inherited;
lstPacketId := TStringList.Create;
EndDate.Date := SGetServerDateTime(ADOQueryTemp);
BegDate.Date := EndDate.Date - 20;
BegDate2.Date := BegDate.Date;
EndDate2.Date := EndDate.Date;
FWorkshop := trim(Self.fParameters3);
end;
procedure TfrmTatClothStkList.InitGrid(WSql: string);
begin
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
case cxPageControl1.ActivePageIndex of
0:
begin
if chk_F2.Checked then
begin
WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate2.Date));
WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate2.Date + 1));
end;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color');
sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage');
sql.Add(' from V_Tat_Cloth_Stk A where 1=1 ');
sql.Add(WSql);
sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Code,C_Name,IOType,Grade,CustName,C_Width,C_GramWeight,BatchNo,C_Color');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
TV2.DataController.Filter.Clear;
end;
1:
begin
if chk_F1.Checked then
begin
WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date));
WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.Date + 1));
end;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select top ' + inttostr(RecordsNumber) + ' * ');
sql.Add(' from ');
sql.Add('(select rownumber=cast((row_number() over(order by AA.IOTime desc)) as int)');
sql.Add(',COUNT(1) OVER() AS TotalCount');
sql.Add(', kl= DATEDIFF(dd,IOTime, GETDATE()),* from V_Tat_Cloth_Stk AA where 1=1 ');
// if trim(FWorkshop) <> '' then
// sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' ');
sql.Add('and 1=1 ' + WSql);
sql.Add(') temp_row');
sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber)));
sql.Add(' order by rownumber');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber));
TV1.DataController.Filter.Clear;
end;
end;
end;
procedure TfrmTatClothStkList.TBRafreshClick(Sender: TObject);
begin
InitPage();
end;
procedure TfrmTatClothStkList.CDS_1BeforeOpen(DataSet: TDataSet);
begin
lstPacketId.Clear;
end;
procedure TfrmTatClothStkList.cxPageControl1Change(Sender: TObject);
begin
SetStatus();
end;
procedure TfrmTatClothStkList.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmTatClothStkList.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '梭织坯布仓库');
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '梭织坯布仓库');
CurrentPage := 1;
RecordsNumber := 500;
canshu1 := Trim(Self.fParameters1);
SetStatus();
InitPage();
end;
procedure TfrmTatClothStkList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
TcxGridToExcel(Self.Caption, cxGrid1);
end;
procedure TfrmTatClothStkList.orderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitPage();
end;
end;
procedure TfrmTatClothStkList.PM11Click(Sender: TObject);
begin
SelOKNo(CDS_1, false);
end;
procedure TfrmTatClothStkList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
ACanvas.Brush.Color := $B3DEF5;
end;
procedure TfrmTatClothStkList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
begin
lstPacketId.Clear; //重新打开数据集前清空lstPacketId
end;
procedure TfrmTatClothStkList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
begin
if lstPacketId <> nil then
AText := IntToStr(lstPacketId.Count);
end;
procedure TfrmTatClothStkList.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
BegDate.Date := BegDate2.Date;
EndDate.Date := EndDate2.Date;
chk_F2.Checked := chk_F1.Checked;
cxPageControl1.ActivePageIndex := 1;
SetStatus();
InitGrid(SGetCDSFilters(Tv2, CDS_2));
end;
procedure TfrmTatClothStkList.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 90 then
ACanvas.Brush.Color := $B3DEF5;
end;
procedure TfrmTatClothStkList.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid(SGetHintFilters(Pnl_F1, 1, 2));
end;
procedure TfrmTatClothStkList.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid(SGetHintFilters(Pnl_F1, 1, 2));
end;
procedure TfrmTatClothStkList.TCBNORChange(Sender: TObject);
begin
RecordsNumber := StrToInt(TCBNOR.Text);
CurrentPage := 1;
InitGrid(SGetHintFilters(Pnl_F1, 1, 2));
end;
procedure TfrmTatClothStkList.JYTypeChange(Sender: TObject);
begin
CurrentPage := 1;
InitPage();
end;
procedure TfrmTatClothStkList.MenuItem1Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_2.fieldbyname(TV2.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothStkList.N1Click(Sender: TObject);
begin
SelOKNo(CDS_1, true);
end;
procedure TfrmTatClothStkList.N2Click(Sender: TObject);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmTatClothStkList.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;
ShowMessage(WSql);
CDS_1.Locate('SSel', True, []);
CDS_1.EnableControls;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TatClothStk';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmTatClothStkList.ToolButton4Click(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '梭织坯布仓库');
WriteCxGrid(trim(self.Caption) + 'Tv2', Tv2, '梭织坯布仓库');
end;
end.

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

@ -155,8 +155,7 @@ inherited frmTatDRList: TfrmTatDRList
Height = 237
Align = alClient
TabOrder = 3
ExplicitTop = 117
ExplicitHeight = 247
ExplicitTop = 129
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -475,7 +474,6 @@ inherited frmTatDRList: TfrmTatDRList
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
Control = cxGrid2
ExplicitWidth = 8
end
object cxGrid2: TcxGrid [5]
Left = 0
@ -484,6 +482,7 @@ inherited frmTatDRList: TfrmTatDRList
Height = 222
Align = alBottom
TabOrder = 5
ExplicitTop = 370
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

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

@ -3,7 +3,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Top = 139
Caption = #21457#36135#30003#35831#24405#20837
ClientHeight = 644
ClientWidth = 1252
ClientWidth = 1312
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -19,7 +19,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Tag = 1
Left = 0
Top = 0
Width = 1252
Width = 1312
Height = 38
AutoSize = True
ButtonHeight = 38
@ -68,7 +68,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object ScrollBox1: TScrollBox
Left = 0
Top = 38
Width = 1252
Width = 1312
Height = 75
Align = alTop
BevelInner = bvNone
@ -131,11 +131,11 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentFont = False
end
object Label27: TLabel
Left = 703
Left = 688
Top = 12
Width = 52
Width = 65
Height = 15
Caption = #25968#37327#21333#20301
Caption = #25968#37327#21333#20301#65306
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -143,6 +143,47 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 865
Top = 13
Width = 78
Height = 12
Caption = #20986#21040#21512#21516#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 1090
Top = 5
Width = 91
Height = 12
Caption = #20986#21040#21512#21516#23376#34920#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label5: TLabel
Left = 1090
Top = 31
Width = 91
Height = 12
Caption = #20986#21040#21512#21516#20027#34920#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object OutType: TComboBox
Tag = 1
Left = 306
@ -158,8 +199,8 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object Note: TEdit
Tag = 1
Left = 96
Top = 39
Width = 962
Top = 40
Width = 984
Height = 18
TabOrder = 2
end
@ -186,7 +227,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end
object QtyUnit: TComboBox
Tag = 2
Left = 758
Left = 749
Top = 9
Width = 96
Height = 20
@ -197,16 +238,44 @@ object frmTatDRtInPut: TfrmTatDRtInPut
'Y'
'Kg')
end
object ToConNo: TBtnEditC
Tag = 1
Left = 942
Top = 9
Width = 138
Height = 20
TabOrder = 5
OnBtnUpClick = ToConNoBtnUpClick
OnBtnDnClick = ToConNoBtnDnClick
end
object ToConSId: TBtnEditC
Tag = 1
Left = 1187
Top = 5
Width = 138
Height = 20
TabOrder = 6
Visible = False
end
object ToConMId: TBtnEditC
Tag = 1
Left = 1187
Top = 29
Width = 138
Height = 20
TabOrder = 7
Visible = False
end
end
object ToolBar2: TToolBar
Tag = 1
Left = 0
Top = 113
Width = 1252
Width = 1312
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clBtnFace
DisabledImages = DataLink_TatClothStk.ImageList_new32
@ -223,16 +292,17 @@ object frmTatDRtInPut: TfrmTatDRtInPut
ParentFont = False
ShowCaptions = True
TabOrder = 2
object ToolButton3: TToolButton
ExplicitTop = 107
object SelectStk: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #36873#21333
Caption = #36873#25321#24211#23384
ImageIndex = 12
OnClick = ToolButton3Click
OnClick = SelectStkClick
end
object ToolButton1: TToolButton
Left = 71
Left = 95
Top = 0
AutoSize = True
Caption = #22686#34892
@ -241,7 +311,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 142
Left = 166
Top = 0
AutoSize = True
Caption = #21024#34892
@ -252,10 +322,11 @@ object frmTatDRtInPut: TfrmTatDRtInPut
object cxGrid1: TcxGrid
Left = 0
Top = 151
Width = 1252
Width = 1312
Height = 493
Align = alClient
TabOrder = 3
ExplicitTop = 157
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -298,6 +369,13 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Options.Editing = False
Width = 100
end
object Tv1Column3: TcxGridDBColumn
Caption = #32455#36896#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 112
end
object v1Column5: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
@ -312,6 +390,27 @@ object frmTatDRtInPut: TfrmTatDRtInPut
HeaderAlignmentHorz = taCenter
Width = 106
end
object Tv1Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column5: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'Y_Type'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column6: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column2: TcxGridDBColumn
Caption = #30003#35831#21305#25968
DataBinding.FieldName = 'Piece'

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

@ -45,11 +45,21 @@ type
Label2: TLabel;
DlyDate: TDateTimePicker;
Tv1Column2: TcxGridDBColumn;
ToolButton3: TToolButton;
SelectStk: TToolButton;
ToolButton4: TToolButton;
Label27: TLabel;
QtyUnit: TComboBox;
Tv1Column1: TcxGridDBColumn;
Label3: TLabel;
ToConNo: TBtnEditC;
Label4: TLabel;
ToConSId: TBtnEditC;
Label5: TLabel;
ToConMId: TBtnEditC;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
@ -58,8 +68,10 @@ type
procedure ToCoNameBtnUpClick(Sender: TObject);
procedure ToCoNameBtnDnClick(Sender: TObject);
procedure JSQtyUnitChange(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure SelectStkClick(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToConNoBtnDnClick(Sender: TObject);
procedure ToConNoBtnUpClick(Sender: TObject);
private
fuserName: string;
procedure InitData();
@ -79,7 +91,7 @@ implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_TatPlanSel,
U_TradeSalesContractSel;
U_TradeSalesContractSel, U_TatClothStkSel;
{$R *.dfm}
@ -116,6 +128,7 @@ begin
end;
SCreateCDS(ADOQuery1, Order_Sub);
SInitCDSData(ADOQuery1, Order_Sub);
SCSHData(ADOQuery1, ScrollBox1, 2);
with ADOQuery1 do
begin
@ -139,6 +152,32 @@ begin
end;
end;
procedure TfrmTatDRtInPut.ToConNoBtnDnClick(Sender: TObject);
begin
ToConNo.Text := '';
end;
procedure TfrmTatDRtInPut.ToConNoBtnUpClick(Sender: TObject);
begin
try
frmTradeSalesContractSel := TfrmTradeSalesContractSel.Create(Application);
with frmTradeSalesContractSel do
begin
if ShowModal = 1 then
begin
with Self.Order_Sub do
begin
self.ToConNo.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
self.ToConMId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConMId').AsString);
self.ToConSId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConSId').AsString);
end;
end;
end;
finally
frmTradeSalesContractSel.Free;
end;
end;
procedure TfrmTatDRtInPut.FormShow(Sender: TObject);
var
fsj: string;
@ -369,34 +408,38 @@ begin
Order_Sub.Delete;
end;
procedure TfrmTatDRtInPut.ToolButton3Click(Sender: TObject);
procedure TfrmTatDRtInPut.SelectStkClick(Sender: TObject);
var
FConMainId, FMPRTCode: string;
begin
try
frmTradeSalesContractSel := TfrmTradeSalesContractSel.Create(Application);
with frmTradeSalesContractSel do
frmTatClothStkSel := TfrmTatClothStkSel.Create(Application);
with frmTatClothStkSel do
begin
if ShowModal = 1 then
begin
while CDS_1.locate('SSel', true, []) do
while CDS_2.locate('SSel', true, []) do
begin
with Self.Order_Sub do
begin
Append;
FieldByName('ConNo').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').Value;
FieldByName('ConMID').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('ConMID').Value;
FieldByName('ConSID').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('ConSID').Value;
FieldByName('C_Code').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').Value;
FieldByName('C_Name').Value := frmTradeSalesContractSel.CDS_1.fieldbyname('C_Name').Value;
FieldByName('ConNo').Value := frmTatClothStkSel.CDS_2.fieldbyname('ConNo').Value;
FieldByName('ConMID').Value := frmTatClothStkSel.CDS_2.fieldbyname('ConMID').Value;
FieldByName('ConSID').Value := frmTatClothStkSel.CDS_2.fieldbyname('ConSID').Value;
FieldByName('OrderNo').Value := frmTatClothStkSel.CDS_2.fieldbyname('OrderNo').Value;
FieldByName('C_Code').Value := frmTatClothStkSel.CDS_2.fieldbyname('C_Code').Value;
FieldByName('C_Name').Value := frmTatClothStkSel.CDS_2.fieldbyname('C_Name').Value;
FieldByName('C_Color').Value := frmTatClothStkSel.CDS_2.fieldbyname('C_Color').Value;
FieldByName('Y_Type').Value := frmTatClothStkSel.CDS_2.fieldbyname('Grade').Value;
FieldByName('BatchNo').Value := frmTatClothStkSel.CDS_2.fieldbyname('BatchNo').Value;
end;
CDS_1.Edit;
CDS_1.fieldbyname('SSel').value := false;
CDS_2.Edit;
CDS_2.fieldbyname('SSel').value := false;
end;
end;
end;
finally
frmTradeSalesContractSel.Free;
frmTatClothStkSel.Free;
end;
end;

22
T00贸易通用窗体/U_TradeSalesContractSel.dfm
View File

@ -3,14 +3,14 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
Top = 106
Caption = #21512#21516#36873#25321
ClientHeight = 558
ClientWidth = 1564
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
Position = poScreenCenter
OnClose = FormClose
ExplicitWidth = 1580
ExplicitWidth = 1556
ExplicitHeight = 597
PixelsPerInch = 96
TextHeight = 12
@ -18,7 +18,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
Tag = 1
Left = 0
Top = 0
Width = 1564
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
@ -64,7 +64,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1564
Width = 1540
Height = 44
Align = alTop
BevelInner = bvRaised
@ -122,13 +122,14 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
object cxGrid1: TcxGrid [2]
Left = 0
Top = 110
Width = 1564
Width = 1540
Height = 448
Align = alClient
BorderStyle = cxcbsNone
PopupMenu = PM_1
TabOrder = 2
object TV1: TcxGridDBTableView
OnDblClick = TV1DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
@ -169,15 +170,6 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Header = Default
object TV1Column7: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 41
end
object TV1Column13: TcxGridDBColumn
Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'ConDate'
@ -394,7 +386,7 @@ inherited frmTradeSalesContractSel: TfrmTradeSalesContractSel
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 82
Width = 1564
Width = 1540
Height = 28
Align = alTop
Font.Charset = GB2312_CHARSET

1
T00贸易通用窗体/U_TradeSalesContractSel.pas
View File

@ -85,7 +85,6 @@ type
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
TV1Column7: TcxGridDBColumn;
PM_1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;