11/12 17.30
This commit is contained in:
parent
95199bb77f
commit
dc16f304de
|
|
@ -2,6 +2,6 @@
|
|||
<BorlandProject>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXIANGYIN\E04梭织坯布仓库\TatClothStk.dproj"/>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\TatClothStk.dproj"/>
|
||||
</Default.Personality>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
|
|
@ -4,7 +4,7 @@
|
|||
<MainSource>TatClothStk.dpr</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<TargetedPlatforms>38017</TargetedPlatforms>
|
||||
<TargetedPlatforms>1</TargetedPlatforms>
|
||||
<AppType>Library</AppType>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<ProjectVersion>19.2</ProjectVersion>
|
||||
|
|
@ -13,16 +13,6 @@
|
|||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
|
||||
<Base_Android64>true</Base_Android64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
|
||||
<Base_iOSDevice64>true</Base_iOSDevice64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
|
|
@ -43,24 +33,6 @@
|
|||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
|
||||
<Cfg_2_Android64>true</Cfg_2_Android64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
|
||||
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
|
||||
<Cfg_2_OSX64>true</Cfg_2_OSX64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
|
||||
<Cfg_2_Win32>true</Cfg_2_Win32>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
|
|
@ -84,13 +56,6 @@
|
|||
<VerInfo_Locale>2052</VerInfo_Locale>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Android64)'!=''">
|
||||
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
|
||||
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
|
||||
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
|
|
@ -113,18 +78,9 @@
|
|||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szXIANGYIN\E04梭织坯布仓库\testDll.exe</Debugger_HostApplication>
|
||||
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\testDll.exe</Debugger_HostApplication>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
|
|
@ -237,10 +193,6 @@
|
|||
</Source>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Android64">True</Platform>
|
||||
<Platform value="iOSDevice64">True</Platform>
|
||||
<Platform value="Linux64">True</Platform>
|
||||
<Platform value="OSX64">True</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">False</Platform>
|
||||
</Platforms>
|
||||
|
|
|
|||
|
|
@ -1,102 +1,74 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.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.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.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.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.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.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.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.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.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</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.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas</Transaction>
|
||||
<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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.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.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.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.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.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.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.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</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.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="android-support-v4.dex.jar"/>
|
||||
<File Path="cloud-messaging.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
|
||||
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
|
||||
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
|
||||
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
|
||||
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
|
||||
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
|
||||
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
|
||||
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
|
||||
<File Path="fmx.dex.jar"/>
|
||||
<File Path="google-play-billing.dex.jar"/>
|
||||
<File Path="google-play-licensing.dex.jar"/>
|
||||
<File Path="..\..\D10szXIANGYIN"/>
|
||||
<File Path="..\..\D10szXIANGYING"/>
|
||||
<File Path="..\A00通用窗体"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
|
|
@ -59,16 +59,24 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
ImageIndex = 9
|
||||
OnClick = TBAddClick
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
object TbGoodsEdit: TToolButton
|
||||
Left = 213
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #37197#36135#20462#25913
|
||||
ImageIndex = 3
|
||||
OnClick = TbGoodsEditClick
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 308
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #26597#30475
|
||||
ImageIndex = 4
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object TBDel: TToolButton
|
||||
Left = 284
|
||||
Left = 379
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#38500
|
||||
|
|
@ -76,7 +84,7 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
OnClick = TBDelClick
|
||||
end
|
||||
object TBEdit: TToolButton
|
||||
Left = 355
|
||||
Left = 450
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20462#25913
|
||||
|
|
@ -84,7 +92,7 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
OnClick = TBEditClick
|
||||
end
|
||||
object TBPrint: TToolButton
|
||||
Left = 426
|
||||
Left = 521
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25171#21360
|
||||
|
|
@ -92,7 +100,7 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
OnClick = TBPrintClick
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 497
|
||||
Left = 592
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #30721#21333#25171#21360
|
||||
|
|
@ -100,7 +108,7 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton3: TToolButton
|
||||
Left = 592
|
||||
Left = 687
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21462#28040
|
||||
|
|
@ -108,7 +116,7 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 663
|
||||
Left = 758
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #25764#38144#21462#28040
|
||||
|
|
@ -196,6 +204,7 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
Height = 224
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
ExplicitTop = 142
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -723,6 +732,27 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object TV2Volume: TcxGridDBColumn
|
||||
Caption = #37197#36135#30003#35831#21367#25968
|
||||
DataBinding.FieldName = 'Volume'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 102
|
||||
end
|
||||
object TV2Applicant: TcxGridDBColumn
|
||||
Caption = #30003#35831#20154
|
||||
DataBinding.FieldName = 'Applicant'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object TV2ApplicationReaon: TcxGridDBColumn
|
||||
Caption = #37197#36135#30003#35831#21407#22240
|
||||
DataBinding.FieldName = 'ApplicationReaon'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = TV2
|
||||
|
|
|
|||
|
|
@ -98,6 +98,10 @@ type
|
|||
TV2Column6: TcxGridDBColumn;
|
||||
TV2Column7: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
TbGoodsEdit: TToolButton;
|
||||
TV2Volume: TcxGridDBColumn;
|
||||
TV2Applicant: TcxGridDBColumn;
|
||||
TV2ApplicationReaon: TcxGridDBColumn;
|
||||
//RMllPDFExport1: TRMllPDFExport;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
|
|
@ -128,6 +132,7 @@ type
|
|||
procedure ToolButton4Click(Sender: TObject);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
procedure ToolButton7Click(Sender: TObject);
|
||||
procedure TbGoodsEditClick(Sender: TObject);
|
||||
private
|
||||
procedure InitGrid();
|
||||
procedure InitSubGrid();
|
||||
|
|
@ -160,6 +165,7 @@ begin
|
|||
btnWCCX.Enabled := False;
|
||||
ToolButton3.Enabled := False;
|
||||
ToolButton5.Enabled := False;
|
||||
TbGoodsEdit.Enabled := False;
|
||||
if CANSHU1 = '²éѯ' then
|
||||
begin
|
||||
ToolButton1.Enabled := True;
|
||||
|
|
@ -168,6 +174,7 @@ begin
|
|||
ToolButton4.Enabled := True;
|
||||
TBExport.Enabled := True;
|
||||
ToolButton7.Enabled := True;
|
||||
TbGoodsEdit.Enabled := True;
|
||||
|
||||
TBAdd.Enabled := True;
|
||||
TBEdit.Enabled := True;
|
||||
|
|
@ -187,6 +194,7 @@ begin
|
|||
0:
|
||||
begin
|
||||
ToolButton3.Enabled := true;
|
||||
// TbGoodsEdit.Enabled := True;
|
||||
tchk.Enabled := true;
|
||||
end;
|
||||
1:
|
||||
|
|
@ -284,6 +292,8 @@ begin
|
|||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
SCreateCDS(ADOQueryMain, Order_Main);
|
||||
SInitCDSData(ADOQueryMain, Order_Main);
|
||||
|
||||
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
TV1.DataController.Filter.Clear;
|
||||
|
|
@ -361,6 +371,7 @@ begin
|
|||
with frmTatDRtInPut do
|
||||
begin
|
||||
PState := 1;
|
||||
|
||||
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
|
|
@ -410,6 +421,44 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatDRList.TbGoodsEditClick(Sender: TObject);
|
||||
var
|
||||
maxno: string;
|
||||
begin
|
||||
try
|
||||
frmTatDRtInPut := TfrmTatDRtInPut.Create(Application);
|
||||
with frmTatDRtInPut do
|
||||
begin
|
||||
PState := 2; ///Åä»õÐÞ¸Ä
|
||||
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
|
||||
canshu1 := self.canshu1;
|
||||
|
||||
ScrollBox1.Visible := False;
|
||||
ToolBar2.Visible := false;
|
||||
TbPHSave.visible := True;
|
||||
TBSave.Visible := False;
|
||||
|
||||
// Tv1Applicant.Visible := True;
|
||||
|
||||
Tv1C_Name.Options.Editing := False;
|
||||
Tv1C_code.Options.Editing := False;
|
||||
Tv1C_width.Options.Editing := False;
|
||||
Tv1C_GramWeight.Options.Editing := False;
|
||||
Tv1c_Color.Options.Editing := False;
|
||||
Tv1Piece.Options.Editing := False;
|
||||
Tv1Qty.Options.Editing := False;
|
||||
Tv1PINGFANG.Options.Editing := False;
|
||||
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmTatDRtInPut.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrmTatDRList.DelData(): Boolean;
|
||||
begin
|
||||
try
|
||||
|
|
|
|||
|
|
@ -48,16 +48,25 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
ImageIndex = 16
|
||||
OnClick = TBSaveClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
object TbPHSave: TToolButton
|
||||
Left = 71
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #37197#36135#20445#23384
|
||||
ImageIndex = 16
|
||||
Visible = False
|
||||
OnClick = TbPHSaveClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 166
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 166
|
||||
Left = 261
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
|
|
@ -210,7 +219,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
object Note: TEdit
|
||||
Tag = 1
|
||||
Left = 96
|
||||
Top = 69
|
||||
Top = 70
|
||||
Width = 962
|
||||
Height = 18
|
||||
TabOrder = 2
|
||||
|
|
@ -363,6 +372,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
OnCellClick = Tv1CellClick
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
|
|
@ -381,11 +391,11 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column2
|
||||
Column = Tv1Piece
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = cv1Column3
|
||||
Column = Tv1Qty
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.FocusCellOnTab = True
|
||||
|
|
@ -394,21 +404,23 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
object v1Column6: TcxGridDBColumn
|
||||
object Tv1C_Name: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 71
|
||||
end
|
||||
object Tv1Column1: TcxGridDBColumn
|
||||
object Tv1C_code: TcxGridDBColumn
|
||||
Caption = #20135#21697#32534#21495
|
||||
DataBinding.FieldName = 'C_code'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 68
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
object Tv1C_width: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_width'
|
||||
DataBinding.IsNullValueType = True
|
||||
|
|
@ -416,28 +428,29 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
Options.Editing = False
|
||||
Width = 73
|
||||
end
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
object Tv1C_GramWeight: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 69
|
||||
end
|
||||
object Tv1Column3: TcxGridDBColumn
|
||||
object Tv1c_Color: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'c_Color'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 68
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
object Tv1Piece: TcxGridDBColumn
|
||||
Caption = #30003#35831#21367#25968
|
||||
DataBinding.FieldName = 'Piece'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 81
|
||||
end
|
||||
object cv1Column3: TcxGridDBColumn
|
||||
object Tv1Qty: TcxGridDBColumn
|
||||
Caption = #30003#35831#31859#25968
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
|
|
@ -445,13 +458,35 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 90
|
||||
end
|
||||
object Tv1Column5: TcxGridDBColumn
|
||||
object Tv1PINGFANG: TcxGridDBColumn
|
||||
Caption = #30003#35831#24179#26041
|
||||
DataBinding.FieldName = 'PINGFANG'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 71
|
||||
end
|
||||
object Tv1Volume: TcxGridDBColumn
|
||||
Caption = #37197#36135#30003#35831#21367#25968
|
||||
DataBinding.FieldName = 'Volume'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
object Tv1Applicant: TcxGridDBColumn
|
||||
Caption = #30003#35831#20154
|
||||
DataBinding.FieldName = 'Applicant'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1ApplicationReaon: TcxGridDBColumn
|
||||
Caption = #37197#36135#30003#35831#21407#22240
|
||||
DataBinding.FieldName = 'ApplicationReaon'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
|
|||
|
|
@ -37,14 +37,14 @@ type
|
|||
Label12: TLabel;
|
||||
Label11: TLabel;
|
||||
ToCoName: TBtnEditC;
|
||||
v1Column1: TcxGridDBColumn;
|
||||
cv1Column3: TcxGridDBColumn;
|
||||
Tv1C_width: TcxGridDBColumn;
|
||||
Tv1Qty: TcxGridDBColumn;
|
||||
cxStyleRepository1: TcxStyleRepository;
|
||||
dazi1: TcxStyle;
|
||||
v1Column6: TcxGridDBColumn;
|
||||
Tv1C_Name: TcxGridDBColumn;
|
||||
Label2: TLabel;
|
||||
DlyDate: TDateTimePicker;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
Tv1Piece: TcxGridDBColumn;
|
||||
ToolButton3: TToolButton;
|
||||
ToolButton4: TToolButton;
|
||||
Label27: TLabel;
|
||||
|
|
@ -53,16 +53,20 @@ type
|
|||
SHDANWEI: TBtnEditC;
|
||||
ToolButton5: TToolButton;
|
||||
ToolButton6: TToolButton;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1C_code: TcxGridDBColumn;
|
||||
Label4: TLabel;
|
||||
Seal: TEdit;
|
||||
Label5: TLabel;
|
||||
tube: TEdit;
|
||||
Label6: TLabel;
|
||||
Packaging: TEdit;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
Tv1c_Color: TcxGridDBColumn;
|
||||
Tv1C_GramWeight: TcxGridDBColumn;
|
||||
Tv1PINGFANG: TcxGridDBColumn;
|
||||
Tv1Volume: TcxGridDBColumn;
|
||||
Tv1Applicant: TcxGridDBColumn;
|
||||
Tv1ApplicationReaon: TcxGridDBColumn;
|
||||
TbPHSave: TToolButton;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
|
|
@ -77,10 +81,13 @@ type
|
|||
procedure SHDANWEIBtnDnClick(Sender: TObject);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
procedure ToolButton6Click(Sender: TObject);
|
||||
procedure TbPHSaveClick(Sender: TObject);
|
||||
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
private
|
||||
fuserName: string;
|
||||
procedure InitData();
|
||||
function SaveData(): Boolean;
|
||||
function SavePHData(): Boolean;
|
||||
{ Private declarations }
|
||||
public
|
||||
PState, CopyInt: Integer;
|
||||
|
|
@ -106,6 +113,34 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmTatDRtInPut.TbPHSaveClick(Sender: TObject);
|
||||
var
|
||||
Freal: Double;
|
||||
begin
|
||||
ToolBar1.SetFocus;
|
||||
|
||||
if Trim(OutType.Text) = '' then
|
||||
begin
|
||||
Application.MessageBox('出库类型不能为空！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if Trim(ToCoName.Text) = '' then
|
||||
begin
|
||||
Application.MessageBox('客户不能为空！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if (Order_Sub.Locate('Piece', null, [])) and (Order_Sub.Locate('Qty', null, [])) = True then
|
||||
begin
|
||||
Application.MessageBox('细码申请匹数和数量不能全为空！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
if SavePHData() then
|
||||
begin
|
||||
Application.MessageBox('配货保存成功！', '提示', 0);
|
||||
ModalResult := 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatDRtInPut.InitData();
|
||||
var
|
||||
fsj: string;
|
||||
|
|
@ -121,11 +156,11 @@ begin
|
|||
SQL.Clear;
|
||||
sql.Add(' select A.* ');
|
||||
sql.Add(' from Tat_Cloth_DR_Sub A');
|
||||
if PState = 1 then
|
||||
if (PState = 1) or (PState = 2) then ////查看和修改
|
||||
begin
|
||||
sql.Add('where DRMID=''' + Trim(FDRMID) + '''');
|
||||
end;
|
||||
if PState = 0 then
|
||||
if PState = 0 then ////新增
|
||||
begin
|
||||
sql.Add(' where 1<>1');
|
||||
end;
|
||||
|
|
@ -191,6 +226,66 @@ begin
|
|||
InitData();
|
||||
end;
|
||||
|
||||
function TfrmTatDRtInPut.SavePHData(): Boolean;
|
||||
var
|
||||
MaxSid: string;
|
||||
CurrentYear: string;
|
||||
begin
|
||||
try
|
||||
ADOCmd.Connection.BeginTrans;
|
||||
///////////////// 保存子表 /////////////////
|
||||
Order_Sub.DisableControls;
|
||||
with Order_Sub do
|
||||
begin
|
||||
First;
|
||||
while not Eof do
|
||||
begin
|
||||
if Trim(Order_Sub.fieldbyname('DRSID').AsString) = '' then
|
||||
begin
|
||||
if GetLSNo(ADOCmd, MaxSid, 'TDS', 'Tat_Cloth_DR_Sub', 4, 1) = False then
|
||||
raise Exception.Create('取子流水号失败！');
|
||||
end
|
||||
else
|
||||
begin
|
||||
MaxSid := Trim(Order_Sub.fieldbyname('DRSID').AsString);
|
||||
end;
|
||||
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from Tat_Cloth_DR_Sub ');
|
||||
sql.Add(' where DRMID=''' + Trim(FDRMID) + '''');
|
||||
sql.Add(' and DRSID=''' + Trim(MaxSid) + '''');
|
||||
Open;
|
||||
if ADOCmd.IsEmpty then
|
||||
begin
|
||||
Append;
|
||||
end
|
||||
else
|
||||
begin
|
||||
Edit;
|
||||
end;
|
||||
FieldByName('Volume').Value := Order_Sub.fieldbyname('Volume').Value;
|
||||
FieldByName('Applicant').Value := trim(DName);
|
||||
FieldByName('ApplicationReaon').Value := Order_Sub.fieldbyname('ApplicationReaon').Value;
|
||||
Post;
|
||||
end;
|
||||
Next;
|
||||
end;
|
||||
end;
|
||||
Order_Sub.EnableControls;
|
||||
///////////////// 保存子表 /////////////////
|
||||
FDRMID := Trim(FDRMID);
|
||||
ADOCmd.Connection.CommitTrans;
|
||||
Result := True;
|
||||
except
|
||||
ADOCmd.Connection.RollbackTrans;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
Result := False;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrmTatDRtInPut.SaveData(): Boolean;
|
||||
var
|
||||
MaxMid, MaxSid: string;
|
||||
|
|
@ -415,6 +510,7 @@ end;
|
|||
procedure TfrmTatDRtInPut.ToolButton3Click(Sender: TObject);
|
||||
var
|
||||
FConMainId, FMPRTCode: string;
|
||||
LocateValues: variant;
|
||||
begin
|
||||
// try
|
||||
// frmTatPlanSel := TfrmTatPlanSel.Create(Application);
|
||||
|
|
@ -462,24 +558,34 @@ begin
|
|||
begin
|
||||
while cds_sub.locate('SSel', true, []) do
|
||||
begin
|
||||
// if not self.Order_Sub.locate('C_Code', trim(frmTatClothInfoSel.CDS_1.Fieldbyname('C_Code').AsString), []) then
|
||||
// begin
|
||||
with Self.Order_Sub do
|
||||
LocateValues := VarArrayOf([trim(frmTatClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString), trim(frmTatClothInfoSel.cds_sub.Fieldbyname('C_MXMF').AsString), trim(frmTatClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString)]);
|
||||
|
||||
if self.Order_Sub.locate('C_name;C_width;C_GramWeight', LocateValues, []) then
|
||||
begin
|
||||
Append;
|
||||
FieldByName('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').Value;
|
||||
FieldByName('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').Value;
|
||||
// 三个字段都匹配，执行编辑 - 这里已经定位到相同记录的那一条数据
|
||||
|
||||
end
|
||||
else
|
||||
begin
|
||||
// 三个字段不完全匹配，添加新记录
|
||||
with Self.Order_Sub do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').Value;
|
||||
FieldByName('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').Value;
|
||||
// FieldByName('C_Spec').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Spec').Value;
|
||||
FieldByName('C_Width').Value := frmTatClothInfoSel.cds_sub.fieldbyname('C_MXMF').Value;
|
||||
FieldByName('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').Value;
|
||||
FieldByName('C_Color').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Color').Value;
|
||||
FieldByName('C_Width').Value := frmTatClothInfoSel.cds_sub.fieldbyname('C_MXMF').Value;
|
||||
FieldByName('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').Value;
|
||||
FieldByName('C_Color').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Color').Value;
|
||||
// FieldByName('C_ColorNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ColorNo').Value;
|
||||
// FieldByName('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').Value;
|
||||
end;
|
||||
end;
|
||||
// end;
|
||||
|
||||
cds_sub.Edit;
|
||||
cds_sub.fieldbyname('SSel').value := false;
|
||||
end;
|
||||
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
|
|
@ -537,6 +643,8 @@ begin
|
|||
end;
|
||||
|
||||
procedure TfrmTatDRtInPut.ToolButton6Click(Sender: TObject);
|
||||
var
|
||||
LocateValues: variant;
|
||||
begin
|
||||
try
|
||||
frmTatClothStkHZListSEL := tfrmTatClothStkHZListSEL.Create(Application);
|
||||
|
|
@ -546,22 +654,53 @@ begin
|
|||
begin
|
||||
while CDS_1.locate('SSel', true, []) do
|
||||
begin
|
||||
if not self.Order_Sub.locate('C_name', trim(frmTatClothStkHZListSEL.CDS_1.Fieldbyname('C_Name').AsString), []) then
|
||||
// if not self.Order_Sub.locate('C_name', trim(frmTatClothStkHZListSEL.CDS_1.Fieldbyname('C_Name').AsString), []) then
|
||||
// begin
|
||||
// with Self.Order_Sub do
|
||||
// begin
|
||||
// Append;
|
||||
// FieldByName('C_code').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_code').Value;
|
||||
// FieldByName('C_Name').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_Name').Value;
|
||||
// FieldByName('C_width').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_width').Value;
|
||||
//
|
||||
// FieldByName('C_GramWeight').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_GramWeight').Value;
|
||||
// FieldByName('C_color').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_color').Value;
|
||||
// FieldByName('Piece').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('js').Value;
|
||||
// FieldByName('Qty').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('stkmeter').Value;
|
||||
//
|
||||
// end;
|
||||
// end;
|
||||
|
||||
LocateValues := VarArrayOf([trim(frmTatClothStkHZListSEL.CDS_1.Fieldbyname('C_Name').AsString), trim(frmTatClothStkHZListSEL.CDS_1.Fieldbyname('C_width').AsString), trim(frmTatClothStkHZListSEL.CDS_1.Fieldbyname('C_GramWeight').AsString)]);
|
||||
|
||||
if self.Order_Sub.locate('C_name;C_width;C_GramWeight', LocateValues, []) then
|
||||
begin
|
||||
// 三个字段都匹配，执行编辑 - 这里已经定位到相同记录的那一条数据
|
||||
with Self.Order_Sub do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('Piece').AsFloat := FieldByName('Piece').AsFloat + frmTatClothStkHZListSEL.CDS_1.fieldbyname('js').AsFloat;
|
||||
FieldByName('Qty').AsFloat := FieldByName('Qty').AsFloat + frmTatClothStkHZListSEL.CDS_1.fieldbyname('stkmeter').AsFloat;
|
||||
Post; // 建议加上Post保存编辑
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
// 三个字段不完全匹配，添加新记录
|
||||
with Self.Order_Sub do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('C_code').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_code').Value;
|
||||
FieldByName('C_Name').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_Name').Value;
|
||||
FieldByName('C_width').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_width').Value;
|
||||
|
||||
FieldByName('C_GramWeight').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_GramWeight').Value;
|
||||
FieldByName('C_color').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('C_color').Value;
|
||||
FieldByName('Piece').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('js').Value;
|
||||
FieldByName('Qty').Value := frmTatClothStkHZListSEL.CDS_1.fieldbyname('stkmeter').Value;
|
||||
|
||||
Post; // 建议加上Post保存添加
|
||||
end;
|
||||
end;
|
||||
|
||||
CDS_1.Edit;
|
||||
CDS_1.fieldbyname('SSel').value := false;
|
||||
end;
|
||||
|
|
@ -572,6 +711,23 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatDRtInPut.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
begin
|
||||
if (Order_Sub.FieldByName('DlyQty').AsString = '') and (Order_Sub.FieldByName('Volume').AsString = '') then
|
||||
begin
|
||||
Tv1Piece.Options.Editing := True;
|
||||
Tv1Qty.Options.Editing := True;
|
||||
Tv1PINGFANG.Options.Editing := True;
|
||||
end
|
||||
else
|
||||
begin
|
||||
Tv1Piece.Options.Editing := False;
|
||||
Tv1Qty.Options.Editing := False;
|
||||
Tv1PINGFANG.Options.Editing := False;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatDRtInPut.ToCoNameBtnUpClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue
Block a user