Group_02/D10myYicheng
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

111

Browse Source
This commit is contained in:
LZC 2025-05-27 14:08:09 +08:00
commit 3d3f2fd0cd
1373 changed files with 835325 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
.gitignore vendored Normal file
View File

@ -0,0 +1,16 @@
**/layout
**/report
**/实施文件
**/image
**/doc
**/wav
**/__history
**/__recovery
*.dll
*.exe
*.ddp
*.dcu
*.~pas
*.~dfm
*.~ddp
*.~dpr

BIN
发货申请(ShipmentRequest.dll)/D Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 7.2 KiB

3
发货申请(ShipmentRequest.dll)/Desktop.ini Normal file
View File

@ -0,0 +1,3 @@
[.ShellClassInfo]
IconFile=C:\Program Files (x86)\360\360WangPan\new_desktop_win7.ico
IconIndex=0

4
发货申请(ShipmentRequest.dll)/File.INI Normal file
View File

@ -0,0 +1,4 @@
[生产车间配置]
卷条码机台标志=99
成品DLL文件=CYZZ.dll
成品DLL调用号=11

7
发货申请(ShipmentRequest.dll)/FileHelp.ini Normal file
View File

@ -0,0 +1,7 @@
[FILEPATH]
FileClass=YP,AA,BB,HT
YP=D:\YP
AA=D:\AA
BB=D:\BB
HT=D:\HT
OTHER=D:\OTHER

7
发货申请(ShipmentRequest.dll)/JCYData.INI Normal file
View File

@ -0,0 +1,7 @@
[系统配置]
串口号=com1
波特率=9600
校验位=0
数据位=8
停止位=0
频率=100

7
发货申请(ShipmentRequest.dll)/JZCRS323C.INI Normal file
View File

@ -0,0 +1,7 @@
[系统配置]
串口号=com2
波特率=1200
校验位=0
数据位=8
停止位=0
频率=100

0
发货申请(ShipmentRequest.dll)/JZCRS323CList.txt Normal file
View File

20
发货申请(ShipmentRequest.dll)/ProjectGroup1.bpg Normal file
View File

@ -0,0 +1,20 @@
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = testDll.exe
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
testDll.exe: testDll.dpr
$(DCC)

48
发货申请(ShipmentRequest.dll)/ProjectGroup1.groupproj Normal file
View File

@ -0,0 +1,48 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{B578FF89-8DA9-4BA3-830E-39CE95337C0F}</ProjectGuid>
</PropertyGroup>
<ItemGroup>
<Projects Include="ShipmentRequest.dproj">
<Dependencies/>
</Projects>
<Projects Include="testDll.dproj">
<Dependencies/>
</Projects>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Default.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Default.Personality/>
</BorlandProject>
</ProjectExtensions>
<Target Name="ShipmentRequest">
<MSBuild Projects="ShipmentRequest.dproj"/>
</Target>
<Target Name="ShipmentRequest:Clean">
<MSBuild Projects="ShipmentRequest.dproj" Targets="Clean"/>
</Target>
<Target Name="ShipmentRequest:Make">
<MSBuild Projects="ShipmentRequest.dproj" Targets="Make"/>
</Target>
<Target Name="testDll">
<MSBuild Projects="testDll.dproj"/>
</Target>
<Target Name="testDll:Clean">
<MSBuild Projects="testDll.dproj" Targets="Clean"/>
</Target>
<Target Name="testDll:Make">
<MSBuild Projects="testDll.dproj" Targets="Make"/>
</Target>
<Target Name="Build">
<CallTarget Targets="ShipmentRequest;testDll"/>
</Target>
<Target Name="Clean">
<CallTarget Targets="ShipmentRequest:Clean;testDll:Clean"/>
</Target>
<Target Name="Make">
<CallTarget Targets="ShipmentRequest:Make;testDll:Make"/>
</Target>
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
</Project>

7
发货申请(ShipmentRequest.dll)/ProjectGroup1.groupproj.local Normal file
View File

@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions/>
<Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\一橙\发货申请(ShipmentRequest.dll)\ShipmentRequest.dproj"/>
</Default.Personality>
</BorlandProject>

23
发货申请(ShipmentRequest.dll)/ProjectGroup1.~bpg Normal file
View File

@ -0,0 +1,23 @@
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = testDll.exe ProductPrice.dll
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
testDll.exe: testDll.dpr
$(DCC)
ProductPrice.dll: ProductPrice.dpr
$(DCC)

3
发货申请(ShipmentRequest.dll)/SYSTEMSET.ini Normal file
View File

@ -0,0 +1,3 @@
[SERVER]
服务器地址=172.168.1.246
软件名称=欣戈纺织

42
发货申请(ShipmentRequest.dll)/ShipmentRequest.cfg Normal file
View File

@ -0,0 +1,42 @@
-$A8
-$B-
-$C+
-$D+
-$E-
-$F-
-$G+
-$H+
-$I+
-$J-
-$K-
-$L+
-$M-
-$N+
-$O+
-$P+
-$Q-
-$R-
-$S-
-$T-
-$U-
-$V+
-$W-
-$X+
-$YD
-$Z1
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
-U"D:\말繫ERP"
-O"D:\말繫ERP"
-I"D:\말繫ERP"
-R"D:\말繫ERP"
-w-UNSAFE_TYPE
-w-UNSAFE_CODE
-w-UNSAFE_CAST

138
发货申请(ShipmentRequest.dll)/ShipmentRequest.dof Normal file
View File

@ -0,0 +1,138 @@
[FileVersion]
Version=7.0
[Compiler]
A=8
B=0
C=1
D=1
E=0
F=0
G=1
H=1
I=1
J=0
K=0
L=1
M=0
N=1
O=1
P=1
Q=0
R=0
S=0
T=0
U=0
V=1
W=0
X=1
Y=1
Z=1
ShowHints=1
ShowWarnings=1
UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
NamespacePrefix=
SymbolDeprecated=1
SymbolLibrary=1
SymbolPlatform=1
UnitLibrary=1
UnitPlatform=1
UnitDeprecated=1
HResultCompat=1
HidingMember=1
HiddenVirtual=1
Garbage=1
BoundsError=1
ZeroNilCompat=1
StringConstTruncated=1
ForLoopVarVarPar=1
TypedConstVarPar=1
AsgToTypedConst=1
CaseLabelRange=1
ForVariable=1
ConstructingAbstract=1
ComparisonFalse=1
ComparisonTrue=1
ComparingSignedUnsigned=1
CombiningSignedUnsigned=1
UnsupportedConstruct=1
FileOpen=1
FileOpenUnitSrc=1
BadGlobalSymbol=1
DuplicateConstructorDestructor=1
InvalidDirective=1
PackageNoLink=1
PackageThreadVar=1
ImplicitImport=1
HPPEMITIgnored=1
NoRetVal=1
UseBeforeDef=1
ForLoopVarUndef=1
UnitNameMismatch=1
NoCFGFileFound=1
MessageDirective=1
ImplicitVariants=1
UnicodeToLocale=1
LocaleToUnicode=1
ImagebaseMultiple=1
SuspiciousTypecast=1
PrivatePropAccessor=1
UnsafeType=0
UnsafeCode=0
UnsafeCast=0
[Linker]
MapFile=0
OutputObjs=0
ConsoleApp=1
DebugInfo=0
RemoteSymbols=0
MinStackSize=16384
MaxStackSize=1048576
ImageBase=4194304
ExeDescription=
[Directories]
OutputDir=
UnitOutputDir=
PackageDLLOutputDir=
PackageDCPOutputDir=
SearchPath=D:\富通ERP
Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL
Conditionals=
DebugSourceDirs=
UsePackages=0
[Parameters]
RunParams=
HostApplication=D:\凌志超开发代码\项目代码\振永\发货申请(ShipmentRequest.dll)\testDll.exe
Launcher=
UseLauncher=0
DebugCWD=
[Language]
ActiveLang=
ProjectLang=
RootDir=
[Version Info]
IncludeVerInfo=0
AutoIncBuild=0
MajorVer=1
MinorVer=0
Release=0
Build=0
Debug=0
PreRelease=0
Special=0
Private=0
DLL=0
Locale=2052
CodePage=936
[Version Info Keys]
CompanyName=
FileDescription=
FileVersion=1.0.0.0
InternalName=
LegalCopyright=
LegalTrademarks=
OriginalFilename=
ProductName=
ProductVersion=1.0.0.0
Comments=
[Excluded Packages]
c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package

61
发货申请(ShipmentRequest.dll)/ShipmentRequest.dpr Normal file
View File

@ -0,0 +1,61 @@
library ShipmentRequest;
uses
SysUtils,
classes,
forms,
WinTypes,
WinProcs,
midaslib,
U_GetDllForm in 'U_GetDllForm.pas',
U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
U_DataLink in 'U_DataLink.pas' {DataLink_ShipmentRequest: TDataModule},
U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
U_iniParam in 'U_iniParam.pas',
U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList},
U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas',
U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
U_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas',
U_FHSQList in 'U_FHSQList.pas' {frmFHSQList},
U_FHSQInPut in 'U_FHSQInPut.pas' {frmFHSQInPut},
U_SXKCCK in 'U_SXKCCK.pas' {frmSXKCCK},
U_FHSQListSel in 'U_FHSQListSel.pas' {frmFHSQListSel},
U_SQSMCK in 'U_SQSMCK.pas' {frmSQSMCK},
U_CKProductBCPKCListSel in 'U_CKProductBCPKCListSel.pas' {frmCKProductBCPKCListSel},
U_PBOutHZList in 'U_PBOutHZList.pas' {frmPBOutHZList},
U_ZdyAttachment in 'U_ZdyAttachment.pas' {frmZdyAttachment},
U_ProductOrderListSel in 'U_ProductOrderListSel.pas' {frmProductOrderListSel},
U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp},
U_SysLogHelp in '..\..\..\public10\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp},
U_ProductOrderListSel2 in 'U_ProductOrderListSel2.pas' {frmProductOrderListSel2},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
{$R *.res}
procedure DllEnterPoint(dwReason: DWORD); far; stdcall;
begin
DLLProc := @DLLEnterPoint;
DllEnterPoint(DLL_PROCESS_ATTACH);
end;
procedure DLLUnloadProc(Reason: Integer); register;
begin
// if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then
// Application:=NewDllApp;
end;
exports
GetDllForm;
begin
try
NewDllApp := Application;
DLLProc := @DLLUnloadProc;
except
end;
end.

948
发货申请(ShipmentRequest.dll)/ShipmentRequest.dproj Normal file
View File

@ -0,0 +1,948 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{0FC891AD-662F-4D19-9843-3225FD79476D}</ProjectGuid>
<MainSource>ShipmentRequest.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
</PropertyGroup>
<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>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
<Base_Win64>true</Base_Win64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
<Cfg_1>true</Cfg_1>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<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>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_E>false</DCC_E>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
<DCC_N>true</DCC_N>
<DCC_S>false</DCC_S>
<DCC_ImageBase>00400000</DCC_ImageBase>
<DCC_DebugInformation>1</DCC_DebugInformation>
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
<DCC_UnitSearchPath>D:\富通ERP;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
<DCC_UsePackage>vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL;$(DCC_UsePackage)</DCC_UsePackage>
<GenDll>true</GenDll>
<SanitizedProjectName>ShipmentRequest</SanitizedProjectName>
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;Data.Win;$(DCC_Namespace)</DCC_Namespace>
<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>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<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>
<VerInfo_Locale>1033</VerInfo_Locale>
<Icon_MainIcon>ShipmentRequest_Icon.ico</Icon_MainIcon>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win64)'!=''">
<Icon_MainIcon>ShipmentRequest_Icon.ico</Icon_MainIcon>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_DebugInformation>0</DCC_DebugInformation>
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<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)'!=''">
<Debugger_HostApplication>D:\Dp10Repo\项目代码\一橙\发货申请(ShipmentRequest.dll)\testDll.exe</Debugger_HostApplication>
<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>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="U_GetDllForm.pas"/>
<DCCReference Include="U_ModuleNote.pas">
<Form>frmModuleNote</Form>
</DCCReference>
<DCCReference Include="U_DataLink.pas">
<Form>DataLink_ShipmentRequest</Form>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<DCCReference Include="U_ZDYHelpSel.pas">
<Form>frmZDYHelpSel</Form>
</DCCReference>
<DCCReference Include="U_iniParam.pas"/>
<DCCReference Include="U_ZDYHelp.pas">
<Form>frmZDYHelp</Form>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseInput.pas">
<Form>frmBaseInput</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseList.pas">
<Form>frmBaseList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
<DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<DCCReference Include="U_FHSQList.pas">
<Form>frmFHSQList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_FHSQInPut.pas">
<Form>frmFHSQInPut</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_SXKCCK.pas">
<Form>frmSXKCCK</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_FHSQListSel.pas">
<Form>frmFHSQListSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_SQSMCK.pas">
<Form>frmSQSMCK</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_CKProductBCPKCListSel.pas">
<Form>frmCKProductBCPKCListSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_PBOutHZList.pas">
<Form>frmPBOutHZList</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_ZdyAttachment.pas">
<Form>frmZdyAttachment</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_ProductOrderListSel.pas">
<Form>frmProductOrderListSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseHelp.pas">
<Form>frmBaseHelp</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\ThreeFun\Form\U_SysLogHelp.pas">
<Form>frmSysLogHelp</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_ProductOrderListSel2.pas">
<Form>frmProductOrderListSel2</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
<Form>BaseDataLink</Form>
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
<BuildConfiguration Include="Base">
<Key>Base</Key>
</BuildConfiguration>
<BuildConfiguration Include="Release">
<Key>Cfg_1</Key>
<CfgParent>Base</CfgParent>
</BuildConfiguration>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">ShipmentRequest.dpr</Source>
</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>
<Deployment Version="3">
<DeployFile LocalName="ShipmentRequest.dll" Configuration="Debug" Class="ProjectOutput">
<Platform Name="Win32">
<RemoteName>ShipmentRequest.dll</RemoteName>
<Overwrite>true</Overwrite>
</Platform>
</DeployFile>
<DeployClass Name="AdditionalDebugSymbols">
<Platform Name="OSX32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidClassesDexFile">
<Platform Name="Android">
<RemoteDir>classes</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>classes</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidFileProvider">
<Platform Name="Android">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\xml</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidGDBServer">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiFile">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeArmeabiv7aFile">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidLibnativeMipsFile">
<Platform Name="Android">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\mips</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\arm64-v8a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidServiceOutput_Android32">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashImageDef">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStyles">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="AndroidSplashStylesV21">
<Platform Name="Android">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values-v21</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Colors">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_DefaultAppIcon">
<Platform Name="Android">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon144">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon192">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-ldpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_LauncherIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon24">
<Platform Name="Android">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-mdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon36">
<Platform Name="Android">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-hdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon48">
<Platform Name="Android">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon72">
<Platform Name="Android">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_NotificationIcon96">
<Platform Name="Android">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xxxhdpi</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage426">
<Platform Name="Android">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-small</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage470">
<Platform Name="Android">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-normal</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage640">
<Platform Name="Android">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-large</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_SplashImage960">
<Platform Name="Android">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\drawable-xlarge</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="Android_Strings">
<Platform Name="Android">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>res\values</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DebugSymbols">
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyFramework">
<Platform Name="OSX32">
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="OSX64">
<Operation>1</Operation>
<Extensions>.framework</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="DependencyModule">
<Platform Name="OSX32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.dll;.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="DependencyPackage">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX32">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="OSX64">
<Operation>1</Operation>
<Extensions>.dylib</Extensions>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
<Extensions>.bpl</Extensions>
</Platform>
</DeployClass>
<DeployClass Name="File">
<Platform Name="Android">
<Operation>0</Operation>
</Platform>
<Platform Name="Android64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>0</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX32">
<Operation>0</Operation>
</Platform>
<Platform Name="OSX64">
<Operation>0</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iOS_AppStore1024">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_AppIcon152">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_AppIcon167">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Launch2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_LaunchDark2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Notification40">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_Setting58">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPad_SpotLight80">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_AppIcon120">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_AppIcon180">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Launch3x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_LaunchDark2x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_LaunchDark3x">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Notification40">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Notification60">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Setting58">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Setting87">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Spotlight120">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="iPhone_Spotlight80">
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectAndroidManifest">
<Platform Name="Android">
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSDeviceDebug">
<Platform Name="iOSDevice32">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectiOSEntitlements"/>
<DeployClass Name="ProjectiOSInfoPList"/>
<DeployClass Name="ProjectiOSLaunchScreen"/>
<DeployClass Name="ProjectiOSResource">
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOSXDebug"/>
<DeployClass Name="ProjectOSXEntitlements"/>
<DeployClass Name="ProjectOSXInfoPList"/>
<DeployClass Name="ProjectOSXResource">
<Platform Name="OSX32">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<RemoteDir>Contents\Resources</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Required="true" Name="ProjectOutput">
<Platform Name="Android">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Android64">
<RemoteDir>library\lib\arm64-v8a</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice32">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSDevice64">
<Operation>1</Operation>
</Platform>
<Platform Name="iOSSimulator">
<Operation>1</Operation>
</Platform>
<Platform Name="Linux64">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX32">
<Operation>1</Operation>
</Platform>
<Platform Name="OSX64">
<Operation>1</Operation>
</Platform>
<Platform Name="Win32">
<Operation>0</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectOutput_Android32">
<Platform Name="Android64">
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="ProjectUWPManifest">
<Platform Name="Win32">
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo150">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<DeployClass Name="UWP_DelphiLogo44">
<Platform Name="Win32">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
<Platform Name="Win64">
<RemoteDir>Assets</RemoteDir>
<Operation>1</Operation>
</Platform>
</DeployClass>
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="OSX64" Name="$(PROJECTNAME)"/>
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
</Deployment>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
</Project>

90
发货申请(ShipmentRequest.dll)/ShipmentRequest.dproj.local Normal file
View File

@ -0,0 +1,90 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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="D:\Dp10Repo"/>
<File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/>
<File Path="..\..\..\public10\design\U_BaseInput.pas"/>
<File Path="..\..\..\public10\design\U_BaseInput.dfm"/>
<File Path="..\..\..\public10\design\U_BaseList.pas"/>
<File Path="..\..\..\public10\design\U_BaseList.dfm"/>
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
<File Path="..\..\..\public10\design\U_BaseHelp.dfm"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
<File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Form"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_SysLogHelp.pas"/>
<File Path="..\..\..\public10\ThreeFun\Form\U_SysLogHelp.dfm"/>
<File Path="..\..\..\public10\ThreeFun\Fun"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
<File Path="U_CKProductBCPKCListSel.pas"/>
<File Path="U_CKProductBCPKCListSel.dfm"/>
<File Path="U_DataLink.pas"/>
<File Path="U_DataLink.dfm"/>
<File Path="U_FHSQInPut.pas"/>
<File Path="U_FHSQInPut.dfm"/>
<File Path="U_FHSQList.pas"/>
<File Path="U_FHSQList.dfm"/>
<File Path="U_FHSQListSel.pas"/>
<File Path="U_FHSQListSel.dfm"/>
<File Path="U_GetDllForm.pas"/>
<File Path="U_iniParam.pas"/>
<File Path="U_ModuleNote.pas"/>
<File Path="U_ModuleNote.dfm"/>
<File Path="U_PBOutHZList.pas"/>
<File Path="U_PBOutHZList.dfm"/>
<File Path="U_ProductOrderListSel.pas"/>
<File Path="U_ProductOrderListSel.dfm"/>
<File Path="U_SQSMCK.pas"/>
<File Path="U_SQSMCK.dfm"/>
<File Path="U_SXKCCK.pas"/>
<File Path="U_SXKCCK.dfm"/>
<File Path="U_ZdyAttachment.pas"/>
<File Path="U_ZdyAttachment.dfm"/>
<File Path="U_ZDYHelp.pas"/>
<File Path="U_ZDYHelp.dfm"/>
<File Path="U_ZDYHelpSel.pas"/>
<File Path="U_ZDYHelpSel.dfm"/>
<File Path="U_ProductOrderListSel2.pas"/>
<File Path="U_ProductOrderListSel2.dfm"/>
</ProjectSortOrder>
<Transactions>
<Transaction>1899-12-30 00:00:00.000.186,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.884,=D:\Dp10Repo\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.246,=D:\Dp10Repo\项目代码\一橙\发货申请(ShipmentRequest.dll)\U_ProductOrderListSel2.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.213,D:\Dp10Repo\public10\design\U_WindowFormSign.pas=</Transaction>
<Transaction>2024-08-08 15:02:18.039,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
</Transactions>
</BorlandProject>

BIN
发货申请(ShipmentRequest.dll)/ShipmentRequest.identcache Normal file
View File

Binary file not shown.

BIN
发货申请(ShipmentRequest.dll)/ShipmentRequest.res Normal file
View File

Binary file not shown.

BIN
发货申请(ShipmentRequest.dll)/ShipmentRequest_Icon.ico Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 766 B

BIN
发货申请(ShipmentRequest.dll)/Statistics.res Normal file
View File

Binary file not shown.

951
发货申请(ShipmentRequest.dll)/U_CKProductBCPKCListSel.dfm Normal file
View File

@ -0,0 +1,951 @@
object frmCKProductBCPKCListSel: TfrmCKProductBCPKCListSel
Left = 483
Top = 207
Caption = #25104#21697#24211#23384#21015#34920
ClientHeight = 495
ClientWidth = 1172
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = True
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1172
Height = 33
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_ShipmentRequest.ImageList_new32
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton1: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #30830#35748
ImageIndex = 12
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object MovePanel2: TMovePanel
Left = 504
Top = 264
Width = 289
Height = 49
BevelInner = bvLowered
Caption = #27491#22312#25805#20316#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
Visible = False
end
object Panel6: TPanel
Left = 0
Top = 132
Width = 1172
Height = 28
Align = alTop
AutoSize = True
BorderStyle = bsSingle
TabOrder = 1
DesignSize = (
1168
24)
object Label31: TLabel
Left = 25
Top = 5
Width = 84
Height = 13
Alignment = taCenter
Anchors = [akLeft, akTop, akBottom]
Caption = #27599#39029#35760#24405#26465#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Layout = tlCenter
end
object LBCPAP: TLabel
Left = 507
Top = 5
Width = 85
Height = 12
Alignment = taCenter
Anchors = [akLeft, akTop, akBottom]
AutoSize = False
Caption = #24403#21069#39029'/'#24635#39029#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Layout = tlCenter
end
object BTLP: TButton
Left = 425
Top = 1
Width = 78
Height = 22
Caption = #19978#19968#39029
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = BTLPClick
end
object BTNP: TButton
Left = 597
Top = 1
Width = 78
Height = 22
Caption = #19979#19968#39029
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = BTNPClick
end
object TCBNOR: TComboBox
Tag = 2
Left = 117
Top = 2
Width = 78
Height = 20
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemIndex = 0
ParentFont = False
TabOrder = 2
Text = '500'
OnChange = TCBNORChange
Items.Strings = (
'500'
'1000'
'5000'
'10000'
'30000')
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 160
Width = 1172
Height = 335
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
PopupMenu = PopupMenu1
TabOrder = 3
object Tv1: TcxGridDBTableView
PopupMenu = PopupMenu1
OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
Column = v1Column5
end
item
Kind = skSum
Column = v2Column5
end
item
Kind = skSum
Column = v2Column6
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column16
end
item
Kind = skSum
Column = v1Column12
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.MultiSelect = True
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
Styles.Header = DataLink_ShipmentRequest.Default
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
object v1Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 40
end
object v1Column1: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'orderNo'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 74
end
object v2Column1: TcxGridDBColumn
Caption = #20013#25991#21517#31216
DataBinding.FieldName = 'P_CodeName'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 92
end
object v1Column10: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'ganghao'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 55
end
object v2Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 77
end
object v1Column8: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'P_MF'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column9: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'P_KZ'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 59
end
object v1Column6: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'JYID'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 92
end
object v1Column13: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'RKOrdID'
PropertiesClassName = 'TcxTextEditProperties'
Width = 57
end
object v1Column21: TcxGridDBColumn
Caption = #27969#31243#21345
DataBinding.FieldName = 'APID'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column5: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'JYXH'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1Column3: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'JYType'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 63
end
object v1Column2: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'CRTime'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 107
end
object v1Column16: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'JYNW'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 51
end
object v2Column5: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'JYGW'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 61
end
object v2Column6: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'JYLEN'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 85
end
object v1Column19: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'conNo'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column22: TcxGridDBColumn
Caption = #25805#20316#21592
DataBinding.FieldName = 'Filler'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1Column11: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'KuanHao'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 58
end
object v1Column12: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'JYYLen'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 58
end
object v1Column14: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'P_HX'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 57
end
object v1Column15: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'P_Code'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 64
end
object Tv1Column2: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'BaoNO'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column3: TcxGridDBColumn
Caption = #21253#26465#30721
DataBinding.FieldName = 'BaoID'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 66
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel1: TPanel
Left = 0
Top = 33
Width = 1172
Height = 99
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = 16242829
ParentBackground = False
TabOrder = 4
ExplicitTop = 31
object Label14: TLabel
Left = 63
Top = 36
Width = 12
Height = 13
Caption = #33267
Visible = False
end
object Label3: TLabel
Left = 338
Top = 12
Width = 24
Height = 13
Hint = '0'
Caption = #21517#31216
end
object Label4: TLabel
Left = 338
Top = 36
Width = 24
Height = 13
Hint = '0'
Caption = #39068#33394
end
object Label5: TLabel
Left = 179
Top = 13
Width = 42
Height = 13
Hint = '0'
Caption = #35746' '#21333' '#21495
end
object Label7: TLabel
Left = 480
Top = 60
Width = 30
Height = 13
Hint = '1'
Caption = #31867' '#22411
end
object Label10: TLabel
Left = 480
Top = 36
Width = 30
Height = 13
Hint = '1'
Caption = #32568' '#21495
end
object Label12: TLabel
Left = 637
Top = 12
Width = 48
Height = 13
Hint = '1'
Caption = #20837#24211#21333#21495
end
object Label1: TLabel
Left = 179
Top = 36
Width = 42
Height = 13
Hint = '0'
Caption = #21512' '#21516' '#21495
end
object Label2: TLabel
Left = 480
Top = 12
Width = 36
Height = 13
Hint = '0'
Caption = #32568#26465#30721
end
object Label6: TLabel
Left = 780
Top = 12
Width = 36
Height = 13
Hint = '1'
Caption = #24211' '#20301
end
object Label11: TLabel
Left = 338
Top = 60
Width = 24
Height = 13
Hint = '0'
Caption = #33457#22411
end
object Label13: TLabel
Left = 173
Top = 60
Width = 48
Height = 13
Hint = '0'
Caption = #20135#21697#32534#21495
end
object Label19: TLabel
Left = 637
Top = 36
Width = 42
Height = 13
Hint = '1'
Caption = #21253' '#26465' '#30721
end
object Label8: TLabel
Left = 637
Top = 60
Width = 42
Height = 13
Hint = '1'
Caption = #21367' '#26465' '#30721
end
object Label9: TLabel
Left = 777
Top = 36
Width = 39
Height = 13
Hint = '1'
Caption = ' '#21253' '#21495
end
object BegDate: TDateTimePicker
Left = 74
Top = 8
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 74
Top = 32
Width = 87
Height = 20
Date = 40768.000000000000000000
Time = 0.458268587972270300
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 1
end
object ISCRTime: TCheckBox
Left = 7
Top = 10
Width = 68
Height = 17
Caption = #26597#35810#26102#38388
TabOrder = 2
end
object BaoID: TEdit
Tag = 2
Left = 685
Top = 33
Width = 90
Height = 21
TabOrder = 3
OnKeyPress = MPRTCodeNameKeyPress
end
object P_CodeName: TEdit
Tag = 2
Left = 366
Top = 8
Width = 90
Height = 21
Hint = '0'
TabOrder = 4
end
object orderNo: TEdit
Tag = 2
Left = 221
Top = 8
Width = 90
Height = 21
Hint = '0'
TabOrder = 5
end
object JYType: TComboBox
Tag = 2
Left = 524
Top = 56
Width = 90
Height = 21
Hint = '1'
Style = csDropDownList
ItemIndex = 0
TabOrder = 6
Text = #27491#21697
Items.Strings = (
#27491#21697
#27425#21697
#22810#25340
''
'')
end
object RKOrdID: TEdit
Tag = 1
Left = 686
Top = 8
Width = 88
Height = 21
Hint = '1'
TabOrder = 7
end
object conNo: TEdit
Tag = 2
Left = 221
Top = 32
Width = 90
Height = 21
Hint = '0'
TabOrder = 8
end
object APID: TEdit
Tag = 2
Left = 524
Top = 8
Width = 90
Height = 21
Hint = '0'
TabOrder = 9
end
object RKPlace: TEdit
Tag = 2
Left = 820
Top = 8
Width = 88
Height = 21
Hint = '1'
TabOrder = 10
end
object P_Color: TEdit
Tag = 2
Left = 366
Top = 32
Width = 90
Height = 21
Hint = '0'
TabOrder = 11
end
object ganghao: TEdit
Tag = 2
Left = 524
Top = 32
Width = 90
Height = 21
Hint = '1'
TabOrder = 12
end
object P_HX: TEdit
Tag = 2
Left = 368
Top = 56
Width = 88
Height = 21
Hint = '0'
TabOrder = 13
end
object P_Code: TEdit
Tag = 2
Left = 221
Top = 56
Width = 88
Height = 21
Hint = '0'
TabOrder = 14
end
object JYID: TEdit
Tag = 2
Left = 686
Top = 56
Width = 88
Height = 21
Hint = '1'
TabOrder = 15
end
object baono: TEdit
Tag = 2
Left = 819
Top = 33
Width = 90
Height = 21
TabOrder = 16
OnKeyPress = MPRTCodeNameKeyPress
end
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 1200
Top = 40
end
object ADOQueryMain: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 404
Top = 236
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 924
Top = 204
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 832
Top = 240
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 832
Top = 288
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 532
Top = 324
end
object PopupMenu1: TPopupMenu
Left = 356
Top = 244
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
object ThreeColorBase: TcxStyleRepository
Left = 619
Top = 324
PixelsPerInch = 96
object SHuangSe: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = 4707838
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
TextColor = clBtnText
end
object SkyBlue: TcxStyle
AssignedValues = [svColor, svFont]
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
object Default: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object QHuangSe: TcxStyle
AssignedValues = [svColor, svFont]
Color = 8454143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
object Red: TcxStyle
AssignedValues = [svColor, svFont]
Color = clRed
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
object FontBlue: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clBlue
end
object TextSHuangSe: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clBlack
end
object FonePurple: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindow
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clBlack
end
object FoneClMaroon: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clMaroon
end
object FoneRed: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clRed
end
object RowColor: TcxStyle
AssignedValues = [svColor]
Color = 16311512
end
object handBlack: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxBlue: TcxStyle
AssignedValues = [svColor, svFont]
Color = 16711731
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
end
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = CDS_PRT
Left = 804
Top = 172
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 960
Top = 268
end
object RM2: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 756
Top = 200
ReportData = {}
end
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 492
Top = 324
end
object CDS_PRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 452
Top = 324
end
object RM3: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 472
Top = 152
ReportData = {}
end
object RMDBHZ: TRMDBDataSet
Visible = True
DataSet = CDS_HZ
Left = 600
Top = 224
end
object RMDBPRT: TRMDBDataSet
Visible = True
DataSet = CDS_PRT
Left = 384
Top = 324
end
end

308
发货申请(ShipmentRequest.dll)/U_CKProductBCPKCListSel.pas Normal file
View File

@ -0,0 +1,308 @@
unit U_CKProductBCPKCListSel;
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, MovePanel, cxCheckBox, Menus, cxCalendar, RM_Common, RM_Class,
RM_GridReport, RM_System, RM_Dataset, BtnEdit, Math, Clipbrd, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxTextEdit;
type
TfrmCKProductBCPKCListSel = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
CDS_Main: TClientDataSet;
MovePanel2: TMovePanel;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
RMDB_Main: TRMDBDataSet;
ADOQueryPrint: TADOQuery;
RM2: TRMGridReport;
CDS_HZ: TClientDataSet;
CDS_PRT: TClientDataSet;
RM3: TRMGridReport;
RMDBHZ: TRMDBDataSet;
RMDBPRT: TRMDBDataSet;
Panel6: TPanel;
Label31: TLabel;
LBCPAP: TLabel;
BTLP: TButton;
BTNP: TButton;
TCBNOR: TComboBox;
ToolButton1: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column4: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v1Column22: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Panel1: TPanel;
Label14: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label7: TLabel;
Label10: TLabel;
Label12: TLabel;
Label1: TLabel;
Label2: TLabel;
Label6: TLabel;
Label11: TLabel;
Label13: TLabel;
Label19: TLabel;
Label8: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
ISCRTime: TCheckBox;
BaoID: TEdit;
P_CodeName: TEdit;
orderNo: TEdit;
JYType: TComboBox;
RKOrdID: TEdit;
conNo: TEdit;
APID: TEdit;
RKPlace: TEdit;
P_Color: TEdit;
ganghao: TEdit;
P_HX: TEdit;
P_Code: TEdit;
JYID: TEdit;
Label9: TLabel;
baono: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure BTNPClick(Sender: TObject);
procedure BTLPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject);
procedure MPRTCodeNameKeyPress(Sender: TObject; var Key: Char);
procedure CPTypeKeyPress(Sender: TObject; var Key: Char);
procedure ToolButton1Click(Sender: TObject);
private
FLeft, FTop: Integer;
CurrentPage, RecordsNumber: Integer;
procedure InitGrid();
{ Private declarations }
public
issel: integer;
{ Public declarations }
end;
var
frmCKProductBCPKCListSel: TfrmCKProductBCPKCListSel;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmCKProductBCPKCListSel.FormDestroy(Sender: TObject);
begin
frmCKProductBCPKCListSel := nil;
end;
procedure TfrmCKProductBCPKCListSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caHide;
end;
procedure TfrmCKProductBCPKCListSel.FormCreate(Sender: TObject);
begin
BegDate.DateTime := SGetServerDateTime(ADOQueryTemp);
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp)
end;
procedure TfrmCKProductBCPKCListSel.InitGrid();
var
WSql: string;
begin
MovePanel2.Left := (self.Width - MovePanel2.Width) div 2;
MovePanel2.Visible := True;
MovePanel2.Refresh;
WSql := SGetFilters(Panel1, 1, 2);
if Trim(WSql) <> '' then
WSql := ' and ' + WSql;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select top ' + inttostr(RecordsNumber) + ' * ');
sql.Add(' ,DJBRCGangNo =(select X.RCGangNo from CK_SXPB_CR X where X.SPID=temp_row.APID)');
sql.Add(' from ');
sql.Add('(select rownumber=cast((row_number() over(order by AA.filltime desc)) as int)');
sql.Add(',COUNT(1) OVER() AS TotalCount');
sql.Add(',* from V_Cloth_CP_KC AA where 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_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_Main.FieldByName('TotalCount').AsInteger / RecordsNumber));
MovePanel2.Visible := false;
finally
ADOQueryMain.EnableControls;
MovePanel2.Visible := false;
end;
end;
procedure TfrmCKProductBCPKCListSel.TBRafreshClick(Sender: TObject);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmCKProductBCPKCListSel.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmCKProductBCPKCListSel.TBCloseClick(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption), Tv1, '³ÉÆ·²Ö¿â');
Close;
end;
procedure TfrmCKProductBCPKCListSel.FormShow(Sender: TObject);
begin
CurrentPage := 1;
RecordsNumber := 500;
ReadCxGrid(trim(self.Caption), Tv1, '³ÉÆ·²Ö¿â');
end;
procedure TfrmCKProductBCPKCListSel.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FLeft := X;
FTop := Y;
end;
procedure TfrmCKProductBCPKCListSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
Clipboard.SetTextBuf(PChar(Trim(CDS_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
end;
procedure TfrmCKProductBCPKCListSel.N1Click(Sender: TObject);
begin
selOKNoFiler(TV1, True);
end;
procedure TfrmCKProductBCPKCListSel.N2Click(Sender: TObject);
begin
selOKNoFiler(TV1, False);
end;
procedure TfrmCKProductBCPKCListSel.BTNPClick(Sender: TObject);
begin
if CurrentPage < CDS_Main.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid();
end;
procedure TfrmCKProductBCPKCListSel.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid();
end;
procedure TfrmCKProductBCPKCListSel.TCBNORChange(Sender: TObject);
begin
RecordsNumber := StrToInt(TCBNOR.Text);
CurrentPage := 1;
InitGrid();
end;
procedure TfrmCKProductBCPKCListSel.MPRTCodeNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
CurrentPage := 1;
InitGrid();
end;
end;
procedure TfrmCKProductBCPKCListSel.CPTypeKeyPress(Sender: TObject; var Key: Char);
begin
CurrentPage := 1;
InitGrid();
end;
procedure TfrmCKProductBCPKCListSel.ToolButton1Click(Sender: TObject);
begin
if CDS_Main.IsEmpty then
exit;
ModalResult := 1;
end;
end.

1082
发货申请(ShipmentRequest.dll)/U_CPKCCX.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

1055
发货申请(ShipmentRequest.dll)/U_CPKCCX.pas Normal file
View File

File diff suppressed because it is too large Load Diff

622
发货申请(ShipmentRequest.dll)/U_CPKCHZSel.dfm Normal file
View File

@ -0,0 +1,622 @@
object frmCPKCHZSel: TfrmCPKCHZSel
Left = 234
Top = 151
Width = 1491
Height = 511
Caption = #25104#21697#24211#23384#27719#24635#21015#34920
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1475
Height = 33
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
OnClick = TBFindClick
end
object ToolButton1: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #36873#25321
ImageIndex = 22
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 33
Width = 1475
Height = 56
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label3: TLabel
Left = 193
Top = 37
Width = 48
Height = 12
Caption = #20013#25991#21517#31216
end
object Label4: TLabel
Left = 498
Top = 37
Width = 24
Height = 12
Caption = #39068#33394
end
object Label1: TLabel
Left = 1343
Top = 11
Width = 48
Height = 12
Caption = #26597#35810#26102#38388
Visible = False
end
object Label2: TLabel
Left = 1375
Top = 35
Width = 12
Height = 12
Caption = #33267
Visible = False
end
object Label5: TLabel
Left = 32
Top = 10
Width = 48
Height = 12
Caption = #25351#31034#21333#21495
end
object Label6: TLabel
Left = 36
Top = 72
Width = 48
Height = 12
Caption = #26465' '#30721
end
object Label8: TLabel
Left = 373
Top = 37
Width = 24
Height = 12
Caption = #20811#37325
end
object Label9: TLabel
Left = 373
Top = 10
Width = 24
Height = 12
Caption = #38376#24133
end
object Label7: TLabel
Left = 884
Top = 10
Width = 24
Height = 12
Caption = #31867#22411
end
object Label13: TLabel
Left = 498
Top = 10
Width = 24
Height = 12
Caption = #24211#20301
end
object Label10: TLabel
Left = 44
Top = 37
Width = 36
Height = 12
Caption = #35746#21333#21495
end
object Label11: TLabel
Left = 761
Top = 10
Width = 24
Height = 12
Caption = #33457#22411
end
object Label12: TLabel
Left = 630
Top = 37
Width = 36
Height = 12
Caption = #19994#21153#21592
end
object Label14: TLabel
Left = 618
Top = 10
Width = 48
Height = 12
Caption = #33521#25991#39068#33394
end
object Label15: TLabel
Left = 761
Top = 37
Width = 24
Height = 12
Caption = #27454#21495
end
object Label16: TLabel
Left = 193
Top = 10
Width = 48
Height = 12
Caption = #20135#21697#32534#21495
end
object Label17: TLabel
Left = 884
Top = 37
Width = 24
Height = 12
Caption = #29702#21333
end
object MPRTCodeName: TEdit
Tag = 2
Left = 243
Top = 33
Width = 100
Height = 20
TabOrder = 5
OnChange = MPRTCodeNameChange
end
object BegDate: TDateTimePicker
Left = 1388
Top = 8
Width = 87
Height = 20
Date = 40768.458268587970000000
Time = 40768.458268587970000000
TabOrder = 4
Visible = False
end
object EndDate: TDateTimePicker
Left = 1388
Top = 32
Width = 87
Height = 20
Date = 40768.458268587970000000
Time = 40768.458268587970000000
TabOrder = 8
Visible = False
end
object orderNo: TEdit
Tag = 2
Left = 82
Top = 6
Width = 100
Height = 20
TabOrder = 0
OnChange = MPRTCodeNameChange
end
object MJID: TEdit
Tag = 2
Left = 82
Top = 68
Width = 109
Height = 20
TabOrder = 9
OnChange = MPRTCodeNameChange
end
object MPRTKZ: TEdit
Tag = 2
Left = 401
Top = 33
Width = 80
Height = 20
TabOrder = 6
OnChange = MPRTCodeNameChange
end
object MPRTMF: TEdit
Tag = 2
Left = 401
Top = 6
Width = 80
Height = 20
TabOrder = 1
OnChange = MPRTCodeNameChange
end
object CPType: TComboBox
Tag = 2
Left = 912
Top = 6
Width = 80
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 7
Text = #27491#21697
OnChange = TBFindClick
Items.Strings = (
#27491#21697
#27425#21697
#22810#25340
'')
end
object PRTColor: TComboBox
Tag = 1
Left = 524
Top = 33
Width = 80
Height = 20
ItemHeight = 12
TabOrder = 2
OnChange = PRTColorChange
end
object RKplace: TEdit
Tag = 2
Left = 524
Top = 6
Width = 80
Height = 20
TabOrder = 3
OnChange = MPRTCodeNameChange
end
object ConNo: TEdit
Tag = 2
Left = 82
Top = 33
Width = 100
Height = 20
TabOrder = 10
OnChange = MPRTCodeNameChange
end
object PRTHX: TEdit
Tag = 2
Left = 787
Top = 6
Width = 80
Height = 20
TabOrder = 11
OnChange = MPRTCodeNameChange
end
object ywy: TEdit
Tag = 2
Left = 667
Top = 33
Width = 80
Height = 20
TabOrder = 12
OnChange = MPRTCodeNameChange
end
object PRTEColor: TEdit
Tag = 2
Left = 667
Top = 6
Width = 80
Height = 20
TabOrder = 13
OnChange = MPRTCodeNameChange
end
object KuanHao: TEdit
Tag = 2
Left = 787
Top = 33
Width = 80
Height = 20
TabOrder = 14
OnChange = MPRTCodeNameChange
end
object MPRTCode: TEdit
Tag = 2
Left = 243
Top = 6
Width = 100
Height = 20
TabOrder = 15
OnChange = MPRTCodeNameChange
end
object lidan: TEdit
Tag = 2
Left = 912
Top = 33
Width = 80
Height = 20
TabOrder = 16
OnChange = MPRTCodeNameChange
end
end
object cxGrid2: TcxGrid
Left = 0
Top = 89
Width = 1475
Height = 383
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1Column6
end
item
Kind = skSum
Column = v2Column5
end
item
Kind = skSum
Column = v2Column6
end
item
Kind = skSum
Column = v1Column13
end
item
Kind = skSum
Column = v1Column12
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
Styles.Header = DataLink_ShipmentRequest.Default
object v1Column2: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object v1Column14: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'MPRTCode'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 97
end
object v1Column1: TcxGridDBColumn
Caption = #25351#31034#21333#21495
DataBinding.FieldName = 'orderNo'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 74
end
object v2Column1: TcxGridDBColumn
Caption = #20013#25991#21517#31216
DataBinding.FieldName = 'MPRTCodeName'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 92
end
object v2Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 77
end
object Tv1Column1: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'PRTHX'
HeaderAlignmentHorz = taCenter
Width = 74
end
object Tv1Column2: TcxGridDBColumn
Caption = #33521#25991#39068#33394
DataBinding.FieldName = 'PRTEColor'
HeaderAlignmentHorz = taCenter
Width = 71
end
object v1Column6: TcxGridDBColumn
Caption = #21367#25968
DataBinding.FieldName = 'JQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 74
end
object v2Column5: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'KGQty'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 83
end
object v1Column13: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'NetKGQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object v2Column6: TcxGridDBColumn
Caption = #24211#23384#25968#37327
DataBinding.FieldName = 'Qty'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 85
end
object v1Column7: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'QtyUnit'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 83
end
object v1Column3: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'CPType'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 63
end
object v1Column8: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'MPRTMF'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 70
end
object v1Column9: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'MPRTKZ'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 59
end
object v1Column4: TcxGridDBColumn
Caption = #29702#21333
DataBinding.FieldName = 'lidan'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object v1Column5: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'ywy'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object v1Column11: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'KuanHao'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object v1Column12: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'MJYLen'
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column3: TcxGridDBColumn
Caption = #24211#23384#22791#27880
DataBinding.FieldName = 'KCNote'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column3PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column4: TcxGridDBColumn
Caption = #24211#23384#29366#24577
DataBinding.FieldName = 'KCZTStatus'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column4PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 68
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
end
end
object MovePanel2: TMovePanel
Left = 536
Top = 188
Width = 289
Height = 49
BevelInner = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Visible = False
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 965
Top = 173
end
object ADOQueryMain: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 997
Top = 168
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 928
Top = 192
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 920
Top = 152
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 888
Top = 144
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 896
Top = 128
end
end

314
发货申请(ShipmentRequest.dll)/U_CPKCHZSel.pas Normal file
View File

@ -0,0 +1,314 @@
unit U_CPKCHZSel;
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, MovePanel, cxButtonEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, cxTextEdit;
type
TfrmCPKCHZSel = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
Label3: TLabel;
Label4: TLabel;
MPRTCodeName: TEdit;
Label1: TLabel;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_Main: TClientDataSet;
Tv1: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid2: TcxGrid;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
Label5: TLabel;
orderNo: TEdit;
Label6: TLabel;
MJID: TEdit;
v1Column7: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
Label8: TLabel;
MPRTKZ: TEdit;
Label9: TLabel;
MPRTMF: TEdit;
Label7: TLabel;
CPType: TComboBox;
v1Column3: TcxGridDBColumn;
MovePanel2: TMovePanel;
PRTColor: TComboBox;
RKplace: TEdit;
Label13: TLabel;
v1Column13: TcxGridDBColumn;
Label10: TLabel;
ConNo: TEdit;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
Label11: TLabel;
Label12: TLabel;
PRTHX: TEdit;
ywy: TEdit;
v1Column11: TcxGridDBColumn;
Label14: TLabel;
PRTEColor: TEdit;
Label15: TLabel;
KuanHao: TEdit;
v1Column12: TcxGridDBColumn;
Label16: TLabel;
MPRTCode: TEdit;
v1Column14: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Label17: TLabel;
lidan: TEdit;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
ToolButton1: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure MPRTCodeNameChange(Sender: TObject);
procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure PRTColorChange(Sender: TObject);
procedure Tv1Column3PropertiesEditValueChanged(Sender: TObject);
procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
{ Public declarations }
end;
var
frmCPKCHZSel: TfrmCPKCHZSel;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmCPKCHZSel.FormDestroy(Sender: TObject);
begin
frmCPKCHZSel := nil;
end;
procedure TfrmCPKCHZSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmCPKCHZSel.FormCreate(Sender: TObject);
begin
//cxGrid1.Align:=alClient;
BegDate.DateTime := SGetServerDateTime(ADOQueryTemp);
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp)
end;
procedure TfrmCPKCHZSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select SUM(A.KGQty) KGQty,SUM(A.Qty) Qty,SUM(A.MJYLen) MJYLen,SUM(A.NetKGQty) NetKGQty,count(A.MJID) JQty,A.QtyUnit,A.CPType ');
sql.Add(' ,A.KuanHao,B.ConNo,B.OrderNo,B.lidan,B.ywy,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' ,C.PRTColor,C.PRTEColor,C.PRTHX,C.PrtKuanNo,C.KCNote,C.KCZTStatus,A.MainId,A.SubId ');
sql.Add('from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID inner join JYOrder_Main B on A.MainId=B.MainId ');
sql.Add('inner join JYOrder_Sub C on A.SubId=C.SubId where A.CRFlag=''入库'' and D.KCValid=''Y'' ');
sql.Add(' group by A.QtyUnit,A.MainId,A.SubId,A.CPType,C.KCNote,C.KCZTStatus ,A.KuanHao,B.ConNo,B.OrderNo,B.lidan,B.ywy,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ,C.PRTColor,C.PRTEColor,C.PRTHX,C.PrtKuanNo');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
TBFind.Click;
end;
procedure TfrmCPKCHZSel.TBRafreshClick(Sender: TObject);
begin
//BegDate.SetFocus;
MovePanel2.Visible := True;
MovePanel2.Refresh;
InitGrid();
MovePanel2.Visible := False;
end;
procedure TfrmCPKCHZSel.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmCPKCHZSel.TBCloseClick(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption), Tv1, '成品仓库');
Close;
end;
procedure TfrmCPKCHZSel.FormShow(Sender: TObject);
begin
ReadCxGrid(trim(self.Caption), Tv1, '成品仓库');
end;
procedure TfrmCPKCHZSel.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
end;
end;
procedure TfrmCPKCHZSel.MPRTCodeNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmCPKCHZSel.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'SOrdDefStr10';
flagname := '库存存放地点';
if ShowModal = 1 then
begin
with CDS_Main do
begin
Edit;
FieldByName('SOrdDefStr10').Value := Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update JYOrder_Sub Set SOrdDefStr10=''' + Trim(ClientDataSet1.fieldbyname('ZdyName').AsString) + '''');
sql.Add(' where SubId=''' + Trim(Self.CDS_Main.fieldbyname('SubId').AsString) + '''');
ExecSQL;
end;
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmCPKCHZSel.PRTColorChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmCPKCHZSel.Tv1Column3PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Main do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('update JYOrder_Sub set ' + FFieldName + '=' + quotedstr(Trim(mvalue)));
sql.Add('where SUBID=' + quotedstr(Trim(CDS_Main.fieldbyname('SUBID').AsString)));
ExecSQL;
end;
Tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmCPKCHZSel.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
var
mvalue, FFieldName: string;
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'KCZTStatus';
flagname := '库存状态';
if ShowModal = 1 then
begin
mvalue := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
with CDS_Main do
begin
Edit;
FieldByName('KCZTStatus').Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('update JYOrder_Sub set KCZTStatus=' + quotedstr(Trim(mvalue)));
sql.Add('where SUBID=' + quotedstr(Trim(CDS_Main.fieldbyname('SUBID').AsString)));
ExecSQL;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmCPKCHZSel.ToolButton1Click(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmCPKCHZSel.Tv1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
end.

527
发货申请(ShipmentRequest.dll)/U_CPManageFMSel.dfm Normal file
View File

@ -0,0 +1,527 @@
object frmCPManageFMSel: TfrmCPManageFMSel
Left = 128
Top = 81
Width = 1382
Height = 754
Align = alClient
Caption = #26679#21697#20449#24687
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1366
Height = 31
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_ShipmentRequest.ThreeImgList
Flat = True
Images = DataLink_ShipmentRequest.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
OnClick = ToolButton2Click
end
object ToolButton4: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #36873#25321
ImageIndex = 31
OnClick = ToolButton4Click
end
object TBClose: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object cxSplitter1: TcxSplitter
Left = 220
Top = 93
Width = 8
Height = 623
HotZoneClassName = 'TcxMediaPlayer9Style'
Control = Panel5
end
object Panel1: TPanel
Left = 0
Top = 31
Width = 1366
Height = 62
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label2: TLabel
Left = 16
Top = 15
Width = 48
Height = 12
Caption = #25195#25551#20837#21475
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 364
Top = 15
Width = 48
Height = 12
Caption = #20013#25991#21517#31216
end
object Label3: TLabel
Left = 216
Top = 15
Width = 48
Height = 12
Caption = #20135#21697#32534#21495
end
object Label7: TLabel
Left = 732
Top = 15
Width = 24
Height = 12
Caption = #20811#37325
end
object Label8: TLabel
Left = 611
Top = 15
Width = 48
Height = 12
Caption = #25104' '#20998
end
object Label10: TLabel
Left = 485
Top = 15
Width = 24
Height = 12
Caption = #38376#24133
end
object Label11: TLabel
Left = 1088
Top = 11
Width = 7
Height = 12
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label12: TLabel
Left = 1088
Top = 31
Width = 7
Height = 12
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object CYID: TEdit
Tag = 3
Left = 72
Top = 11
Width = 121
Height = 20
TabOrder = 0
OnKeyPress = CYIDKeyPress
end
object CYName: TEdit
Tag = 2
Left = 414
Top = 11
Width = 56
Height = 20
TabOrder = 2
OnChange = CYNameChange
end
object CYNO: TEdit
Tag = 2
Left = 265
Top = 11
Width = 89
Height = 20
TabOrder = 1
OnChange = CYNoChange
OnKeyPress = CYNOKeyPress
end
object CYKZ: TEdit
Tag = 2
Left = 758
Top = 11
Width = 76
Height = 20
TabOrder = 5
OnChange = CYMFChange
end
object CYCF: TEdit
Tag = 2
Left = 661
Top = 11
Width = 56
Height = 20
TabOrder = 4
OnChange = CYNameChange
end
object CYMF: TEdit
Tag = 2
Left = 511
Top = 11
Width = 76
Height = 20
TabOrder = 3
OnChange = CYMFChange
end
end
object Panel2: TPanel
Left = 512
Top = 232
Width = 185
Height = 41
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
Visible = False
end
object Panel5: TPanel
Left = 0
Top = 93
Width = 220
Height = 623
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object cxDBTreeList1: TcxDBTreeList
Left = 2
Top = 2
Width = 216
Height = 619
Align = alClient
Bands = <
item
end>
BufferedPaint = False
DataController.DataSource = DataSource1
DataController.ParentField = 'CPParent'
DataController.KeyField = 'CPID'
OptionsBehavior.ExpandOnDblClick = False
OptionsSelection.CellSelect = False
OptionsView.CellAutoHeight = True
OptionsView.Headers = False
RootValue = -1
Styles.Inactive = DataLink_ShipmentRequest.Red
Styles.Selection = DataLink_ShipmentRequest.Red
Styles.IncSearch = DataLink_ShipmentRequest.Red
TabOrder = 0
OnDblClick = cxDBTreeList1DblClick
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'CPName'
Width = 210
Position.ColIndex = 1
Position.RowIndex = 0
Position.BandIndex = 0
end
end
end
object Panel3: TPanel
Left = 230
Top = 104
Width = 1073
Height = 609
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Panel3'
TabOrder = 4
object GroupBox1: TGroupBox
Left = 2
Top = 412
Width = 1069
Height = 195
Align = alBottom
Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
TabOrder = 1
object ScrollBox1: TScrollBox
Left = 2
Top = 14
Width = 1065
Height = 179
Align = alClient
BevelInner = bvLowered
BorderStyle = bsNone
TabOrder = 0
end
end
object cxGrid1: TcxGrid
Left = 2
Top = 2
Width = 1069
Height = 410
Align = alClient
TabOrder = 0
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
NavigatorButtons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False
OnCellClick = Tv1CellClick
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
object v1Column19: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 40
end
object v1Column12: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'CPName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 54
end
object v1CYNo: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'CYNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object v1Column9: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'CYName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 96
end
object v1Column2: TcxGridDBColumn
Caption = #21407#26009#25104#20998
DataBinding.FieldName = 'CYSpec'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
end
object v1Column4: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'CYCF'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
end
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'CYMF'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column1: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'CYKZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object v1Column5: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'CYHX'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column6: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'CYColor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object v1Column39: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'CYNote'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 166
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
end
object DataSource1: TDataSource
DataSet = ADOQueryTree
Left = 91
Top = 147
end
object ADOQueryTree20: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 61
Top = 145
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 989
Top = 1
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 1029
Top = 1
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 432
Top = 184
end
object DataSource2: TDataSource
DataSet = CDS_Main
Left = 451
Top = 155
end
object ADOQueryMain: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 493
Top = 193
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 392
Top = 184
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 392
Top = 152
ReportData = {}
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = CDS_Main
Left = 424
Top = 152
end
object ODPat: TOpenDialog
Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Left = 484
Top = 157
end
object IdFTP1: TIdFTP
MaxLineAction = maException
ReadTimeout = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
Left = 461
Top = 188
end
object SaveDialog1: TSaveDialog
Left = 513
Top = 157
end
object DSCYNO: TDataSource
DataSet = CDS_CYNO
Left = 771
Top = 235
end
object CDS_CYNO: TClientDataSet
Aggregates = <>
Params = <>
Left = 712
Top = 264
end
object ADOQueryTree: TClientDataSet
Aggregates = <>
Params = <>
Left = 32
Top = 200
end
object adoqueryPicture: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 479
Top = 256
end
end

471
发货申请(ShipmentRequest.dll)/U_CPManageFMSel.pas Normal file
View File

@ -0,0 +1,471 @@
unit U_CPManageFMSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
StdCtrls, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP,ShellAPI,IniFiles, cxCheckBox,jpeg,U_SLT;
type
TfrmCPManageFMSel = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
DataSource1: TDataSource;
ADOQueryTree20: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
cxGridPopupMenu1: TcxGridPopupMenu;
cxSplitter1: TcxSplitter;
Panel1: TPanel;
Label2: TLabel;
CYID: TEdit;
ToolButton2: TToolButton;
Label1: TLabel;
CYName: TEdit;
DataSource2: TDataSource;
ADOQueryMain: TADOQuery;
CDS_Main: TClientDataSet;
ToolButton4: TToolButton;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
ODPat: TOpenDialog;
IdFTP1: TIdFTP;
SaveDialog1: TSaveDialog;
Label3: TLabel;
CYNO: TEdit;
Panel2: TPanel;
DSCYNO: TDataSource;
CDS_CYNO: TClientDataSet;
Label7: TLabel;
CYKZ: TEdit;
Label8: TLabel;
CYCF: TEdit;
Label10: TLabel;
CYMF: TEdit;
ADOQueryTree: TClientDataSet;
Panel5: TPanel;
cxDBTreeList1: TcxDBTreeList;
cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
Label11: TLabel;
Label12: TLabel;
Panel3: TPanel;
GroupBox1: TGroupBox;
ScrollBox1: TScrollBox;
adoqueryPicture: TADOQuery;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column19: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1CYNo: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column39: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cxDBTreeList1DblClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure CYIDKeyPress(Sender: TObject; var Key: Char);
procedure CYNoChange(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure v1Column19PropertiesChange(Sender: TObject);
procedure CYMFChange(Sender: TObject);
procedure CYNameChange(Sender: TObject);
procedure CYNOKeyPress(Sender: TObject; var Key: Char);
procedure Tv1DblClick(Sender: TObject);
private
{ Private declarations }
CPID:string;
PState:Integer;
FCPID,FTopID:String;
procedure InitTree();
procedure InitGrid();
procedure ReadINIFile();
procedure InitImage();
public
{ Public declarations }
end;
var
frmCPManageFMSel: TfrmCPManageFMSel;
Mach: array of TfrmSlt;
implementation
uses
U_DataLink,U_RTFun,U_FileUp;
{$R *.dfm}
procedure TfrmCPManageFMSel.InitTree();
var
i:Integer;
begin
with ADOQueryTree20 do
begin
Close;
SQL.Clear;
SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName');
Open;
end;
SCreateCDS(ADOQueryTree20,ADOQueryTree);
SInitCDSData(ADOQueryTree20,ADOQueryTree);
cxDBTreeList1.Items[0].Expand(false);
//cxDBTreeList1.Items[1].Expand(False);
end;
procedure TfrmCPManageFMSel.InitGrid();
begin
Panel2.Visible:=True;
Panel2.Refresh;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Close;
SQL.Clear;
SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType');
Parameters.ParamByName('Code').Value:='';
Parameters.ParamByName('PState').Value:=0;
Parameters.ParamByName('CYType').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
Open;
end;
SCreateCDS(ADOQueryMain,CDS_Main);
SInitCDSData(ADOQueryMain,CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
Panel2.Visible:=False;
end;
procedure TfrmCPManageFMSel.FormDestroy(Sender: TObject);
begin
frmCPManageFMSel:=nil;
end;
procedure TfrmCPManageFMSel.FormClose(Sender: TObject; var Action: TCloseAction);
var
i,j:integer;
begin
j:=length(Mach);
if j>0 then
begin
for i:=0 to j-1 do
begin
Mach[i].free;
end;
end;
SetLength(Mach, 0);
// writeCxGrid(self.Caption+tv1.Name,tv1);
// Application := mainApplication;
action:=cafree;
end;
procedure TfrmCPManageFMSel.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('样品列表SelLJ',Tv1,'样品管理');
if DirectoryExists(ExtractFileDir('D:\Right1209')) then
winexec('cmd /c rd /s /q D:\Right1209',sw_hide);
Close;
end;
procedure TfrmCPManageFMSel.FormShow(Sender: TObject);
begin
Panel3.Align:=alclient;
InitTree();
ReadCxGrid('样品列表SelLJ',Tv1,'样品管理');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select CYID='''' ');
Open;
end;
SCreateCDS(ADOQueryTemp,CDS_CYNO);
SInitCDSData(ADOQueryTemp,CDS_CYNO);
with ADOQueryMain do
begin
Filtered:=False;
Close;
SQL.Clear;
SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType');
Parameters.ParamByName('Code').Value:='';
Parameters.ParamByName('PState').Value:=0;
Parameters.ParamByName('CYType').Value:='XXXXXXX';
Open;
end;
SCreateCDS(ADOQueryMain,CDS_Main);
SInitCDSData(ADOQueryMain,CDS_Main);
CDS_CYNO.Delete;
end;
procedure TfrmCPManageFMSel.cxDBTreeList1DblClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmCPManageFMSel.TBRafreshClick(Sender: TObject);
begin
InitTree();
InitGrid();
//TJGS();
end;
procedure TfrmCPManageFMSel.ToolButton2Click(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS(ADOQueryMain,CDS_Main);
SInitCDSData(ADOQueryMain,CDS_Main);
// TJGS();
end;
end;
procedure TfrmCPManageFMSel.CYIDKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
if Trim(CYID.Text)='' then Exit;
with ADOQueryMain do
begin
Close;
Filtered:=False;
sql.Clear;
sql.Add('exec P_Select_CP_YDang :Code,1,'''' ');
Parameters.ParamByName('Code').Value:=Trim(CYID.Text);
Open;
end;
SCreateCDS(ADOQueryMain,CDS_Main);
SInitCDSData(ADOQueryMain,CDS_Main);
CYID.Text:='';
ADOQueryTree.Locate('CPID',CPID,[]);
end;
end;
procedure TfrmCPManageFMSel.CYNoChange(Sender: TObject);
begin
//if Length(Trim(TEdit(Sender).Text))<4 then Exit;
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS(ADOQueryMain,CDS_Main);
SInitCDSData(ADOQueryMain,CDS_Main);
//TJGS();
end;
end;
procedure TfrmCPManageFMSel.ToolButton4Click(Sender: TObject);
begin
if CDS_Main.IsEmpty then Exit;
ModalResult:=1;
end;
procedure TfrmCPManageFMSel.ReadINIFile();
var
programIni:Tinifile; //配置文件名
FileName:string;
begin
FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI';
programIni:=Tinifile.create(FileName);
server:=programIni.ReadString('SERVER','服务器地址','127.0.0.1');
programIni.Free;
end;
procedure TfrmCPManageFMSel.Tv1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
if CDS_Main.IsEmpty then Exit;
{ with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').asstring)+'''');
Open;
end;
CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString);
ADOQueryTree.Locate('CPID',CPID,[]); }
InitImage();
end;
procedure TfrmCPManageFMSel.InitImage();
var
i,j:integer;
jpg:TJpegImage;
myStream: TADOBlobStream;
begin
j:=length(Mach);
if j>0 then
begin
for i:=0 to j-1 do
begin
Mach[i].free;
end;
end;
SetLength(Mach, 0);
IF CDS_Main.IsEmpty then exit;
try
with adoqueryPicture do
begin
close;
sql.Clear;
sql.Add(' select A.TFID,A.WBID,A.FilesOther,B.FileName from TP_File A,XD_File B where A.TFID =B.XFID and A.WBID='+quotedstr(trim(CDS_Main.fieldbyname('CYID').AsString)));
open;
end;
j:=adoqueryPicture.RecordCount;
if j<1 then exit;
adoqueryPicture.DisableControls;
adoqueryPicture.First;
SetLength(Mach, j);
jpg:=TJpegImage.Create();
for i:=0 to j-1 do
begin
if triM(adoqueryPicture.fieldbyname('FilesOther').AsString)<>'' then
begin
myStream:=tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')),bmread);
jpg.LoadFromStream(myStream);
Mach[i] := TfrmSlt.Create(Self);
Mach[i].Name:=trim(adoqueryPicture.fieldbyname('TFID').AsString);
Mach[i].Parent := ScrollBox1;
Mach[I].Left:=0+i*165;
Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString,adoqueryPicture.fieldbyname('FileName').AsString,jpg);
end;
adoqueryPicture.Next;
end;
adoqueryPicture.EnableControls;
finally
jpg.free;
application.ProcessMessages;
end;
end;
procedure TfrmCPManageFMSel.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
{if Key= then
begin
if CDS_Main.IsEmpty then Exit;
if Application.MessageBox('确定6666要删除数据吗？','提示',32+4)<>IDYES then Exit;
if Trim(CDS_Main.fieldbyname('CYID').AsString)<>'' then
begin
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('delete CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''');
ExecSQL;
end;
end;
CDS_Main.Delete;
end; }
end;
procedure TfrmCPManageFMSel.v1Column19PropertiesChange(Sender: TObject);
var
mvalue:Boolean;
begin
{ mvalue:=TcxCheckBox(Sender).EditingValue;
if mvalue=True then
begin
with CDS_CYNO do
begin
if Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then
begin
Append;
FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString);
Post;
end;
end;
end else
begin
//with CDS_CYNO do
//begin
CDS_CYNO.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[]);
CDS_CYNO.Delete;
//end;
end; }
end;
procedure TfrmCPManageFMSel.CYMFChange(Sender: TObject);
begin
//if Length(Trim(TEdit(Sender).Text))<2 then Exit;
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS(ADOQueryMain,CDS_Main);
SInitCDSData(ADOQueryMain,CDS_Main);
//TJGS();
end;
end;
procedure TfrmCPManageFMSel.CYNameChange(Sender: TObject);
begin
//if Length(Trim(TEdit(Sender).Text))<2 then Exit;
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS(ADOQueryMain,CDS_Main);
SInitCDSData(ADOQueryMain,CDS_Main);
// TJGS();
end;
end;
procedure TfrmCPManageFMSel.CYNOKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
if Trim(CYNO.Text)='' then Exit;
if Length(Trim(CYNO.Text))<4 then Exit;
with ADOQueryMain do
begin
Close;
Filtered:=False;
sql.Clear;
sql.Add('exec P_Select_CP_YDang :Code,2,'''' ');
Parameters.ParamByName('Code').Value:='%'+Trim(CYNO.Text)+'%';
Open;
end;
SCreateCDS(ADOQueryMain,CDS_Main);
SInitCDSData(ADOQueryMain,CDS_Main);
CYID.Text:='';
ADOQueryTree.Locate('CPID',CPID,[]);
// TJGS();
end;
end;
procedure TfrmCPManageFMSel.Tv1DblClick(Sender: TObject);
begin
if CDS_Main.IsEmpty then Exit;
ModalResult:=1;
end;
end.

784
发货申请(ShipmentRequest.dll)/U_ClothSCListSel.dfm Normal file
View File

@ -0,0 +1,784 @@
object frmClothSCList: TfrmClothSCList
Left = 317
Top = 157
Width = 1280
Height = 581
Caption = #36710#38388#29983#20135#35745#21010#21333
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1264
AutoSize = True
ButtonHeight = 30
ButtonWidth = 119
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_WeavingSchedule.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
OnClick = TBFindClick
end
object TBAdd: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 1
OnClick = TBAddClick
end
object TBEdit: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 11
OnClick = TBEditClick
end
object TBView: TToolButton
Left = 252
Top = 0
AutoSize = True
Caption = #26597#30475#24037#33402#21333
ImageIndex = 38
OnClick = TBViewClick
end
object TBDel: TToolButton
Left = 351
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 3
OnClick = TBDelClick
end
object ToolButton1: TToolButton
Left = 414
Top = 0
AutoSize = True
Caption = #22806#21457#24037#33402#21333
ImageIndex = 60
OnClick = ToolButton1Click
end
object Panel2: TPanel
Left = 513
Top = 0
Width = 173
Height = 30
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label4: TLabel
Left = 8
Top = 8
Width = 48
Height = 12
Caption = #22806#21457#21333#20301
end
object WFGYSName: TComboBox
Left = 59
Top = 5
Width = 110
Height = 20
Style = csDropDownList
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
TabOrder = 0
end
end
object TBPrint: TToolButton
Left = 686
Top = 0
AutoSize = True
Caption = #29983#20135#35745#21010#21333#25171#21360
ImageIndex = 4
OnClick = TBPrintClick
end
object TBCopy: TToolButton
Left = 809
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 39
OnClick = TBCopyClick
end
object TBExport: TToolButton
Left = 872
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 68
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 935
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1264
Height = 54
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 23
Top = 22
Width = 52
Height = 12
Caption = #30331#35760#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 161
Top = 22
Width = 18
Height = 12
Caption = '---'
end
object Label3: TLabel
Left = 283
Top = 22
Width = 39
Height = 12
Caption = #35746#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 418
Top = 22
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 569
Top = 22
Width = 52
Height = 12
Caption = #20135#21697#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 721
Top = 22
Width = 26
Height = 12
Caption = #25209#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 76
Top = 18
Width = 85
Height = 20
Date = 40675.464742650460000000
Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 179
Top = 18
Width = 86
Height = 20
Date = 40675.464761099540000000
Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 1
end
object ConNo: TEdit
Tag = 2
Left = 324
Top = 18
Width = 81
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 2
OnChange = ConNoChange
OnKeyPress = conPress
end
object C_CodeName: TEdit
Tag = 2
Left = 472
Top = 18
Width = 83
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 3
OnChange = ConNoChange
end
object C_Code: TEdit
Tag = 2
Left = 623
Top = 18
Width = 83
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 4
OnChange = ConNoChange
end
object BatchNoHZ: TEdit
Tag = 2
Left = 749
Top = 18
Width = 110
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 5
OnChange = ConNoChange
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 86
Width = 1264
Height = 457
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
Column = v1Column6
end
item
Kind = skSum
Column = v1Column6
end
item
Kind = skSum
Column = v1Column14
end
item
Kind = skSum
Column = v1Column1
end
item
Kind = skSum
Column = v1Column18
end
item
Kind = skSum
Column = v1Column29
end
item
Kind = skSum
Position = spFooter
Column = v1Column14
end
item
Kind = skSum
Position = spFooter
Column = v1Column1
end
item
Kind = skSum
Position = spFooter
Column = v1Column18
end
item
Kind = skSum
Position = spFooter
Column = v1Column29
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column6
end
item
Kind = skSum
Column = v1Column14
end
item
Kind = skSum
Column = v1Column1
end
item
Kind = skSum
Column = v1Column18
end
item
Kind = skSum
Column = v1Column29
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Header = DataLink_WeavingSchedule.Default
object v1OrderNo: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'ConNo'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.Default
Width = 100
end
object v1Column31: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'KHName'
HeaderAlignmentHorz = taCenter
Width = 113
end
object v1Column5: TcxGridDBColumn
Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'QDTime'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.Default
Width = 66
end
object v1Column16: TcxGridDBColumn
Caption = #24320#22987#26102#38388
DataBinding.FieldName = 'BegTime'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_WeavingSchedule.Default
Width = 73
end
object v1Column17: TcxGridDBColumn
Caption = #32467#26463#26102#38388
DataBinding.FieldName = 'EndTime'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_WeavingSchedule.Default
Width = 72
end
object v1Column19: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DeliveryDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.Default
Width = 95
end
object v1Column2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_CodeName'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.Default
Width = 58
end
object v1Column21: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.Default
Width = 92
end
object v1Column20: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object v1Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_WeavingSchedule.Default
Width = 67
end
object v1Column8: TcxGridDBColumn
Caption = #26085#20135
DataBinding.FieldName = 'DayQty'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.Default
Width = 68
end
object v1Column9: TcxGridDBColumn
Caption = #26426#22411
DataBinding.FieldName = 'CarType'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.Default
Width = 69
end
object v1Column23: TcxGridDBColumn
Caption = #23433#25490#26426#21488#25968
DataBinding.FieldName = 'RTAPJTQty'
HeaderAlignmentHorz = taCenter
Width = 84
end
object v1Column24: TcxGridDBColumn
Caption = #23433#25490#26426#21488#21495
DataBinding.FieldName = 'RTAPJTInfo'
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1Column25: TcxGridDBColumn
Caption = #24403#21069#21551#29992#26426#21488#25968
DataBinding.FieldName = 'RTQYJTQty'
Width = 101
end
object v1Column26: TcxGridDBColumn
Caption = #24403#21069#21551#29992#26426#21488#21495
DataBinding.FieldName = 'RTQYJTInfo'
Width = 99
end
object v1Column27: TcxGridDBColumn
Caption = #24403#21069#20572#29992#26426#21488#25968
DataBinding.FieldName = 'RTTYJTQty'
Width = 98
end
object v1Column28: TcxGridDBColumn
Caption = #24403#21069#20572#29992#26426#21488#21495
DataBinding.FieldName = 'RTTYJTInfo'
Width = 97
end
object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'MF'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.Default
Width = 69
end
object v1Column32: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustomerNoName'
HeaderAlignmentHorz = taCenter
Width = 76
end
object v1PRTKZ: TcxGridDBColumn
Caption = #20811#37325'(g/'#13217')'
DataBinding.FieldName = 'KZ'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.Default
Width = 76
end
object v1Column6: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'PiQty'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.Default
Width = 59
end
object v1Column22: TcxGridDBColumn
Caption = #31354#21152'(KG)'
DataBinding.FieldName = 'PiZhong'
Options.Editing = False
Styles.Header = DataLink_WeavingSchedule.Default
Width = 63
end
object v1Column7: TcxGridDBColumn
Caption = #21305#37325'(KG)'
DataBinding.FieldName = 'PiKgQty'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.Default
Width = 72
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #35746#21333#25968#37327'(KG)'
DataBinding.FieldName = 'C_Qty'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.Default
Width = 92
end
object v1Column12: TcxGridDBColumn
Caption = #36716#25968
DataBinding.FieldName = 'ZhuanQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_WeavingSchedule.Default
Width = 64
end
object v1Column14: TcxGridDBColumn
Caption = #22806#21457#21305#25968
DataBinding.FieldName = 'WFJHPSHZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object v1Column1: TcxGridDBColumn
Caption = #22806#21457#25968#37327
DataBinding.FieldName = 'WFJHQtyHZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_WeavingSchedule.FonePurple
Width = 79
end
object v1Column30: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNoHZ'
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column18: TcxGridDBColumn
Caption = #33258#20135#21305#25968
DataBinding.FieldName = 'ZSCPS'
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column29: TcxGridDBColumn
Caption = #33258#20135#25968#37327
DataBinding.FieldName = 'ZSCQty'
HeaderAlignmentHorz = taCenter
Width = 68
end
object v1Column10: TcxGridDBColumn
Caption = #32433#38271
DataBinding.FieldName = 'ShaChang'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.FonePurple
Width = 61
end
object v1Column11: TcxGridDBColumn
Caption = #21152#24037#36153
DataBinding.FieldName = 'Price'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.FonePurple
Width = 61
end
object v1Column15: TcxGridDBColumn
Caption = #21305#37325#28014#21160#177'Kg'
DataBinding.FieldName = 'PiKgQtyFD'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.FonePurple
Width = 100
end
object v1Column13: TcxGridDBColumn
Caption = #35745#21010#19978#26426#26426#21488
DataBinding.FieldName = 'SJCarNO'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_WeavingSchedule.FonePurple
Width = 84
end
object v1Column4: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'C_Note'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_WeavingSchedule.Default
Width = 68
end
object v1Column33: TcxGridDBColumn
Caption = #35745#21010#36710#38388
DataBinding.FieldName = 'JHChejian'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 56
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 688
Top = 200
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_WeavingSchedule.ADOLink
Parameters = <>
Left = 600
Top = 184
end
object ADOQueryMain: TADOQuery
Connection = DataLink_WeavingSchedule.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 552
Top = 184
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_WeavingSchedule.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 640
Top = 192
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 840
Top = 232
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 808
Top = 232
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 448
Top = 208
ReportData = {}
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 488
Top = 200
end
object CDS_PRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 464
Top = 280
end
object RMDBPRT: TRMDBDataSet
Visible = True
DataSet = CDS_PRT
Left = 496
Top = 280
end
object RMDBPZ: TRMDBDataSet
Visible = True
DataSet = CDS_PZ
Left = 504
Top = 320
end
object CDS_PZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 472
Top = 320
end
object CDS_SJ: TClientDataSet
Aggregates = <>
Params = <>
Left = 472
Top = 352
end
object RMDBSJ: TRMDBDataSet
Visible = True
DataSet = CDS_SJ
Left = 504
Top = 352
end
object RMDBDataSet1: TRMDBDataSet
Visible = True
DataSet = ClientDataSet1
Left = 496
Top = 400
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
Params = <>
Left = 464
Top = 400
end
object CDS_WJG: TClientDataSet
Aggregates = <>
Params = <>
Left = 464
Top = 440
end
object RMDBWJG: TRMDBDataSet
Visible = True
DataSet = CDS_WJG
Left = 496
Top = 440
end
end

794
发货申请(ShipmentRequest.dll)/U_ClothSCListSel.pas Normal file
View File

@ -0,0 +1,794 @@
unit U_ClothSCListSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit;
type
TfrmClothSCList = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
ConNo: TEdit;
Label5: TLabel;
C_CodeName: TEdit;
TBExport: TToolButton;
Order_Main: TClientDataSet;
RM1: TRMGridReport;
RMXLSExport1: TRMXLSExport;
CDS_PRT: TClientDataSet;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1OrderNo: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1PRTMF: TcxGridDBColumn;
v1PRTKZ: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
RMDBPRT: TRMDBDataSet;
v1Column12: TcxGridDBColumn;
TBCopy: TToolButton;
TBView: TToolButton;
v1Column19: TcxGridDBColumn;
RMDBPZ: TRMDBDataSet;
CDS_PZ: TClientDataSet;
CDS_SJ: TClientDataSet;
RMDBSJ: TRMDBDataSet;
v1Column21: TcxGridDBColumn;
Label10: TLabel;
C_Code: TEdit;
v1Column22: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column24: TcxGridDBColumn;
v1Column25: TcxGridDBColumn;
v1Column26: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
v1Column28: TcxGridDBColumn;
ToolButton1: TToolButton;
RMDBDataSet1: TRMDBDataSet;
ClientDataSet1: TClientDataSet;
Panel2: TPanel;
WFGYSName: TComboBox;
Label4: TLabel;
v1Column14: TcxGridDBColumn;
CDS_WJG: TClientDataSet;
RMDBWJG: TRMDBDataSet;
v1Column18: TcxGridDBColumn;
v1Column29: TcxGridDBColumn;
Label6: TLabel;
BatchNoHZ: TEdit;
v1Column31: TcxGridDBColumn;
v1Column30: TcxGridDBColumn;
v1Column32: TcxGridDBColumn;
v1Column33: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure conPress(Sender: TObject; var Key: Char);
procedure TBViewClick(Sender: TObject);
procedure TBCopyClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
private
FInt, PFInt: Integer;
procedure InitGrid();
procedure InitForm();
function DelData(): Boolean;
procedure InitButton();
{ Private declarations }
public
canshu1, FCheJian: string;
{ Public declarations }
end;
//var
//frmClothSCList: TfrmClothSCList;
implementation
uses
U_DataLink, U_ClothSCInPut, U_RTFun, U_ZDYHelp, U_SCPerson, U_ClothSCInPutSC;
{$R *.dfm}
procedure TfrmClothSCList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmClothSCList.InitButton();
begin
if Trim(canshu1) = '查询' then
begin
TBAdd.Visible := False;
TBCopy.Visible := False;
TBEdit.Visible := False;
TBDel.Visible := False;
end;
if (Trim(canshu1) = '一车间生产') or (Trim(canshu1) = '二车间生产') then
begin
TBAdd.Visible := False;
TBCopy.Visible := False;
TBEdit.Visible := False;
TBDel.Visible := False;
end;
end;
procedure TfrmClothSCList.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('坯布生产计划单', Tv1, '坯布生产管理');
end;
procedure TfrmClothSCList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('select A.*,B.*,CustomerNoName=(select TOP 1 CustomerNoName from JYOrderCon_Main_PB X where X.MainId=A.ConMainId) ');
sql.Add(' ,HTSYRName=(select TOP 1 SYRName from JYOrderCon_Main_PB X where X.MainId=A.ConMainId)');
sql.Add(' ,ConPayment=(select TOP 1 Payment from JYOrderCon_Main_PB X where X.MainId=A.ConMainId)');
sql.Add(' ,ConPRTPrice=(select TOP 1 PRTPrice from JYOrderCon_Sub_PB X where X.SubId=A.ConSubId) ');
sql.Add(' ,ConDYMoney=(select TOP 1 DYMoney from JYOrderCon_Sub_PB X where X.SubId=A.ConSubId) ');
sql.Add(' ,ZdyNameZ=(select TOP 1 X.ZdyNameZ from KH_Zdy_Attachment X inner join JYOrderCon_Main_PB Y on X.Type=''KHName'' and X.ZdyCode=Y.CustomerNo where Y.MainId=A.ConMainId) ');
sql.Add(' from Cloth_Main A inner join CLoth_Sub B on A.Mainid=B.MainId');
sql.Add(' where A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
if canshu1 = '一车间生产' then
begin
sql.Add(' and B.JHChejian=''一车间'' ');
end;
if canshu1 = '二车间生产' then
begin
sql.Add(' and B.JHChejian=''二车间'' ');
end;
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmClothSCList.InitForm();
begin
InitButton();
ReadCxGrid('坯布生产计划单', Tv1, '坯布生产管理');
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 7;
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
InitGrid();
end;
procedure TfrmClothSCList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmClothSCList.TBEditClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmClothSCInPut := TfrmClothSCInPut.Create(Application);
with frmClothSCInPut do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
FSubId := Trim(Self.Order_Main.fieldbyname('SubId').AsString);
if ShowModal = 1 then
begin
InitGrid();
Self.Order_Main.Locate('MainId', frmClothSCInPut.FMainId, []);
end;
end;
finally
frmClothSCInPut.Free;
end;
end;
procedure TfrmClothSCList.TBDelClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
SQL.Add('select A.*');
sql.Add('from JYCon_Sub_AnPai A');
sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
sql.Add(' and A.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Application.MessageBox('已产生安排数据不能删除!', '提示', 0);
Exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then
begin
//TBRafresh.Click;
//TBFind.Click;
Order_Main.Delete;
end;
end;
function TfrmClothSCList.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Cloth_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Cloth_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
ExecSQL;
end;
end;
if Trim(Order_Main.fieldbyname('SubId').AsString) = '' then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Cloth_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
ExecSQL;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Cloth_YCL_PB where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('数据删除异常！', '提示', 0);
end;
end;
procedure TfrmClothSCList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel('坯布生产单', cxGrid1);
end;
procedure TfrmClothSCList.TBPrintClick(Sender: TObject);
var
fPrintFile: string;
i, j, k: integer;
begin
if Order_Main.IsEmpty then
Exit;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\坯布生产计划单.rmf';
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select WeiZhi=WeiZhi1,SPZ1=PZ1,SPZ2=PZ2,SPZ3=PZ3,SPZ4=PZ4,SPZ5=PZ5,SPZ6=PZ6,SPZ7=PZ7,SPZ8=PZ8,SPZ9=PZ9,SPZ10=PZ10, ');
sql.Add(' SPZ11=PZ11,SPZ12=PZ12,SPZ13=PZ13,SPZ14=PZ14,SPZ15=PZ15,SPZ16=PZ16,SPZ17=PZ17,SPZ18=PZ18,SPZ19=PZ19,SPZ20=PZ20, ');
sql.Add(' SPZ21=PZ21,SPZ22=PZ22,SPZ23=PZ23,SPZ24=PZ24,SPZ25=PZ25,SPZ26=PZ26,SPZ27=PZ27,SPZ28=PZ28,SPZ29=PZ29,SPZ30=PZ30, ');
sql.Add(' SPZ31=PZ31,SPZ32=PZ32,SPZ33=PZ33,SPZ34=PZ34,SPZ35=PZ35,SPZ36=PZ36 ');
sql.Add(' from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
sql.Add(' and RTrim(PZType)=''排针'' ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_PZ);
SInitCDSData(ADOQueryTemp, CDS_PZ);
if CDS_PZ.IsEmpty then
begin
CDS_PZ.Append;
CDS_PZ.Post;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
sql.Add(' and RTrim(PZType)=''三角'' ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_SJ);
j := 0;
k := 1;
if ADOQueryTemp.RecordCount < 2 then
begin
SInitCDSData(ADOQueryTemp, CDS_SJ);
end
else
begin
ADOQueryTemp.First;
while not ADOQueryTemp.Eof do
begin
if j = 2 then
begin
with CDS_SJ do
begin
Append;
for i := 0 to ADOQueryTemp.FieldCount - 1 do
begin
if ((fields[i].FieldName <> 'Filltime') and (fields[i].FieldName <> 'Edittime')) then
fields[i].value := '__________';
end;
fieldByName('Sflag').AsString := '1';
fieldByName('Sindex').value := k;
fieldByName('Ssel').value := false;
fieldByName('SDefNote').value := '';
inc(k);
Post;
end;
end;
with CDS_SJ do
begin
Append;
for i := 0 to ADOQueryTemp.FieldCount - 1 do
begin
fields[i].value := ADOQueryTemp.Fields[i].Value;
end;
fieldByName('Sflag').AsString := '1';
fieldByName('Sindex').value := k;
fieldByName('Ssel').value := false;
fieldByName('SDefNote').value := '';
inc(k);
Post;
end;
ADOQueryTemp.Next;
j := j + 1;
end;
end;
if CDS_SJ.IsEmpty then
begin
CDS_SJ.Append;
CDS_SJ.Post;
end;
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('Select A.* ');
sql.Add(',YLQty=Cast(C_Qty*PBQty*0.01*(1+isnull(ZPSH,0)*0.01) as decimal(18,1))');
sql.Add(' from Cloth_YCL_PB A');
sql.Add(' inner join Cloth_Sub B on A.SubId=B.SubId');
sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_PRT);
SInitCDSData(ADOQueryTemp, CDS_PRT);
if CDS_PRT.IsEmpty then
begin
CDS_PRT.Append;
CDS_PRT.Post;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, ClientDataSet1);
SInitCDSData(ADOQueryTemp, ClientDataSet1);
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
RMVariables['ZSCPS'] := ClientDataSet1.fieldbyname('ZSCPS').Value;
RMVariables['ZSCQty'] := ClientDataSet1.fieldbyname('ZSCQty').Value;
RMVariables['WFJHPSHZ'] := ClientDataSet1.fieldbyname('WFJHPSHZ').Value;
RMVariables['WFJHQtyHZ'] := ClientDataSet1.fieldbyname('WFJHQtyHZ').Value;
RMVariables['C_Code'] := Order_Main.fieldbyname('C_Code').Value;
RMVariables['ConNo'] := Order_Main.fieldbyname('ConNo').Value;
RMVariables['C_CodeName'] := Order_Main.fieldbyname('C_CodeName').Value;
RMVariables['DayQty'] := Order_Main.fieldbyname('DayQty').Value;
RMVariables['CarType'] := Order_Main.fieldbyname('CarType').Value;
RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
RMVariables['KZQty'] := Order_Main.fieldbyname('KZQty').Value;
RMVariables['MFQty'] := Order_Main.fieldbyname('MFQty').Value;
RMVariables['KZ'] := Order_Main.fieldbyname('KZ').Value;
RMVariables['MF'] := Order_Main.fieldbyname('MF').Value;
RMVariables['PiKgQty'] := Order_Main.fieldbyname('PiKgQty').Value;
RMVariables['ZhuanQty'] := Order_Main.fieldbyname('ZhuanQty').Value;
RMVariables['PiQty'] := Order_Main.fieldbyname('PiQty').Value;
RMVariables['C_Qty'] := Order_Main.fieldbyname('C_Qty').Value;
RMVariables['QDTime'] := Order_Main.fieldbyname('QDTime').Value;
RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value;
RMVariables['DeliveryDate'] := Order_Main.fieldbyname('DeliveryDate').Value;
RMVariables['ShaChang1'] := Order_Main.fieldbyname('ShaChang').Value;
// showmessage(Order_Main.fieldbyname('ShaChang').asstring);
RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
RMVariables['C_Spec'] := Order_Main.fieldbyname('C_Spec').Value;
RMVariables['C_Color'] := Order_Main.fieldbyname('C_Color').Value;
RMVariables['C_Note'] := Order_Main.fieldbyname('C_Note').Value;
RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
RMVariables['PiKgQtyFD'] := Order_Main.fieldbyname('PiKgQtyFD').Value;
RMVariables['BatchNoHZ'] := Order_Main.fieldbyname('BatchNoHZ').Value;
RMVariables['ConPayment'] := Order_Main.fieldbyname('ConPayment').Value;
RMVariables['ConPRTPrice'] := Order_Main.fieldbyname('ConPRTPrice').Value;
RMVariables['ConDYMoney'] := Order_Main.fieldbyname('ConDYMoney').Value;
RMVariables['ZdyNameZ'] := Order_Main.fieldbyname('ZdyNameZ').Value;
RMVariables['Zdr'] := Order_Main.fieldbyname('Filler').Value;
RMVariables['WzPrice'] := Order_Main.fieldbyname('WzPrice').Value;
RMVariables['BZNote'] := Order_Main.fieldbyname('BZNote').Value;
RMVariables['ZZYQ'] := Order_Main.fieldbyname('ZZYQ').Value;
RMVariables['ZZSH'] := Order_Main.fieldbyname('ZZSH').Value;
RMVariables['MFZZS'] := Order_Main.fieldbyname('MFZZS').Value;
RMVariables['ALBL'] := Order_Main.fieldbyname('ALBL').Value;
RMVariables['gongyi'] := Order_Main.fieldbyname('gongyi').Value;
RMVariables['ZongJieNote'] := Order_Main.fieldbyname('ZongJieNote').Value;
RMVariables['ZhenCun'] := Order_Main.fieldbyname('ZhenCun').Value;
RMVariables['Filler'] := Order_Main.fieldbyname('Filler').Value;
RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value;
RMVariables['HTSYRName'] := Order_Main.fieldbyname('HTSYRName').Value;
RMVariables['YWY'] := Order_Main.fieldbyname('YWY').Value;
RMVariables['KJTS'] := Order_Main.fieldbyname('KJTS').Value;
RMVariables['PBMF'] := Order_Main.fieldbyname('PBMF').Value;
RMVariables['PBKZ'] := Order_Main.fieldbyname('PBKZ').Value;
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\坯布生产计划单.rmf'), '提示', 0);
end;
end;
procedure TfrmClothSCList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmClothSCList.TBAddClick(Sender: TObject);
begin
try
frmClothSCInPut := TfrmClothSCInPut.Create(Application);
with frmClothSCInPut do
begin
PState := 0;
FMainId := '';
FSubId := '';
if ShowModal = 1 then
begin
end;
end;
finally
frmClothSCInPut.Free;
end;
end;
procedure TfrmClothSCList.ConNoChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmClothSCList.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmClothSCList.conPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
if Length(Trim(ConNo.Text)) < 4 then
Exit;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
//sql.Add('exec Cloth_QryList :MainId,:WSql');
// Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''
// +' and ConType=''生产'' ';
sql.Add('select * from Cloth_Main A inner join CLoth_Sub B on A.Mainid=B.MainId');
sql.Add(' where A.ConNo like ''' + '%' + Trim(ConNo.Text) + '%' + '''');
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
end;
procedure TfrmClothSCList.TBViewClick(Sender: TObject);
begin
try
frmClothSCInPut := TfrmClothSCInPut.Create(Application);
with frmClothSCInPut do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
FSubId := Trim(Self.Order_Main.fieldbyname('SubId').AsString);
FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
TBSave.Visible := False;
ToolBar3.Visible := False;
ScrollBox1.Enabled := False;
if ShowModal = 1 then
begin
end;
end;
finally
frmClothSCInPut.Free;
end;
end;
procedure TfrmClothSCList.TBCopyClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmClothSCInPut := TfrmClothSCInPut.Create(Application);
with frmClothSCInPut do
begin
PState := 1;
FCopyInt := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmClothSCInPut.Free;
end;
end;
procedure TfrmClothSCList.ToolButton1Click(Sender: TObject);
var
fPrintFile: string;
begin
if Order_Main.IsEmpty then
Exit;
if Trim(WFGYSName.Text) = '' then
begin
Application.MessageBox('外发单位不能为空!', '提示', 0);
Exit;
end;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\外发工艺单.rmf';
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select SPZ1=PZ1,SPZ2=PZ2,SPZ3=PZ3,SPZ4=PZ4,SPZ5=PZ5,SPZ6=PZ6,SPZ7=PZ7,SPZ8=PZ8,SPZ9=PZ9,SPZ10=PZ10, ');
sql.Add(' SPZ11=PZ11,SPZ12=PZ12,SPZ13=PZ13,SPZ14=PZ14,SPZ15=PZ15,SPZ16=PZ16,SPZ17=PZ17,SPZ18=PZ18,SPZ19=PZ19,SPZ20=PZ20, ');
sql.Add(' SPZ21=PZ21,SPZ22=PZ22,SPZ23=PZ23,SPZ24=PZ24,SPZ25=PZ25,SPZ26=PZ26,SPZ27=PZ27,SPZ28=PZ28,SPZ29=PZ29,SPZ30=PZ30, ');
sql.Add(' SPZ31=PZ31,SPZ32=PZ32,SPZ33=PZ33,SPZ34=PZ34,SPZ35=PZ35,SPZ36=PZ36 ');
sql.Add(' from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
sql.Add(' and RTrim(PZType)=''排针'' ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_PZ);
SInitCDSData(ADOQueryTemp, CDS_PZ);
if CDS_PZ.IsEmpty then
begin
CDS_PZ.Append;
CDS_PZ.Post;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
sql.Add(' and RTrim(PZType)=''三角'' ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_SJ);
SInitCDSData(ADOQueryTemp, CDS_SJ);
if CDS_SJ.IsEmpty then
begin
CDS_SJ.Append;
CDS_SJ.Post;
end;
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('Select A.* ');
sql.Add(',YLQty=Cast(C_Qty*PBQty*0.01*(1+isnull(ZPSH,0)*0.01) as decimal(18,1))');
sql.Add(' from Cloth_YCL_PB A');
sql.Add(' inner join Cloth_Sub B on A.SubId=B.SubId');
sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_PRT);
SInitCDSData(ADOQueryTemp, CDS_PRT);
if CDS_PRT.IsEmpty then
begin
CDS_PRT.Append;
CDS_PRT.Post;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, ClientDataSet1);
SInitCDSData(ADOQueryTemp, ClientDataSet1);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Cloth_WJG where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
sql.Add(' and WFGYSName=''' + Trim(WFGYSName.Text) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_WJG);
SInitCDSData(ADOQueryTemp, CDS_WJG);
if FileExists(fPrintFile) then
begin
RM1.LoadFromFile(fPrintFile);
RMVariables['WFGYSName'] := CDS_WJG.fieldbyname('WFGYSName').Value;
RMVariables['WFJHPS'] := CDS_WJG.fieldbyname('WFJHPS').Value;
RMVariables['WFJHQty'] := CDS_WJG.fieldbyname('WFJHQty').Value;
RMVariables['JGPrice'] := CDS_WJG.fieldbyname('JGPrice').Value;
RMVariables['JHJiaoQi'] := CDS_WJG.fieldbyname('JHJiaoQi').Value;
RMVariables['C_Code'] := Order_Main.fieldbyname('C_Code').Value;
RMVariables['ConNo'] := Order_Main.fieldbyname('ConNo').Value;
RMVariables['C_CodeName'] := Order_Main.fieldbyname('C_CodeName').Value;
RMVariables['DayQty'] := Order_Main.fieldbyname('DayQty').Value;
RMVariables['CarType'] := Order_Main.fieldbyname('CarType').Value;
RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
RMVariables['KZQty'] := Order_Main.fieldbyname('KZQty').Value;
RMVariables['MFQty'] := Order_Main.fieldbyname('MFQty').Value;
RMVariables['KZ'] := Order_Main.fieldbyname('KZ').Value;
RMVariables['MF'] := Order_Main.fieldbyname('MF').Value;
RMVariables['PiKgQty'] := Order_Main.fieldbyname('PiKgQty').Value;
RMVariables['ZhuanQty'] := Order_Main.fieldbyname('ZhuanQty').Value;
RMVariables['PiQty'] := Order_Main.fieldbyname('PiQty').Value;
RMVariables['C_Qty'] := Order_Main.fieldbyname('C_Qty').Value;
RMVariables['QDTime'] := Order_Main.fieldbyname('QDTime').Value;
RMVariables['C_Note'] := Order_Main.fieldbyname('C_Note').Value;
RMVariables['DeliveryDate'] := Order_Main.fieldbyname('DeliveryDate').Value;
RMVariables['ShaChang1'] := Order_Main.fieldbyname('ShaChang').Value;
RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
RMVariables['C_Spec'] := Order_Main.fieldbyname('C_Spec').Value;
RMVariables['C_Color'] := Order_Main.fieldbyname('C_Color').Value;
RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
RMVariables['PiKgQtyFD'] := Order_Main.fieldbyname('PiKgQtyFD').Value;
RMVariables['Price'] := Order_Main.fieldbyname('Price').Value;
RMVariables['MFZZS'] := Order_Main.fieldbyname('MFZZS').Value;
RMVariables['ALBL'] := Order_Main.fieldbyname('ALBL').Value;
RMVariables['gongyi'] := Order_Main.fieldbyname('gongyi').Value;
RMVariables['ZongJieNote'] := Order_Main.fieldbyname('ZongJieNote').Value;
RMVariables['ZhenCun'] := Order_Main.fieldbyname('ZhenCun').Value;
RMVariables['BZNote'] := Order_Main.fieldbyname('BZNote').Value;
RMVariables['ZZYQ'] := Order_Main.fieldbyname('ZZYQ').Value;
RMVariables['Zdr'] := Order_Main.fieldbyname('Filler').Value;
RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value;
RMVariables['HTSYRName'] := Order_Main.fieldbyname('HTSYRName').Value;
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\外发工艺单.rmf'), '提示', 0);
end;
end;
procedure TfrmClothSCList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
fsj: string;
begin
if Order_Main.IsEmpty = False then
fsj := 'select Name=WFGYSName,Code=WFGYSNo from Cloth_WJG where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''
else
fsj := 'select Name=WFGYSName,Code=WFGYSNo from Cloth_WJG where 1=2';
WFGYSName.Items.Clear;
SInitComBoxBySql(ADOQueryTemp, WFGYSName, True, fsj);
end;
end.

517
发货申请(ShipmentRequest.dll)/U_ClothSCYWYListSel.dfm Normal file
View File

@ -0,0 +1,517 @@
object frmClothSCYWYListSel: TfrmClothSCYWYListSel
Left = 333
Top = 165
Width = 1280
Height = 581
Caption = #36710#38388#29983#20135#35745#21010#21333
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1264
AutoSize = True
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
OnClick = TBFindClick
end
object TBExport: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #30830#35748
ImageIndex = 10
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1264
Height = 54
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 23
Top = 22
Width = 52
Height = 12
Caption = #30331#35760#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 161
Top = 22
Width = 18
Height = 12
Caption = '---'
end
object Label3: TLabel
Left = 283
Top = 22
Width = 39
Height = 12
Caption = #35746#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 418
Top = 22
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 569
Top = 22
Width = 52
Height = 12
Caption = #20135#21697#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 721
Top = 22
Width = 26
Height = 12
Caption = #25209#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 76
Top = 18
Width = 85
Height = 20
Date = 40675.464742650460000000
Format = 'yyyy-MM-dd'
Time = 40675.464742650460000000
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 179
Top = 18
Width = 86
Height = 20
Date = 40675.464761099540000000
Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 1
end
object ConNo: TEdit
Tag = 2
Left = 324
Top = 18
Width = 81
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 2
OnChange = ConNoChange
OnKeyPress = conPress
end
object C_CodeName: TEdit
Tag = 2
Left = 472
Top = 18
Width = 83
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 3
OnChange = ConNoChange
end
object C_Code: TEdit
Tag = 2
Left = 623
Top = 18
Width = 83
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 4
OnChange = ConNoChange
end
object BatchNoHZ: TEdit
Tag = 2
Left = 749
Top = 18
Width = 110
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 5
OnChange = ConNoChange
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 86
Width = 1264
Height = 457
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
Column = v1Column6
end
item
Kind = skSum
Column = v1Column6
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1PRTOrderQty
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column6
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Header = DataLink_ShipmentRequest.Default
object v1OrderNo: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'ConNo'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 100
end
object v1Column31: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'KHName'
HeaderAlignmentHorz = taCenter
Width = 113
end
object v1Column5: TcxGridDBColumn
Caption = #19979#21333#26085#26399
DataBinding.FieldName = 'QDTime'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 66
end
object v1Column19: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DeliveryDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 95
end
object v1Column2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_CodeName'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 74
end
object v1Column21: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 92
end
object v1Column20: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object v1Column9: TcxGridDBColumn
Caption = #26426#22411
DataBinding.FieldName = 'CarType'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 69
end
object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133'(cm)'
DataBinding.FieldName = 'MF'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 69
end
object v1Column32: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustomerNoName'
HeaderAlignmentHorz = taCenter
Width = 76
end
object v1PRTKZ: TcxGridDBColumn
Caption = #20811#37325'(g/'#13217')'
DataBinding.FieldName = 'KZ'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 76
end
object v1Column6: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'PiQty'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 59
end
object v1Column7: TcxGridDBColumn
Caption = #21305#37325'(KG)'
DataBinding.FieldName = 'PiKgQty'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 72
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #35746#21333#25968#37327'(KG)'
DataBinding.FieldName = 'C_Qty'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 92
end
object v1Column12: TcxGridDBColumn
Caption = #36716#25968
DataBinding.FieldName = 'ZhuanQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 64
end
object v1Column10: TcxGridDBColumn
Caption = #32433#38271
DataBinding.FieldName = 'ShaChang'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.FonePurple
Width = 61
end
object v1Column15: TcxGridDBColumn
Caption = #21305#37325#28014#21160#177'Kg'
DataBinding.FieldName = 'PiKgQtyFD'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.FonePurple
Width = 100
end
object v1Column4: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'C_Note'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 68
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 688
Top = 196
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 600
Top = 200
end
object ADOQueryMain: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 548
Top = 196
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 640
Top = 200
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 840
Top = 232
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 808
Top = 232
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBPRT
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 448
Top = 208
ReportData = {}
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 488
Top = 200
end
object CDS_PRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 464
Top = 280
end
object RMDBPRT: TRMDBDataSet
Visible = True
DataSet = CDS_PRT
Left = 496
Top = 280
end
end

282
发货申请(ShipmentRequest.dll)/U_ClothSCYWYListSel.pas Normal file
View File

@ -0,0 +1,282 @@
unit U_ClothSCYWYListSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxPC;
type
TfrmClothSCYWYListSel = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
ConNo: TEdit;
Label5: TLabel;
C_CodeName: TEdit;
TBExport: TToolButton;
Order_Main: TClientDataSet;
RM1: TRMGridReport;
RMXLSExport1: TRMXLSExport;
CDS_PRT: TClientDataSet;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1OrderNo: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1PRTMF: TcxGridDBColumn;
v1PRTKZ: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
RMDBPRT: TRMDBDataSet;
v1Column12: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
Label10: TLabel;
C_Code: TEdit;
v1Column10: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
Label6: TLabel;
BatchNoHZ: TEdit;
v1Column31: TcxGridDBColumn;
v1Column32: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure conPress(Sender: TObject; var Key: Char);
procedure cxTabControl1Change(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FInt, PFInt: Integer;
procedure InitGrid();
procedure InitForm();
function DelData(): Boolean;
procedure InitButton();
{ Private declarations }
public
canshu1, FCheJian: string;
{ Public declarations }
end;
var
frmClothSCYWYListSel: TfrmClothSCYWYListSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmClothSCYWYListSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmClothSCYWYListSel.InitButton();
begin
end;
procedure TfrmClothSCYWYListSel.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid(Self.Caption, Tv1, '坯布生产管理');
end;
procedure TfrmClothSCYWYListSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.* ');
sql.Add(' from Cloth_Main A inner join CLoth_Sub B on A.Mainid=B.MainId');
sql.Add(' where A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
// sql.Add(' and Filler=' + QuotedStr(Trim(DName)));
sql.Add('and isnull(A.status,''0'')=''2''');
sql.Add(' order by A.FillTIme desc');
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmClothSCYWYListSel.InitForm();
begin
InitButton();
ReadCxGrid(Self.Caption, Tv1, '坯布生产管理');
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 7;
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
InitGrid();
end;
procedure TfrmClothSCYWYListSel.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
function TfrmClothSCYWYListSel.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Cloth_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Cloth_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
ExecSQL;
end;
end;
if Trim(Order_Main.fieldbyname('SubId').AsString) = '' then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Cloth_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
ExecSQL;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Cloth_YCL_PB where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('数据删除异常！', '提示', 0);
end;
end;
procedure TfrmClothSCYWYListSel.TBExportClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmClothSCYWYListSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmClothSCYWYListSel.ConNoChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmClothSCYWYListSel.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmClothSCYWYListSel.conPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
if Length(Trim(ConNo.Text)) < 4 then
Exit;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
//sql.Add('exec Cloth_QryList :MainId,:WSql');
// Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''
// +' and ConType=''生产'' ';
sql.Add('select * from Cloth_Main A inner join CLoth_Sub B on A.Mainid=B.MainId');
sql.Add(' where A.ConNo like ''' + '%' + Trim(ConNo.Text) + '%' + '''');
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
end;
procedure TfrmClothSCYWYListSel.cxTabControl1Change(Sender: TObject);
begin
InitButton();
InitGrid();
end;
procedure TfrmClothSCYWYListSel.FormDestroy(Sender: TObject);
begin
frmClothSCYWYListSel := nil;
end;
end.

872
发货申请(ShipmentRequest.dll)/U_ContractListNXSel.dfm Normal file
View File

@ -0,0 +1,872 @@
object frmContractListNXSel: TfrmContractListNXSel
Left = 223
Top = 171
Align = alClient
Caption = #38144#21806#21512#21516
ClientHeight = 688
ClientWidth = 1292
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1292
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
Visible = False
OnClick = TBFindClick
end
object TBClose: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 73
Width = 1292
Height = 357
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>
OnCustomDrawCell = Tv1CustomDrawCell
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
OptionsView.Indicator = True
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
Styles.Header = DataLink_ShipmentRequest.Default
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
object v1Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
Visible = False
HeaderAlignmentHorz = taCenter
Width = 49
end
object v1ConNo: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 67
end
object v1Column8: TcxGridDBColumn
Caption = 'PO#'
DataBinding.FieldName = 'KHConNo'
HeaderAlignmentHorz = taCenter
Width = 77
end
object v1Column9: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'PrtCode'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object v1Column11: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'PrtCodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object v1Column22: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'XSType'
HeaderAlignmentHorz = taCenter
Width = 87
end
object v1Column1: TcxGridDBColumn
Caption = #20379#26041
DataBinding.FieldName = 'SYRName'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 89
end
object v1CustomerNoName: TcxGridDBColumn
Caption = #38656#26041
DataBinding.FieldName = 'CustomerNoName'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 87
end
object v1OrdPerson1: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'ConPerson1'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 78
end
object v1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 71
end
object v1OrdDate: TcxGridDBColumn
Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'OrdDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 70
end
object v1PRTOrderQty: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'ConQty'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 67
end
object v1Column2: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'ConQtyUnit'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 64
end
object v1MPRTCF: TcxGridDBColumn
Caption = #28322#30701#35013
DataBinding.FieldName = 'QtyNote'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 88
end
object v1Column10: TcxGridDBColumn
DataBinding.FieldName = 'status'
Visible = False
VisibleForCustomization = False
end
object v1Column3: TcxGridDBColumn
Caption = #24050#20570#35745#21010#21333
DataBinding.FieldName = 'JHDFlag'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object v1Column12: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'ForOrderNo'
HeaderAlignmentHorz = taCenter
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel1: TPanel
Left = 0
Top = 30
Width = 1292
Height = 43
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 23
Top = 15
Width = 52
Height = 12
Caption = #21046#21333#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 263
Top = 15
Width = 40
Height = 12
Caption = #38656' '#26041
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 399
Top = 15
Width = 39
Height = 12
Caption = #19994#21153#21592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 430
Top = 99
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 526
Top = 15
Width = 39
Height = 12
Caption = #21512#21516#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 303
Top = 99
Width = 26
Height = 12
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 303
Top = 123
Width = 26
Height = 12
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 160
Top = 16
Width = 6
Height = 12
Caption = '-'
end
object Label3: TLabel
Left = 655
Top = 15
Width = 21
Height = 12
Caption = 'PO#'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 770
Top = 15
Width = 26
Height = 12
Caption = #31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 890
Top = 17
Width = 52
Height = 12
Caption = #20135#21697#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 76
Top = 11
Width = 85
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 168
Top = 11
Width = 86
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 1
end
object CustomerNoName: TEdit
Tag = 2
Left = 311
Top = 11
Width = 78
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 2
OnChange = CustomerNoNameChange
end
object ConPerson1: TEdit
Tag = 2
Left = 440
Top = 11
Width = 76
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 3
OnChange = CustomerNoNameChange
end
object MPRTCodeName: TEdit
Tag = 2
Left = 483
Top = 95
Width = 76
Height = 20
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 9
OnChange = CustomerNoNameChange
end
object ConNo: TEdit
Tag = 2
Left = 567
Top = 11
Width = 77
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 4
OnChange = CustomerNoNameChange
end
object MPRTKZ: TEdit
Tag = 2
Left = 332
Top = 95
Width = 56
Height = 20
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 8
OnChange = CustomerNoNameChange
end
object MPRTMF: TEdit
Tag = 2
Left = 332
Top = 119
Width = 56
Height = 20
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 10
OnChange = CustomerNoNameChange
end
object KHConNO: TEdit
Tag = 2
Left = 677
Top = 11
Width = 80
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 5
OnChange = CustomerNoNameChange
end
object XSType: TComboBox
Tag = 1
Left = 800
Top = 12
Width = 80
Height = 20
Style = csDropDownList
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 6
OnChange = CustomerNoNameChange
Items.Strings = (
#32463#38144
#21152#24037
#25171#26679
'')
end
object PrtCode: TEdit
Tag = 2
Left = 951
Top = 13
Width = 80
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 7
OnChange = CustomerNoNameChange
end
end
object cxSplitter1: TcxSplitter
Left = 0
Top = 430
Width = 1292
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
Control = cxGrid2
ExplicitWidth = 8
end
object cxGrid2: TcxGrid
Left = 0
Top = 438
Width = 1292
Height = 250
Align = alBottom
TabOrder = 4
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = Tv2CellDblClick
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
Column = cxGridDBColumn5
end
item
Format = '0'
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
Styles.Header = DataLink_ShipmentRequest.Default
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
object v1XHNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'XHNo'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.Default
Width = 35
end
object v2Column2: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'PrtCode'
HeaderAlignmentHorz = taCenter
Width = 87
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'PrtCodeName'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.handBlack
Width = 107
end
object v1Column5: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'prtspec'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.handBlack
Width = 70
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = False
HeaderAlignmentHorz = taCenter
Options.Sorting = False
Styles.Header = DataLink_ShipmentRequest.handBlack
Width = 90
end
object v1Column6: TcxGridDBColumn
Caption = #38376#24133'CM'
DataBinding.FieldName = 'prtmf'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.handBlack
Width = 59
end
object v1Column7: TcxGridDBColumn
Caption = #20811#37325'g/'#13217
DataBinding.FieldName = 'prtkz'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.handBlack
Width = 64
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'PRTOrderQty'
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.handBlack
Width = 60
end
object v1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrderUnit'
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = (
'M'
'Y'
'KG')
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.handBlack
Width = 62
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'SOrdDefNote1'
HeaderAlignmentHorz = taCenter
Width = 113
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 1016
Top = 184
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 704
Top = 176
end
object ADOQueryMain: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 728
Top = 176
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 776
Top = 176
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 984
Top = 184
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 960
Top = 184
end
object RMDBDataSet1: TRMDBDataSet
Visible = True
DataSet = CDS_Print
Left = 280
Top = 136
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 376
Top = 136
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 752
Top = 176
end
object CDS_Print: TClientDataSet
Aggregates = <>
Params = <>
Left = 312
Top = 136
end
object ADOQuerySub: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 804
Top = 176
end
object DataSource2: TDataSource
DataSet = ClientDataSet2
Left = 464
Top = 608
end
object ClientDataSet2: TClientDataSet
Aggregates = <>
Params = <>
Left = 512
Top = 600
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 560
Top = 600
end
object CDS_Note: TClientDataSet
Aggregates = <>
Params = <>
Left = 344
Top = 136
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBDataSet1
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 248
Top = 136
ReportData = {}
end
object RMDBDataSet2: TRMDBDataSet
Visible = True
DataSet = CDS_Note
Left = 216
Top = 136
end
end

345
发货申请(ShipmentRequest.dll)/U_ContractListNXSel.pas Normal file
View File

@ -0,0 +1,345 @@
unit U_ContractListNXSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
Menus, cxPC, cxButtonEdit, cxDropDownEdit, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu;
type
TfrmContractListNXSel = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
v1OrdDate: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
v1OrdPerson1: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
v1MPRTCF: TcxGridDBColumn;
Order_Main: TClientDataSet;
RMDBDataSet1: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
v1CustomerNoName: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
ADOQueryPrint: TADOQuery;
CDS_Print: TClientDataSet;
v1Column4: TcxGridDBColumn;
Panel1: TPanel;
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Label12: TLabel;
Label13: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CustomerNoName: TEdit;
ConPerson1: TEdit;
MPRTCodeName: TEdit;
ConNo: TEdit;
MPRTKZ: TEdit;
MPRTMF: TEdit;
v1Column2: TcxGridDBColumn;
cxSplitter1: TcxSplitter;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
v1Column8: TcxGridDBColumn;
Label2: TLabel;
KHConNO: TEdit;
Label3: TLabel;
v1Column10: TcxGridDBColumn;
//RMllPDFExport1: TRMllPDFExport;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
v1XHNo: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
ClientDataSet2: TClientDataSet;
cxGridPopupMenu2: TcxGridPopupMenu;
CDS_Note: TClientDataSet;
v2Column2: TcxGridDBColumn;
RM1: TRMGridReport;
v1Column22: TcxGridDBColumn;
Label6: TLabel;
XSType: TComboBox;
RMDBDataSet2: TRMDBDataSet;
v1Column3: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
Label7: TLabel;
PrtCode: TEdit;
v1Column12: TcxGridDBColumn;
//RMllPDFExport1: TRMllPDFExport;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
var ADone: Boolean);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Tv2CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
private
DQdate:TDateTime;
fuserName,canshu1,canshu2:string;
procedure InitGrid();
procedure InitForm();
function DelData():Boolean;
procedure SetStatus();
{ Private declarations }
public
FFInt,FCloth:Integer;
{ Public declarations }
end;
var
frmContractListNXSel: TfrmContractListNXSel;
implementation
uses
U_DataLink,U_RTFun,U_ZDYHelp;
{$R *.dfm}
procedure TfrmContractListNXSel.SetStatus();
begin
end;
procedure TfrmContractListNXSel.FormDestroy(Sender: TObject);
begin
frmContractListNXSel:=nil;
end;
procedure TfrmContractListNXSel.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmContractListNXSel.FormCreate(Sender: TObject);
begin
canshu1:=Trim(DParameters1);
canshu2:=Trim(DParameters2);
cxgrid1.Align:=alClient;
DQdate:=SGetServerDate(ADOQueryTemp);
end;
procedure TfrmContractListNXSel.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('内销合同',Tv1,'生产指示单管理');
WriteCxGrid('内销合同11',Tv2,'生产指示单管理');
end;
procedure TfrmContractListNXSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Close;
sql.Clear;
sql.Add(' select A.* ');
sql.Add(',Case when isnull((select count(*) from TP_File where WBID=A.MainID and TFType=''合同'' ),0)>0 ');
sql.Add('then Cast(1 as bit) else Cast(0 as bit) end as FJFlag');
sql.Add(',PrtCode=cast((select distinct '' ''+ PrtCode from JYOrderCon_Sub_PB JCS where JCS.MainId=A.MainId for xml path('''')) as varchar(120))');
sql.Add(',PrtCodeName=cast((select distinct '' ''+ PrtCodeName from JYOrderCon_Sub_PB JCS where JCS.MainId=A.MainId for xml path('''')) as varchar(120))');
sql.Add(',Case when isnull((select count(*) from Cloth_Main where ConMainId=A.MainID ),0)>0 ');
sql.Add('then Cast(1 as bit) else Cast(0 as bit) end as JHDFlag');
sql.Add(',ZdyNameZ=(select X.ZdyNameZ from KH_Zdy_Attachment X where X.Type=''KHName'' and X.ZdyCode=A.CustomerNo)');
sql.Add(' from JYOrderCon_Main_PB A where status=''1'' ');
sql.Add(' and A.OrdDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''');
sql.Add(' and A.OrdDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''');
SQL.Add(' order by A.OrdDate desc');
Open;
end;
SCreateCDS(ADOQueryMain,Order_Main);
SInitCDSData(ADOQueryMain,Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmContractListNXSel.InitForm();
begin
ReadCxGrid('内销合同',Tv1,'生产指示单管理');
ReadCxGrid('内销合同11',Tv2,'生产指示单管理');
EndDate.DateTime:=SGetServerDate(ADOQueryTemp);
BegDate.DateTime:=EndDate.DateTime-90;
end;
procedure TfrmContractListNXSel.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS(ADOQueryMain,Order_Main);
SInitCDSData(ADOQueryMain,Order_Main);
end;
function TfrmContractListNXSel.DelData():Boolean;
begin
try
Result:=false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete JYOrderCon_Sub_PB where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete JYOrderCon_Main_PB where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
Result:=True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result:=False;
Application.MessageBox('数据删除异常！','提示',0);
end;
end;
procedure TfrmContractListNXSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
TBFind.Click;
end;
procedure TfrmContractListNXSel.FormShow(Sender: TObject);
begin
fuserName:=DCode;
InitForm();
SetStatus();
InitGrid();
end;
procedure TfrmContractListNXSel.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmContractListNXSel.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmContractListNXSel.N1Click(Sender: TObject);
var
fPrintFile:string;
Porderno:string;
begin
if Order_Main.IsEmpty then Exit;
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\生产指示单10.rmf' ;
SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+'''');
SCreateCDS(ADOQueryMain,Order_Main);
SInitCDSData(ADOQueryMain,Order_Main);
Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').AsString);
if FileExists(fPrintFile) then
begin
//RMVariables['begindate']:=begindate.DateTime;
//RMVariables['enddate']:=enddate.DateTime;
//RMVariables['printtime']:=Now;
//RMVariables['printer']:=Trim(gUserName);
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end else
begin
Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\生产指示单10.rmf'),'提示',0);
end;
SDofilter(ADOQueryMain,'');
SCreateCDS(ADOQueryMain,Order_Main);
SInitCDSData(ADOQueryMain,Order_Main);
Order_Main.Locate('ordernoM',Porderno,[]);
end;
procedure TfrmContractListNXSel.CustomerNoNameChange(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS(ADOQueryMain,Order_Main);
SInitCDSData(ADOQueryMain,Order_Main);
end;
procedure TfrmContractListNXSel.Tv1CustomDrawCell(
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('JHDFlag').Index]=True then
ACanvas.Brush.Color:=clSkyBlue;
end;
procedure TfrmContractListNXSel.Tv1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
if Order_Main.IsEmpty=False then
sql.Add('select * from JYOrderCon_Sub_PB A where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''')
else
sql.Add('select * from JYOrderCon_Sub_PB A where 1=2');
Open;
end;
SCreateCDS(ADOQueryTemp,ClientDataSet2);
SInitCDSData(ADOQueryTemp,ClientDataSet2);
end;
procedure TfrmContractListNXSel.Tv2CellDblClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
ModalResult:=1;
end;
end.

14279
发货申请(ShipmentRequest.dll)/U_DataLink.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

127
发货申请(ShipmentRequest.dll)/U_DataLink.pas Normal file
View File

@ -0,0 +1,127 @@
unit U_DataLink;
interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore,
dxSkinsDefaultPainters, System.ImageList, Vcl.ExtCtrls, SyncObjs, dxSkinWXI,
U_BaseDataLink, dxCore, cxLocalization, cxImageList, cxGraphics, dxSkinsForm;
type
TMyThread = class(TThread)
protected
procedure Execute; override;
end;
var
DConString: string; {全局连接字符串}
server, dtbase, user, pswd: string; {数据库连接参数}
DCurHandle: hwnd; //当前窗体句柄
DName: string; //#用户名#//
DCode: string; //#用户编号#//
Ddatabase: string; //#数据库名称#//
DTitCaption: string; //#主窗体名称#//
DParameters1, DParameters2, DParameters3, DParameters4, DParameters5: string; // 外部参数；
DParameters6, DParameters7, DParameters8, DParameters9, DParameters10: string; //外部参数；
OldDllApp: Tapplication; //保存原有句柄
NewDllApp: Tapplication; //当前句柄
MainApplication: Tapplication;
DFormCode: integer; //当前窗口号
IsDelphiLanguage: integer;
DServerDate: TdateTime; //服务器时间
DCompany: string; //公司
PicSvr: string;
UserDataFlag, fDllFileName: string;
type
TDataLink_ShipmentRequest = class(TBaseDataLink)
AdoDataLink: TADOQuery;
ADOLink: TADOConnection;
ThreeImgList: TImageList;
ThreeLookAndFeelCol: TcxLookAndFeelController;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
ImageList_new32: TImageList;
Timer_link: TTimer;
procedure DataModuleDestroy(Sender: TObject);
procedure DataModuleCreate(Sender: TObject);
procedure Timer_linkTimer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TMakebar = procedure(ucData: pchar; nDataLen: integer; nErrLevel: integer; nMask: integer; nBarEdition: integer; szBmpFileName: pchar; nScale: integer); stdcall;
TMixtext = procedure(szSrcBmpFileName: PChar; szDstBmpFileName: PChar; sztext: PChar; fontsize, txtheight, hmargin, vmargin, txtcntoneline: integer); stdcall;
var
DataLink_ShipmentRequest: TDataLink_ShipmentRequest;
CriticalSection: TCriticalSection; {声明临界}
implementation
{$R *.dfm}
procedure TMyThread.Execute;
begin
FreeOnTerminate := True;
CriticalSection.Enter;
try
with DataLink_ShipmentRequest.AdoDataLink do
begin
close;
sql.Clear;
sql.Add('select getdate()');
open;
end;
except
try
with DataLink_ShipmentRequest.ADOLink do
begin
Connected := false;
ConnectionString := DConString;
LoginPrompt := false;
Connected := true;
end;
except
end;
end;
CriticalSection.Leave;
end;
procedure TDataLink_ShipmentRequest.DataModuleCreate(Sender: TObject);
begin
inherited;
CriticalSection := TCriticalSection.Create;
end;
procedure TDataLink_ShipmentRequest.DataModuleDestroy(Sender: TObject);
begin
inherited;
CriticalSection.Free;
DataLink_ShipmentRequest := nil;
end;
procedure TDataLink_ShipmentRequest.Timer_linkTimer(Sender: TObject);
begin
TMyThread.Create(False);
end;
end.

803
发货申请(ShipmentRequest.dll)/U_FHSQInPut.dfm Normal file
View File

@ -0,0 +1,803 @@
object frmFHSQInPut: TfrmFHSQInPut
Left = 302
Top = 139
Caption = #21457#36135#30003#35831#24405#20837
ClientHeight = 644
ClientWidth = 1252
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Tag = 1
Left = 0
Top = 0
Width = 1252
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_ShipmentRequest.ImageList_new32
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 38
Width = 1252
Height = 99
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
Color = 16242829
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
object Label14: TLabel
Left = 967
Top = 169
Width = 67
Height = 12
Caption = #23458' '#25143#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label1: TLabel
Left = 244
Top = 13
Width = 65
Height = 12
Caption = #20986#24211#31867#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 31
Top = 69
Width = 67
Height = 12
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 33
Top = 42
Width = 65
Height = 12
Caption = #25910#36135#21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lbl2: TLabel
Left = 505
Top = 180
Width = 91
Height = 12
Caption = #20132#36135#30830#35748#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label3: TLabel
Left = 244
Top = 42
Width = 67
Height = 12
Caption = #26588' '#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 456
Top = 13
Width = 65
Height = 12
Caption = #38144#21806#31867#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 732
Top = 172
Width = 65
Height = 12
Caption = #25552#36135#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label4: TLabel
Left = 639
Top = 13
Width = 65
Height = 12
Caption = #20184#27454#26465#20214#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 637
Top = 69
Width = 67
Height = 12
Caption = #31665' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 808
Top = 11
Width = 65
Height = 12
Caption = #20184#27454#21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 1147
Top = 10
Width = 65
Height = 12
Caption = #20215#26684#21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label9: TLabel
Left = 638
Top = 41
Width = 66
Height = 12
Caption = #25552' '#21333' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 59
Top = 12
Width = 39
Height = 12
Caption = #26588#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 469
Top = 72
Width = 52
Height = 12
Caption = #28023#36816#36153#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 469
Top = 43
Width = 52
Height = 12
Caption = #33337#26679#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label17: TLabel
Left = 806
Top = 67
Width = 67
Height = 12
Caption = #23553' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 807
Top = 39
Width = 66
Height = 12
Caption = #21457' '#31080' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 973
Top = 9
Width = 65
Height = 12
Caption = #28023#36816#20844#21496#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CRType: TComboBox
Tag = 1
Left = 306
Top = 9
Width = 136
Height = 20
Style = csDropDownList
ItemIndex = 0
TabOrder = 0
Text = #38144#21806#20986#24211
Items.Strings = (
#38144#21806#20986#24211)
end
object Note: TEdit
Tag = 1
Left = 96
Top = 66
Width = 346
Height = 18
TabOrder = 2
end
object SHDanWei: TBtnEditC
Tag = 1
Left = 96
Top = 39
Width = 138
Height = 20
TabOrder = 1
OnBtnUpClick = SHDanWeiBtnUpClick
OnBtnDnClick = SHDanWeiBtnDnClick
end
object CustomerNoName: TBtnEditA
Tag = 1
Left = 1035
Top = 168
Width = 139
Height = 20
ReadOnly = True
TabOrder = 3
Visible = False
OnBtnClick = CustomerNoNameBtnClick
end
object DLYDATE: TDateTimePicker
Tag = 1
Left = 593
Top = 176
Width = 110
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
TabOrder = 4
Visible = False
end
object GuiXing: TBtnEditC
Tag = 1
Left = 306
Top = 40
Width = 136
Height = 20
Hint = 'GuiXing/'#26588#22411
TabOrder = 5
OnBtnUpClick = GuiXingBtnUpClick
OnBtnDnClick = GuiXingBtnDnClick
end
object XSType: TComboBox
Tag = 1
Left = 520
Top = 9
Width = 100
Height = 20
Style = csDropDownList
TabOrder = 6
Items.Strings = (
#20869#38144
#22806#38144)
end
object THDATE: TDateTimePicker
Tag = 1
Left = 794
Top = 168
Width = 132
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
TabOrder = 7
Visible = False
end
object FKNote: TBtnEditC
Tag = 1
Left = 701
Top = 9
Width = 100
Height = 20
Hint = 'FKNote/'#20184#27454#26465#20214
TabOrder = 8
OnBtnUpClick = FKNoteBtnUpClick
OnBtnDnClick = GuiXingBtnDnClick
end
object FPNO: TEdit
Tag = 1
Left = 701
Top = 66
Width = 100
Height = 18
TabOrder = 9
end
object FKDanWei: TBtnEditC
Tag = 1
Left = 870
Top = 7
Width = 100
Height = 20
Hint = 'FKDanWei/'#20184#27454#21333#20301
TabOrder = 10
OnBtnUpClick = FKDanWeiBtnUpClick
OnBtnDnClick = FKDanWeiBtnDnClick
end
object JSQtyUnit: TComboBox
Tag = 1
Left = 1209
Top = 5
Width = 134
Height = 20
Style = csDropDownList
TabOrder = 11
Visible = False
OnChange = JSQtyUnitChange
Items.Strings = (
'Kg'
'M'
'Y')
end
object TiDanNo: TEdit
Tag = 1
Left = 701
Top = 39
Width = 100
Height = 18
TabOrder = 12
end
object GUINO: TEdit
Tag = 1
Left = 96
Top = 9
Width = 132
Height = 18
TabOrder = 13
end
object HYFEE: TEdit
Tag = 1
Left = 520
Top = 68
Width = 100
Height = 18
TabOrder = 14
Text = '0'
end
object CYSHU: TEdit
Tag = 1
Left = 520
Top = 39
Width = 100
Height = 18
TabOrder = 15
Text = '1'
end
object Fhao: TEdit
Tag = 1
Left = 870
Top = 64
Width = 100
Height = 18
TabOrder = 16
end
object FPhao: TEdit
Tag = 1
Left = 870
Top = 37
Width = 100
Height = 18
TabOrder = 17
end
object HYCOMPANY: TBtnEditC
Tag = 1
Left = 1035
Top = 5
Width = 100
Height = 20
Hint = 'FKDanWei/'#20184#27454#21333#20301
TabOrder = 18
OnBtnUpClick = HYCOMPANYBtnUpClick
OnBtnDnClick = HYCOMPANYBtnDnClick
end
end
object ToolBar2: TToolBar
Tag = 1
Left = 0
Top = 137
Width = 1252
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clBtnFace
DisabledImages = DataLink_ShipmentRequest.ImageList_new32
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton2Click
end
object Label16: TLabel
Left = 142
Top = 0
Width = 14
Height = 38
Align = alClient
BiDiMode = bdLeftToRight
Color = clHighlight
DragKind = dkDock
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -27
Font.Name = #23435#20307
Font.Style = []
ParentBiDiMode = False
ParentColor = False
ParentFont = False
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 175
Width = 1252
Height = 469
Align = alClient
TabOrder = 3
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1Column1
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
Styles.Footer = DataLink_ShipmentRequest.Default
Styles.Header = DataLink_ShipmentRequest.Default
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
object Tv1Column5: TcxGridDBColumn
Caption = #23458#25143#21517#31216
DataBinding.FieldName = 'ZKHNAME'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = Tv1Column5PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 81
end
object v1Column2: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'SCConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 144
end
object v1Column5: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'SPrtCode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object v1Column6: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'SPrtCodeName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
object v1Column1: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object v1Column7: TcxGridDBColumn
Caption = #33457#21495
DataBinding.FieldName = 'PRTHX'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column2: TcxGridDBColumn
Caption = #30003#35831#21305#25968
DataBinding.FieldName = 'SQPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 81
end
object cv1Column3: TcxGridDBColumn
Caption = #30003#35831#25968#37327
DataBinding.FieldName = 'sqqty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 90
end
object v1Column3: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'orderUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
'M'
'Y'
'KG')
HeaderAlignmentHorz = taCenter
Width = 81
end
object Tv1Column3: TcxGridDBColumn
Caption = #33457#22411#37325#37327
DataBinding.FieldName = 'HXWEIGHT'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
end
object v1Column8: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'SQPrice'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column8PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column9: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'SQMoney'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column1: TcxGridDBColumn
Caption = #31435#26041#25968
DataBinding.FieldName = 'LiFangQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv1Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #21253#25968
DataBinding.FieldName = 'baoshu'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column10: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'FHTYPE'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.Items.Strings = (
''
#22806#37319)
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_ShipmentRequest.FoneRed
Width = 66
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ADOTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 256
Top = 281
end
object ADOCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 328
Top = 281
end
object DataSource1: TDataSource
DataSet = Order_Sub
Left = 660
Top = 284
end
object Order_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 596
Top = 284
end
object ADOQuery1: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 188
Top = 281
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 528
Top = 284
end
object cxStyleRepository1: TcxStyleRepository
Left = 200
Top = 432
PixelsPerInch = 96
object dazi1: TcxStyle
AssignedValues = [svColor]
Color = clRed
end
end
end

815
发货申请(ShipmentRequest.dll)/U_FHSQInPut.pas Normal file
View File

@ -0,0 +1,815 @@
unit U_FHSQInPut;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters,
dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI, dxScrollbarAnnotations;
type
TfrmFHSQInPut = class(Tform)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DataSource1: TDataSource;
Order_Sub: TClientDataSet;
ADOQuery1: TADOQuery;
Label14: TLabel;
cxGridPopupMenu2: TcxGridPopupMenu;
Label1: TLabel;
CRType: TComboBox;
Note: TEdit;
Label12: TLabel;
Label11: TLabel;
SHDanWei: TBtnEditC;
CustomerNoName: TBtnEditA;
v1Column1: TcxGridDBColumn;
cv1Column3: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
dazi1: TcxStyle;
lbl2: TLabel;
DLYDATE: TDateTimePicker;
Label3: TLabel;
GuiXing: TBtnEditC;
v1Column2: TcxGridDBColumn;
Label7: TLabel;
XSType: TComboBox;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
Label2: TLabel;
THDATE: TDateTimePicker;
Label4: TLabel;
FKNote: TBtnEditC;
v1Column8: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
Label5: TLabel;
FPNO: TEdit;
Label6: TLabel;
FKDanWei: TBtnEditC;
Tv1Column2: TcxGridDBColumn;
Label8: TLabel;
JSQtyUnit: TComboBox;
Label9: TLabel;
TiDanNo: TEdit;
Tv1Column1: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Label10: TLabel;
GUINO: TEdit;
Label13: TLabel;
HYFEE: TEdit;
Label15: TLabel;
CYSHU: TEdit;
Label16: TLabel;
Tv1Column3: TcxGridDBColumn;
Label17: TLabel;
Label18: TLabel;
Fhao: TEdit;
FPhao: TEdit;
Label19: TLabel;
HYCOMPANY: TBtnEditC;
Tv1Column10: TcxGridDBColumn;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure SHDanWeiBtnUpClick(Sender: TObject);
procedure SHDanWeiBtnDnClick(Sender: TObject);
procedure CustomerNoNameBtnClick(Sender: TObject);
procedure GuiXingBtnUpClick(Sender: TObject);
procedure GuiXingBtnDnClick(Sender: TObject);
procedure FKNoteBtnUpClick(Sender: TObject);
procedure v1Column8PropertiesEditValueChanged(Sender: TObject);
procedure FKDanWeiBtnUpClick(Sender: TObject);
procedure JSQtyUnitChange(Sender: TObject);
procedure Tv1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure JSJE();
procedure Tv1Column1PropertiesEditValueChanged(Sender: TObject);
procedure FKDanWeiBtnDnClick(Sender: TObject);
procedure HYCOMPANYBtnUpClick(Sender: TObject);
procedure HYCOMPANYBtnDnClick(Sender: TObject);
private
fuserName: string;
procedure InitData();
function SaveData(): Boolean;
{ Private declarations }
public
PState, CopyInt: Integer;
FMainId, FFMainId, ChkStr, ConPriceStr: string;
FXS: Integer;
canshu2: string;
{ Public declarations }
end;
var
frmFHSQInPut: TfrmFHSQInPut;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_SQKCHZSelList, U_ContractListNXSel,
U_CPManageFMSel, U_ZdyAttachment, U_ClothSCYWYListSel, U_ProductOrderListSel2;
{$R *.dfm}
procedure TfrmFHSQInPut.JSJE();
var
Fliqty, FDJ, fjm, fjs: double;
begin
if TV1.DataController.Summary.FooterSummaryValues[0] <> NULL then
Fliqty := TV1.DataController.Summary.FooterSummaryValues[0]
else
Fliqty := 0;
label16.caption := '可用立方数为' + FLOATTOSTR(68 - Fliqty);
end;
procedure TfrmFHSQInPut.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('发货申请录入ZY', Tv1, '发货管理2');
end;
procedure TfrmFHSQInPut.InitData();
var
fsj: string;
begin
if PState = 0 then
begin
DLYDATE.datetime := strtodatetime(Trim(FormatDateTime('yyyy-MM-dd', Now)));
THDATE.DateTime := DLYDATE.datetime;
end;
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add(' select A.* ');
sql.Add(' from FHSQ_Sub A');
if PState = 1 then
begin
sql.Add('where FSId=''' + Trim(FMainId) + '''');
end;
if PState = 0 then
begin
sql.Add(' where 1<>1');
end;
Open;
end;
SCreateCDS(ADOQuery1, Order_Sub);
SInitCDSData(ADOQuery1, Order_Sub);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from FHSQ_Main A');
sql.Add(' where FSId=''' + Trim(FMainId) + ''' ');
Open;
end;
SCSHData(ADOQuery1, ScrollBox1, 1);
end;
procedure TfrmFHSQInPut.JSQtyUnitChange(Sender: TObject);
begin
if not Order_Sub.IsEmpty then
begin
exit;
end;
end;
procedure TfrmFHSQInPut.FormShow(Sender: TObject);
var
fsj: string;
begin
readCxGrid('发货申请录入ZY', Tv1, '发货管理2');
InitData();
end;
function TfrmFHSQInPut.SaveData(): Boolean;
var
maxno, maxmnno, FSSId: string;
fconNO, fmxType: string;
begin
try
ADOCmd.Connection.BeginTrans;
///保存主表
if Trim(FMainId) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'SM', 'FHSQ_Main', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败!', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(FMainId);
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from FHSQ_Main where FSID=''' + Trim(FMainId) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FMainId) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('SQType').Value := '订单';
FieldByName('FSID').Value := Trim(maxno);
FieldByName('FHDANWEI').Value := Trim(CANSHU2);
RTSetsavedata(ADOCmd, 'FHSQ_Main', ScrollBox1, 1);
if Trim(FMainId) = '' then
begin
FieldByName('Filler').Value := Trim(DName);
FieldByName('SQDate').Value := SGetServerDate(ADOTemp);
end
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
Post;
end;
FMainId := Trim(maxno);
///保存子表
Order_Sub.DisableControls;
with Order_Sub do
begin
First;
while not Eof do
begin
if Trim(Order_Sub.fieldbyname('SSId').AsString) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'SS', 'FHSQ_Sub', 4, 1) = False then
begin
Order_Sub.EnableControls;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('取子流水号失败！', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(Order_Sub.fieldbyname('SSId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from FHSQ_Sub ');
sql.Add(' where SSId=''' + Trim(maxno) + '''');
Open;
end;
if ADOCmd.IsEmpty then
begin
FSSId := '';
end
else
begin
FSSId := Trim(maxno);
end;
with ADOCmd do
begin
if Trim(FSSId) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('FSID').Value := Trim(FMainId);
FieldByName('SSID').Value := Trim(maxno);
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'FHSQ_Sub', 0);
FieldByName('MainId').Value := Order_Sub.fieldbyname('MainId').Value;
FieldByName('SubId').Value := Order_Sub.fieldbyname('SubId').Value;
FieldByName('SSConMainId').Value := Order_Sub.fieldbyname('SSConMainId').Value;
FieldByName('SSConSubId').Value := Order_Sub.fieldbyname('SSConSubId').Value;
if Order_Sub.fieldbyname('fhtype').Value = '外采' then
begin
FieldByName('FHPS').Value := Order_Sub.fieldbyname('sqPS').Value;
if FieldByName('orderUnit').Value = 'KG' then
begin
FieldByName('FHKGQTY').Value := Order_Sub.fieldbyname('sqqty').Value;
end;
if FieldByName('orderUnit').Value = 'Y' then
begin
FieldByName('FHYQTY').Value := Order_Sub.fieldbyname('sqqty').Value;
end;
if FieldByName('orderUnit').Value = 'M' then
begin
FieldByName('FHQTY').Value := Order_Sub.fieldbyname('sqqty').Value;
end;
end;
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('SSID').Value := Trim(maxno);
Next;
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('update FHSQ_Main set DBConNo=cast((select '' ''+ SSConNo from FHSQ_Sub X where X.FSId=FHSQ_Main.FSId and X.SSConNo<>FHSQ_Main.ConNo for xml Path('''')) as varchar(100)) ');
SQL.Add(', SQPSHZ= (select sum(SQPS) from FHSQ_Sub X where X.FSId=FHSQ_Main.FSId ) ');
SQL.Add(', SQqtyHZ= (select sum(SQqty) from FHSQ_Sub X where X.FSId=FHSQ_Main.FSId ) ');
SQL.Add('where FSID=''' + Trim(FMainId) + '''');
ExecSQL;
end;
end;
Order_Sub.EnableControls;
ADOCmd.Connection.CommitTrans;
Result := True;
except
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0);
Result := False;
end;
end;
procedure TfrmFHSQInPut.TBSaveClick(Sender: TObject);
var
Freal: Double;
begin
ToolBar1.SetFocus;
if Trim(XSType.Text) = '' then
begin
Application.MessageBox('销售类型不能为空！', '提示', 0);
Exit;
end;
if Trim(CRType.Text) = '' then
begin
Application.MessageBox('出库类型不能为空！', '提示', 0);
Exit;
end;
if TryStrToFloat(HYFEE.Text, Freal) = False then
begin
Application.MessageBox('海运费非法数字！', '提示', 0);
Exit;
end;
// if Trim(CustomerNoName.Text) = '' then
// begin
// Application.MessageBox('客户不能为空！', '提示', 0);
// Exit;
// end;
if (Order_Sub.Locate('SQPS', null, [])) and (Order_Sub.Locate('SQqty', null, [])) = True then
begin
Application.MessageBox('细码申请匹数和数量不能全为空！', '提示', 0);
Exit;
end;
if (Order_Sub.Locate('ZKHNAME', null, [])) = True then
begin
Application.MessageBox('客户不能为空！', '提示', 0);
Exit;
end;
if (Order_Sub.Locate('ZKHNAME', '', [])) = True then
begin
Application.MessageBox('客户不能为空！', '提示', 0);
Exit;
end;
if (Order_Sub.Locate('orderUnit', null, [])) = True then
begin
Application.MessageBox('数量单位不能为空！', '提示', 0);
Exit;
end;
if SaveData() then
begin
Application.MessageBox('保存成功！', '提示', 0);
ModalResult := 1;
end;
end;
procedure TfrmFHSQInPut.ToolButton1Click(Sender: TObject);
var
FQtyUnit, FFSubid, fhh: string;
fqty, fps, FBS, flfs, FHXZL, fzbs: Double;
begin
fqty := 0;
fps := 0;
FBS := 0;
flfs := 0;
fhh := '';
FHXZL := 0;
// if trim(JSQtyUnit.Text) = '' then
// begin
// Application.MessageBox('价格单位不能为空!', '提示', 0);
// exit;
// end;
try
frmProductOrderListSel2 := TfrmProductOrderListSel2.Create(Application);
with frmProductOrderListSel2 do
begin
canshu2 := self.canshu2;
if ShowModal = 1 then
begin
if Self.Order_Sub.Locate('Subid', Trim(frmProductOrderListSel2.Order_Main.fieldbyname('Subid').AsString), []) = true then
begin
Application.MessageBox('该订单已选择!', '提示', 0);
exit;
end;
with Self.Order_Sub do
begin
Append;
fzbs := frmProductOrderListSel2.Order_Main.fieldbyname('zbs').Value;
FieldByName('ZKHNAME').Value := Trim(frmProductOrderListSel2.Order_Main.fieldbyname('BuyerName').AsString);
FieldByName('SCConNo').Value := Trim(frmProductOrderListSel2.Order_Main.fieldbyname('Orderno').AsString);
FieldByName('SSConMainId').Value := frmProductOrderListSel2.Order_Main.fieldbyname('ConMainId').Value;
FieldByName('SSConSubId').Value := frmProductOrderListSel2.Order_Main.fieldbyname('ConSubId').Value;
FieldByName('MainId').Value := frmProductOrderListSel2.Order_Main.fieldbyname('MainId').Value;
FieldByName('SubId').Value := frmProductOrderListSel2.Order_Main.fieldbyname('SubId').Value;
FieldByName('PRTColor').Value := Trim(frmProductOrderListSel2.Order_Main.fieldbyname('PRTCOLOR').AsString);
FieldByName('SPrtCode').Value := Trim(frmProductOrderListSel2.Order_Main.fieldbyname('MPRTCODE').AsString);
FieldByName('SPrtCodeName').Value := Trim(frmProductOrderListSel2.Order_Main.fieldbyname('MPRTCodeNAME').AsString);
FieldByName('PRTHX').Value := Trim(frmProductOrderListSel2.Order_Main.fieldbyname('PRTHX').AsString);
FieldByName('orderUnit').Value := Trim(frmProductOrderListSel2.Order_Main.fieldbyname('OrderUnit').AsString);
while Order_SUB.locate('SSel', true, []) do
begin
// Self.CustomerNoName.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('CustomerNoName').AsString);
// FQtyUnit := Trim(frmProductOrderListSel.Order_Main.fieldbyname('orderUnit').AsString);
// if Self.Order_Sub.Locate('Subid', Trim(frmProductOrderListSel.Order_Main.fieldbyname('Subid').AsString), []) = False then
if frmProductOrderListSel2.Order_SUB.fieldbyname('SQBS').asfloat <> 0 then
begin
if Trim(frmProductOrderListSel2.Order_Main.fieldbyname('OrderUnit').AsString) = 'M' then
begin
fqty := fqty + frmProductOrderListSel2.Order_SUB.fieldbyname('jylen').asfloat * frmProductOrderListSel2.Order_SUB.fieldbyname('SQBS').asfloat / frmProductOrderListSel2.Order_SUB.fieldbyname('BS').asfloat;
end
else if Trim(frmProductOrderListSel2.Order_Main.fieldbyname('OrderUnit').AsString) = 'Y' then
begin
fqty := fqty + frmProductOrderListSel2.Order_SUB.fieldbyname('jyYlen').asfloat * frmProductOrderListSel2.Order_SUB.fieldbyname('SQBS').asfloat / frmProductOrderListSel2.Order_SUB.fieldbyname('BS').asfloat;
end
else
begin
fqty := fqty + frmProductOrderListSel2.Order_SUB.fieldbyname('jyGW').asfloat * frmProductOrderListSel2.Order_SUB.fieldbyname('SQBS').asfloat / frmProductOrderListSel2.Order_SUB.fieldbyname('BS').asfloat;
end;
fps := fps + trunc(frmProductOrderListSel2.Order_SUB.fieldbyname('ps').asfloat * frmProductOrderListSel2.Order_SUB.fieldbyname('SQBS').asfloat / frmProductOrderListSel2.Order_SUB.fieldbyname('BS').asfloat);
FBS := FBS + frmProductOrderListSel2.Order_SUB.fieldbyname('SQBs').asfloat;
flfs := flfs + frmProductOrderListSel2.Order_SUB.fieldbyname('SQBs').asfloat * frmProductOrderListSel2.Order_SUB.fieldbyname('xg').asfloat;
fhh := fhh + ' ' + frmProductOrderListSel2.Order_SUB.fieldbyname('P_HX').asstring;
FHXZL := FHXZL + frmProductOrderListSel2.Order_SUB.fieldbyname('DBZL').asfloat * frmProductOrderListSel2.Order_SUB.fieldbyname('SQBs').asfloat;
Order_sub.Delete;
end
else
begin
if Trim(frmProductOrderListSel2.Order_Main.fieldbyname('OrderUnit').AsString) = 'M' then
begin
fqty := fqty + frmProductOrderListSel2.Order_SUB.fieldbyname('jylen').asfloat;
end
else if Trim(frmProductOrderListSel2.Order_Main.fieldbyname('OrderUnit').AsString) = 'Y' then
begin
fqty := fqty + frmProductOrderListSel2.Order_SUB.fieldbyname('jyYlen').asfloat;
end
else
begin
fqty := fqty + frmProductOrderListSel2.Order_SUB.fieldbyname('jyGW').asfloat;
end;
fps := fps + frmProductOrderListSel2.Order_SUB.fieldbyname('ps').asfloat;
FBS := FBS + frmProductOrderListSel2.Order_SUB.fieldbyname('Bs').asfloat;
flfs := flfs + frmProductOrderListSel2.Order_SUB.fieldbyname('Bs').asfloat * frmProductOrderListSel2.Order_SUB.fieldbyname('xg').asfloat;
fhh := fhh + ' ' + frmProductOrderListSel2.Order_SUB.fieldbyname('P_HX').asstring;
FHXZL := FHXZL + frmProductOrderListSel2.Order_SUB.fieldbyname('DBZL').asfloat * frmProductOrderListSel2.Order_SUB.fieldbyname('Bs').asfloat;
Order_sub.Delete;
end;
// if JSQtyUnit.Text = 'M' then
// begin
// fqty := fqty + frmProductOrderListSel2.Order_SUB.fieldbyname('jylen').asfloat;
// end
// else if JSQtyUnit.Text = 'Y' then
// begin
// fqty := fqty + frmProductOrderListSel2.Order_SUB.fieldbyname('jyYlen').asfloat;
// end
// else if JSQtyUnit.Text = 'KG' then
// begin
// fqty := fqty + frmProductOrderListSel2.Order_SUB.fieldbyname('jyGW').asfloat;
// end;
// fps := fps + frmProductOrderListSel2.Order_SUB.fieldbyname('ps').asfloat;
// FBS := FBS + frmProductOrderListSel2.Order_SUB.fieldbyname('Bs').asfloat;
// flfs := flfs + frmProductOrderListSel2.Order_SUB.fieldbyname('Bs').asfloat * frmProductOrderListSel2.Order_SUB.fieldbyname('xg').asfloat;
// Order_sub.Delete;
end;
FieldByName('SQQTY').Value := fqty;
FieldByName('SQps').Value := fps;
if FBS >= fzbs then
begin
FieldByName('BAOSHU').Value := fzbs;
end
else
begin
FieldByName('BAOSHU').Value := FBS;
end;
FieldByName('PRTHX').Value := fhh;
if CheckBox1.Checked then
begin
FieldByName('LiFangQty').Value := frmProductOrderListSel2.Order_Main.fieldbyname('hzlfs').asfloat;
FieldByName('HXWEIGHT').Value := frmProductOrderListSel2.Order_Main.fieldbyname('hzzl').asfloat;
end
else
begin
FieldByName('LiFangQty').Value := flfs;
FieldByName('HXWEIGHT').Value := FHXZL;
end;
Post;
end;
end;
end;
finally
frmProductOrderListSel2.Free;
end;
JSJE();
end;
procedure TfrmFHSQInPut.ToolButton2Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then
Exit;
if Trim(Order_Sub.fieldbyname('SSId').AsString) <> '' then
begin
if Order_Sub.fieldbyname('FHTYPE').AsString <> '外采' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from FHSQ_Sub where SSId=''' + Trim(Order_Sub.fieldbyname('SSId').AsString) + '''');
sql.add(' and isnull(FHPS,0)>0');
Open;
end;
if ADOTemp.IsEmpty = False then
begin
Application.MessageBox('已发货不能删除数据!', '提示', 0);
exit;
end;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete FHSQ_Sub where SSId=''' + Trim(Order_Sub.fieldbyname('SSId').AsString) + '''');
ExecSQL;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update FHSQ_Main Set ');
sql.Add('SQPSHZ=(select Sum(SQPS) from FHSQ_Sub A where A.FSID=FHSQ_Main.FSID)');
sql.Add('where FSID=''' + Trim(FMainId) + '''');
ExecSQL;
end;
end;
Order_Sub.Delete;
jsje();
end;
procedure TfrmFHSQInPut.Tv1Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FSQPrice, Fsqqty, FSQMoney: Double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with Order_Sub do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
JSJE();
end;
procedure TfrmFHSQInPut.Tv1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZdyAttachment := TfrmZdyAttachment.Create(Application);
with frmZdyAttachment do
begin
if ShowModal = 1 then
begin
with Order_Sub do
begin
edit;
FieldByName('zkhname').Value := Trim(frmZdyAttachment.CDS_HZ.fieldbyname('CoName').AsString);
end;
end;
end;
finally
frmZdyAttachment.Free;
end;
end;
procedure TfrmFHSQInPut.SHDanWeiBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'SHDanWei';
flagname := '收货单位';
if ShowModal = 1 then
begin
Self.SHDanWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.SHDanWeiBtnDnClick(Sender: TObject);
begin
SHDanWei.Text := '';
end;
procedure TfrmFHSQInPut.CustomerNoNameBtnClick(Sender: TObject);
begin
try
frmZdyAttachment := TfrmZdyAttachment.Create(Application);
with frmZdyAttachment do
begin
if ShowModal = 1 then
begin
Self.CustomerNoName.Text := Trim(frmZdyAttachment.CDS_HZ.fieldbyname('CoName').AsString);
end;
end;
finally
frmZdyAttachment.Free;
end;
end;
procedure TfrmFHSQInPut.GuiXingBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'GuiXing';
flagname := '柜型';
if ShowModal = 1 then
begin
Self.GuiXing.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.HYCOMPANYBtnDnClick(Sender: TObject);
begin
HYCOMPANY.Text := '';
end;
procedure TfrmFHSQInPut.HYCOMPANYBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'HYCOMPANY';
flagname := '海运公司';
if ShowModal = 1 then
begin
Self.HYCOMPANY.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.GuiXingBtnDnClick(Sender: TObject);
begin
GuiXing.Text := '';
end;
procedure TfrmFHSQInPut.FKNoteBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'FKNote';
flagname := '付款条件';
if ShowModal = 1 then
begin
Self.FKNote.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut.v1Column8PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FSQPrice, Fsqqty, FSQMoney: Double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with Order_Sub do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
FSQPrice := FieldByName('SQPrice').AsFloat;
Fsqqty := FieldByName('sqqty').AsFloat;
end;
FSQMoney := FSQPrice * Fsqqty;
with Order_Sub do
begin
Edit;
FieldByName('SQMoney').Value := FSQMoney;
Post;
end;
tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmFHSQInPut.FKDanWeiBtnDnClick(Sender: TObject);
begin
FKDanWei.Text := '';
end;
procedure TfrmFHSQInPut.FKDanWeiBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'FKDanWei';
flagname := '付款单位';
if ShowModal = 1 then
begin
Self.FKDanWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
end.

676
发货申请(ShipmentRequest.dll)/U_FHSQInPut220313.dfm Normal file
View File

@ -0,0 +1,676 @@
object frmFHSQInPut220313: TfrmFHSQInPut220313
Left = 371
Top = 205
Width = 1252
Height = 646
Caption = #21457#36135#30003#35831#24405#20837
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 120
TextHeight = 15
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1234
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 5
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 29
Width = 1234
Height = 220
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
Color = clBtnFace
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
object Label10: TLabel
Left = 576
Top = 16
Width = 82
Height = 15
Caption = #35746' '#21333' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 39
Top = 16
Width = 84
Height = 15
Caption = #23458' '#25143#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 305
Top = 16
Width = 80
Height = 15
Caption = #20986#24211#31867#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 661
Top = 240
Width = 80
Height = 15
Caption = #20135#21697#32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label5: TLabel
Left = 41
Top = 55
Width = 80
Height = 15
Caption = #20135#21697#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 575
Top = 55
Width = 84
Height = 15
Caption = #38376' '#24133#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 850
Top = 55
Width = 84
Height = 15
Caption = #20811' '#37325#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 39
Top = 178
Width = 84
Height = 15
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 41
Top = 93
Width = 80
Height = 15
Caption = #25910#36135#21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 303
Top = 93
Width = 84
Height = 15
Caption = #26579' '#21378#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 303
Top = 55
Width = 84
Height = 15
Caption = #35268' '#26684#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 81
Top = 240
Width = 75
Height = 15
Caption = #26426' '#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label24: TLabel
Left = 353
Top = 240
Width = 75
Height = 15
Caption = #24037' '#33402#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label4: TLabel
Left = 853
Top = 16
Width = 80
Height = 15
Caption = #30003#35831#25209#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object lbl2: TLabel
Left = 10
Top = 129
Width = 112
Height = 15
Caption = #20132#36135#30830#35748#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 303
Top = 129
Width = 84
Height = 15
Caption = #26588' '#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 578
Top = 129
Width = 80
Height = 15
Caption = #38144#21806#31867#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CRType: TComboBox
Tag = 1
Left = 383
Top = 11
Width = 170
Height = 23
Style = csDropDownList
ItemHeight = 15
ItemIndex = 0
TabOrder = 1
Text = #38144#21806#20986#24211
Items.Strings = (
#38144#21806#20986#24211)
end
object PrtCodeName: TEdit
Tag = 1
Left = 120
Top = 51
Width = 170
Height = 18
ReadOnly = True
TabOrder = 2
end
object prtmf: TEdit
Tag = 1
Left = 658
Top = 51
Width = 170
Height = 18
ReadOnly = True
TabOrder = 3
end
object prtkz: TEdit
Tag = 1
Left = 928
Top = 51
Width = 170
Height = 18
ReadOnly = True
TabOrder = 4
end
object ConNo: TBtnEditA
Tag = 1
Left = 658
Top = 11
Width = 173
Height = 23
ReadOnly = True
TabOrder = 0
OnBtnClick = ConNoBtnClick
end
object Note: TEdit
Tag = 1
Left = 120
Top = 174
Width = 980
Height = 18
TabOrder = 7
end
object SHDanWei: TBtnEditC
Tag = 1
Left = 120
Top = 88
Width = 170
Height = 23
Hint = 'FYName/'#36153#29992#21517#31216
TabOrder = 5
OnBtnUpClick = SHDanWeiBtnUpClick
OnBtnDnClick = SHDanWeiBtnDnClick
end
object ranchang: TBtnEditC
Tag = 1
Left = 383
Top = 88
Width = 440
Height = 23
Hint = 'FHTaiTou/'#21457#36135#25260#22836
TabOrder = 6
OnBtnUpClick = ranchangBtnUpClick
end
object PrtCode: TBtnEditA
Tag = 1
Left = 741
Top = 235
Width = 174
Height = 23
ReadOnly = True
TabOrder = 8
Visible = False
OnBtnClick = PrtCodeBtnClick
end
object CustomerNoName: TBtnEditA
Tag = 1
Left = 120
Top = 11
Width = 174
Height = 23
ReadOnly = True
TabOrder = 9
OnBtnClick = CustomerNoNameBtnClick
end
object prtspec: TEdit
Tag = 1
Left = 383
Top = 51
Width = 170
Height = 18
ReadOnly = True
TabOrder = 10
end
object CarType: TEdit
Tag = 1
Left = 153
Top = 236
Width = 170
Height = 18
TabOrder = 11
Visible = False
end
object gongyi: TEdit
Tag = 1
Left = 428
Top = 236
Width = 170
Height = 18
TabOrder = 12
Visible = False
end
object BatchNo: TComboBox
Tag = 1
Left = 928
Top = 11
Width = 278
Height = 23
Style = csDropDownList
ItemHeight = 15
TabOrder = 13
Visible = False
end
object DLYDATE: TDateTimePicker
Tag = 1
Left = 120
Top = 124
Width = 113
Height = 23
Date = 40675.464761099540000000
Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000
TabOrder = 14
end
object GuiXing: TBtnEditC
Tag = 1
Left = 383
Top = 124
Width = 170
Height = 23
Hint = 'GuiXing/'#26588#22411
TabOrder = 15
OnBtnUpClick = SHDanWeiBtnUpClick
OnBtnDnClick = SHDanWeiBtnDnClick
end
object XSType: TComboBox
Tag = 1
Left = 658
Top = 124
Width = 168
Height = 23
Style = csDropDownList
ItemHeight = 15
TabOrder = 16
Items.Strings = (
#20869#38144
#22806#38144)
end
end
object ToolBar2: TToolBar
Left = 0
Top = 249
Width = 1234
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 57
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 113
OnClick = ToolButton2Click
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 278
Width = 1234
Height = 321
Align = alClient
TabOrder = 3
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
Styles.Header = DataLink_ShipmentRequest.Default
object v1Column2: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'SCConNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object v1Column1: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object cv1Column4: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'gangno'
HeaderAlignmentHorz = taCenter
Width = 75
end
object cv1Column6: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'kuanhao'
HeaderAlignmentHorz = taCenter
Width = 93
end
object cv1Column7: TcxGridDBColumn
Caption = #35746#21333#21305#25968
DataBinding.FieldName = 'orderps'
HeaderAlignmentHorz = taCenter
Width = 83
end
object cv1Column8: TcxGridDBColumn
Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'orderqty'
HeaderAlignmentHorz = taCenter
Width = 76
end
object cv1Column2: TcxGridDBColumn
Caption = #30003#35831#21305#25968
DataBinding.FieldName = 'sqps'
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taCenter
Width = 86
end
object cv1Column3: TcxGridDBColumn
Caption = #30003#35831#25968#37327
DataBinding.FieldName = 'sqqty'
HeaderAlignmentHorz = taCenter
Width = 86
end
object cv1Column5: TcxGridDBColumn
Caption = #28014#21160#33539#22260
DataBinding.FieldName = 'fdfw'
HeaderAlignmentHorz = taCenter
Width = 95
end
object v1Column5: TcxGridDBColumn
Caption = #25152#23646#35746#21333#21495
DataBinding.FieldName = 'SSConNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 97
end
object v1Column4: TcxGridDBColumn
Caption = #25152#23646#23458#25143
DataBinding.FieldName = 'SSKHName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 124
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ADOTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 368
Top = 1
end
object ADOCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 312
Top = 1
end
object DataSource1: TDataSource
DataSet = Order_Sub
Left = 644
Top = 268
end
object Order_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 588
Top = 268
end
object ADOQuery1: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 260
Top = 1
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 528
Top = 268
end
object cxStyleRepository1: TcxStyleRepository
object dazi1: TcxStyle
AssignedValues = [svColor]
Color = clRed
end
end
end

631
发货申请(ShipmentRequest.dll)/U_FHSQInPut220313.pas Normal file
View File

@ -0,0 +1,631 @@
unit U_FHSQInPut220313;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu;
type
TfrmFHSQInPut220313 = class(TForm)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DataSource1: TDataSource;
Order_Sub: TClientDataSet;
ADOQuery1: TADOQuery;
Label10: TLabel;
Label14: TLabel;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cxGridPopupMenu2: TcxGridPopupMenu;
Label1: TLabel;
CRType: TComboBox;
Label2: TLabel;
Label5: TLabel;
Label8: TLabel;
PrtCodeName: TEdit;
prtmf: TEdit;
Label9: TLabel;
prtkz: TEdit;
ConNo: TBtnEditA;
Note: TEdit;
Label12: TLabel;
Label11: TLabel;
SHDanWei: TBtnEditC;
Label16: TLabel;
ranchang: TBtnEditC;
PrtCode: TBtnEditA;
CustomerNoName: TBtnEditA;
Label6: TLabel;
prtspec: TEdit;
Label15: TLabel;
CarType: TEdit;
Label24: TLabel;
gongyi: TEdit;
Label4: TLabel;
BatchNo: TComboBox;
v1Column1: TcxGridDBColumn;
cv1Column2: TcxGridDBColumn;
cv1Column3: TcxGridDBColumn;
cv1Column4: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
dazi1: TcxStyle;
cv1Column5: TcxGridDBColumn;
cv1Column6: TcxGridDBColumn;
cv1Column7: TcxGridDBColumn;
cv1Column8: TcxGridDBColumn;
lbl2: TLabel;
DLYDATE: TDateTimePicker;
Label3: TLabel;
GuiXing: TBtnEditC;
v1Column2: TcxGridDBColumn;
Label7: TLabel;
XSType: TComboBox;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ConNoBtnClick(Sender: TObject);
procedure SHDanWeiBtnUpClick(Sender: TObject);
procedure SHDanWeiBtnDnClick(Sender: TObject);
procedure ranchangBtnUpClick(Sender: TObject);
procedure ShouKuanKeyPress(Sender: TObject; var Key: Char);
procedure PrtCodeBtnClick(Sender: TObject);
procedure CustomerNoNameBtnClick(Sender: TObject);
private
fuserName: string;
procedure InitData();
function SaveData(): Boolean;
{ Private declarations }
public
PState, CopyInt: Integer;
FMainId, FFMainId, ChkStr, ConPriceStr: string;
FXS: Integer;
{ Public declarations }
end;
var
frmFHSQInPut220313: TfrmFHSQInPut220313;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_SQKCHZSelList, U_ContractListNXSel,
U_CPManageFMSel, U_ZdyAttachment, U_ClothSCYWYListSel, U_ProductOrderListSel;
{$R *.dfm}
procedure TfrmFHSQInPut220313.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('发货申请录入', Tv1, '发货管理');
end;
procedure TfrmFHSQInPut220313.InitData();
var
fsj: string;
begin
if PState = 0 then
begin
DLYDATE.datetime := strtodatetime(Trim(FormatDateTime('yyyy-MM-dd', Now)));
end;
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add(' select A.* ');
//sql.Add(',GCCode=(select GCCode from Cloth_Main CM where CM.MainId=A.Mainid)');
//sql.Add(',BatchNoHZ=(select BatchNoHZ from Cloth_Sub CS where CS.MainId=A.Mainid)');
sql.Add(' from FHSQ_Sub A');
if PState = 1 then
begin
sql.Add('where FSId=''' + Trim(FMainId) + '''');
end;
if PState = 0 then
begin
sql.Add(' where 1<>1');
end;
Open;
end;
SCreateCDS(ADOQuery1, Order_Sub);
SInitCDSData(ADOQuery1, Order_Sub);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from FHSQ_Main A');
sql.Add(' where FSId=''' + Trim(FMainId) + ''' ');
Open;
end;
// fsj := ' select DISTINCT A.APBatchNo Name from JYCon_Sub_AnPai A inner join Cloth_Main B on A.MainId=B.MainId where isnull(A.APBatchNo,'''')<>'''' and B.Valid=''Y'' and B.ConNo=' + quotedstr(Trim(ADOQuery1.FieldByName('Conno').AsString));
// SInitComBoxBySql(ADOTemp, BatchNo, False, fsj);
SCSHData(ADOQuery1, ScrollBox1, 1);
BatchNo.Clear;
BatchNo.Items.Add(Trim(ADOQuery1.fieldbyname('BatchNo').AsString));
BatchNo.ItemIndex := BatchNo.Items.IndexOf(Trim(ADOQuery1.fieldbyname('BatchNo').AsString));
// ConNo.TxtCode := ;
end;
procedure TfrmFHSQInPut220313.FormShow(Sender: TObject);
var
fsj: string;
begin
readCxGrid('发货申请录入', Tv1, '发货管理');
InitData();
end;
function TfrmFHSQInPut220313.SaveData(): Boolean;
var
maxno, maxmnno, FSSId: string;
fconNO, fmxType: string;
begin
try
ADOCmd.Connection.BeginTrans;
///保存主表
if Trim(FMainId) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'SM', 'FHSQ_Main', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败!', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(FMainId);
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from FHSQ_Main where FSID=''' + Trim(FMainId) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FMainId) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('SQType').Value := '订单';
FieldByName('FSID').Value := Trim(maxno);
RTSetsavedata(ADOCmd, 'FHSQ_Main', ScrollBox1, 1);
if Trim(FMainId) = '' then
begin
FieldByName('Filler').Value := Trim(DName);
FieldByName('SQDate').Value := SGetServerDate(ADOTemp);
end
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
Post;
end;
FMainId := Trim(maxno);
///保存子表
Order_Sub.DisableControls;
with Order_Sub do
begin
First;
while not Eof do
begin
if Trim(Order_Sub.fieldbyname('SSId').AsString) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'SS', 'FHSQ_Sub', 4, 1) = False then
begin
Order_Sub.EnableControls;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('取子流水号失败！', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(Order_Sub.fieldbyname('SSId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from FHSQ_Sub ');
sql.Add(' where SSId=''' + Trim(maxno) + '''');
Open;
end;
if ADOCmd.IsEmpty then
begin
FSSId := '';
end
else
begin
FSSId := Trim(maxno);
end;
with ADOCmd do
begin
if Trim(FSSId) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('FSID').Value := Trim(FMainId);
FieldByName('SSID').Value := Trim(maxno);
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'FHSQ_Sub', 0);
FieldByName('MainId').Value := Order_Sub.fieldbyname('MainId').Value;
FieldByName('SubId').Value := Order_Sub.fieldbyname('SubId').Value;
FieldByName('SSConMainId').Value := Order_Sub.fieldbyname('SSConMainId').Value;
FieldByName('SSConSubId').Value := Order_Sub.fieldbyname('SSConSubId').Value;
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('SSID').Value := Trim(maxno);
Next;
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('update FHSQ_Main set DBConNo=cast((select '' ''+ SSConNo from FHSQ_Sub X where X.FSId=FHSQ_Main.FSId and X.SSConNo<>FHSQ_Main.ConNo for xml Path('''')) as varchar(100)) ');
SQL.Add(', SQPSHZ= (select sum(SQPS) from FHSQ_Sub X where X.FSId=FHSQ_Main.FSId ) ');
SQL.Add(', SQqtyHZ= (select sum(SQqty) from FHSQ_Sub X where X.FSId=FHSQ_Main.FSId ) ');
SQL.Add('where FSID=''' + Trim(FMainId) + '''');
ExecSQL;
end;
end;
Order_Sub.EnableControls;
ADOCmd.Connection.CommitTrans;
Result := True;
except
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0);
Result := False;
end;
end;
procedure TfrmFHSQInPut220313.TBSaveClick(Sender: TObject);
var
Freal: Double;
begin
ToolBar1.SetFocus;
if Trim(CRType.Text) = '' then
begin
Application.MessageBox('出库类型不能为空！', '提示', 0);
Exit;
end;
if Trim(PrtCodeName.Text) = '' then
begin
Application.MessageBox('产品名称不能为空！', '提示', 0);
Exit;
end;
// if (Trim(SQPSHZ.Text) = '') and (Trim(SQqtyHZ.Text) = '') then
// begin
// Application.MessageBox('申请数量和匹数不能全为空！', '提示', 0);
// Exit;
// end;
//
// if Order_Sub.IsEmpty then
// begin
// Application.MessageBox('明细不能为空！', '提示', 0);
// Exit;
// end;
// if Order_Sub.Locate('SCConNo', null, []) = True then
// begin
// Application.MessageBox('白坯单号不能为空！', '提示', 0);
// Exit;
// end;
if (Order_Sub.Locate('SQPS', null, [])) and (Order_Sub.Locate('SQqty', null, [])) = True then
begin
Application.MessageBox('细码申请匹数和数量不能全为空！', '提示', 0);
Exit;
end;
// if Order_Sub.Locate('SQPS', 0, []) = True then
// begin
// Application.MessageBox('申请匹数不能为0！', '提示', 0);
// Exit;
// end;
// if Order_Sub.Locate('SQQty', null, []) = True then
// begin
// Application.MessageBox('申请数量不能为空！', '提示', 0);
// Exit;
// end;
if SaveData() then
begin
Application.MessageBox('保存成功！', '提示', 0);
ModalResult := 1;
end;
end;
procedure TfrmFHSQInPut220313.ToolButton1Click(Sender: TObject);
var
fsj, FConMainId: string;
begin
try
frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
with frmProductOrderListSel do
begin
if ShowModal = 1 then
begin
Order_Main.locate('SSel', true, []);
FConMainId := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString);
while Order_Main.locate('SSel', true, []) do
begin
if FConMainId <> trim(frmProductOrderListSel.Order_Main.Fieldbyname('MainId').AsString) then
begin
Application.MessageBox('不能选择多个合同！', '提示', 0);
break;
end;
with Self.Order_Sub do
begin
Append;
FieldByName('SCConNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('Orderno').AsString);
FieldByName('SSKHName').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('CustomerNoName').AsString);
FieldByName('SSConNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('ConNO').AsString);
FieldByName('MainId').Value := frmProductOrderListSel.Order_Main.fieldbyname('MainId').Value;
FieldByName('SubId').Value := frmProductOrderListSel.Order_Main.fieldbyname('SubId').Value;
FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
// Post;
end;
Order_Main.Edit;
Order_Main.fieldbyname('SSel').value := false;
end;
end;
end;
finally
frmProductOrderListSel.Free;
end;
end;
procedure TfrmFHSQInPut220313.ToolButton2Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then
Exit;
if Trim(Order_Sub.fieldbyname('SSId').AsString) <> '' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from FHSQ_Sub where SSId=''' + Trim(Order_Sub.fieldbyname('SSId').AsString) + '''');
sql.add(' and isnull(FHPS,0)>0');
Open;
end;
if ADOTemp.IsEmpty = False then
begin
Application.MessageBox('已发货不能删除数据!', '提示', 0);
exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete FHSQ_Sub where SSId=''' + Trim(Order_Sub.fieldbyname('SSId').AsString) + '''');
ExecSQL;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update FHSQ_Main Set ');
sql.Add('SQPSHZ=(select Sum(SQPS) from FHSQ_Sub A where A.FSID=FHSQ_Main.FSID)');
sql.Add('where FSID=''' + Trim(FMainId) + '''');
ExecSQL;
end;
end;
Order_Sub.Delete;
end;
procedure TfrmFHSQInPut220313.ConNoBtnClick(Sender: TObject);
var
fsj, FConMainId: string;
begin
// if Order_Sub.IsEmpty = False then
// begin
// Application.MessageBox('已有明细数据，不能更改合同!', '提示', 0);
// Exit;
// end;
try
frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
with frmProductOrderListSel do
begin
if ShowModal = 1 then
begin
Order_Main.locate('SSel', true, []);
FConMainId := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString);
Self.ConNo.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('ConNo').AsString);
Self.CustomerNoName.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('CustomerNoName').AsString);
// Self.ranchang.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('FactoryNoName').AsString);
Self.SHDanWei.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('CustomerNoName').AsString);
Self.PrtCode.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCode').AsString);
Self.PrtCodeName.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString);
Self.prtmf.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTMF').AsString);
Self.prtkz.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTKZ').AsString);
Self.prtspec.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTSpec').AsString);
while Order_Main.locate('SSel', true, []) do
begin
if FConMainId <> trim(frmProductOrderListSel.Order_Main.Fieldbyname('MainId').AsString) then
begin
Application.MessageBox('不能选择多个合同！', '提示', 0);
break;
end;
// if self.Order_Sub.locate('ConSubId', trim(Order_Main.Fieldbyname('SubId').AsString), []) then
// begin
// Order_Main.Edit;
// Order_Main.fieldbyname('SSel').value := false;
// continue;
// end;
with Self.Order_Sub do
begin
Append;
FieldByName('SCConNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('Orderno').AsString);
FieldByName('SSKHName').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('CustomerNoName').AsString);
FieldByName('SSConNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('ConNO').AsString);
FieldByName('MainId').Value := frmProductOrderListSel.Order_Main.fieldbyname('MainId').Value;
FieldByName('SubId').Value := frmProductOrderListSel.Order_Main.fieldbyname('SubId').Value;
FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
// FieldByName('kuanhao').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('kuanhao').AsString);
FieldByName('orderps').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTps').AsString);
FieldByName('orderqty').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('prtorderqty').AsString);
// Post;
end;
Order_Main.Edit;
Order_Main.fieldbyname('SSel').value := false;
end;
end;
end;
finally
// fsj := ' select DISTINCT A.APBatchNo Name from JYCon_Sub_AnPai A inner join Cloth_Main B on A.MainId=B.MainId ';
// fsj := fsj + 'where isnull(A.APBatchNo,'''')<>'''' and B.Valid=''Y'' and B.ConNo=' + quotedstr(ConNo.Text);
// fsj := fsj + ' order by A.filltime';
// SInitComBoxBySql(ADOTemp, BatchNo, False, fsj);
frmProductOrderListSel.Free;
end;
end;
procedure TfrmFHSQInPut220313.SHDanWeiBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'SHDanWei';
flagname := '收货单位';
if ShowModal = 1 then
begin
Self.SHDanWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut220313.SHDanWeiBtnDnClick(Sender: TObject);
begin
SHDanWei.Text := '';
end;
procedure TfrmFHSQInPut220313.ranchangBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'ranchang';
flagname := '染厂';
if ShowModal = 1 then
begin
Self.ranchang.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPut220313.ShouKuanKeyPress(Sender: TObject; var Key: Char);
begin
if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then
begin
Key := #0;
end
else if (pos('.', TEdit(Sender).text) <> 0) then
begin
if Key = '.' then
begin
Key := #0;
end;
end;
end;
procedure TfrmFHSQInPut220313.PrtCodeBtnClick(Sender: TObject);
begin
try
frmCPManageFMSel := TfrmCPManageFMSel.Create(Application);
with frmCPManageFMSel do
begin
if ShowModal = 1 then
begin
PrtCode.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYNo').AsString;
PrtCodeName.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYName').AsString;
prtmf.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYMF').AsString;
prtkz.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYKZ').AsString;
end;
end;
finally
frmCPManageFMSel.Free;
end;
end;
procedure TfrmFHSQInPut220313.CustomerNoNameBtnClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'CustomerNoName';
flagname := '客户';
if ShowModal = 1 then
begin
Self.CustomerNoName.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
end.

681
发货申请(ShipmentRequest.dll)/U_FHSQInPutXH.dfm Normal file
View File

@ -0,0 +1,681 @@
object frmFHSQInPutXH: TfrmFHSQInPutXH
Left = 371
Top = 205
Width = 1075
Height = 557
Caption = #21457#36135#30003#35831#24405#20837
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1059
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 5
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 29
Width = 1059
Height = 176
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
Color = clBtnFace
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
object Label10: TLabel
Left = 461
Top = 13
Width = 66
Height = 12
Caption = #35746' '#21333' '#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 31
Top = 13
Width = 67
Height = 12
Caption = #23458' '#25143#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 244
Top = 13
Width = 65
Height = 12
Caption = #20986#24211#31867#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 529
Top = 192
Width = 65
Height = 12
Caption = #20135#21697#32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label5: TLabel
Left = 33
Top = 44
Width = 65
Height = 12
Caption = #20135#21697#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 460
Top = 44
Width = 67
Height = 12
Caption = #38376' '#24133#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 680
Top = 44
Width = 67
Height = 12
Caption = #20811' '#37325#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 31
Top = 142
Width = 67
Height = 12
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 33
Top = 74
Width = 65
Height = 12
Caption = #25910#36135#21333#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 242
Top = 74
Width = 67
Height = 12
Caption = #26579' '#21378#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 33
Top = 108
Width = 65
Height = 12
Caption = #30003#35831#21305#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 242
Top = 44
Width = 67
Height = 12
Caption = #35268' '#26684#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 65
Top = 192
Width = 60
Height = 12
Caption = #26426' '#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label24: TLabel
Left = 282
Top = 192
Width = 60
Height = 12
Caption = #24037' '#33402#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label4: TLabel
Left = 682
Top = 13
Width = 65
Height = 12
Caption = #30003#35831#25209#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object lbl1: TLabel
Left = 244
Top = 107
Width = 65
Height = 12
Caption = #30003#35831#25968#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lbl2: TLabel
Left = 448
Top = 107
Width = 91
Height = 12
Caption = #20132#36135#30830#35748#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CRType: TComboBox
Tag = 1
Left = 306
Top = 9
Width = 136
Height = 20
Style = csDropDownList
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
ItemIndex = 0
TabOrder = 1
Text = #24635#20844#21496#38144#21806
Items.Strings = (
#24635#20844#21496#38144#21806
#26469#26009#21152#24037
#21322#26469#26009#21152#24037
#22278#26426#21378#38144#21806)
end
object PrtCodeName: TEdit
Tag = 1
Left = 96
Top = 41
Width = 136
Height = 18
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 2
end
object prtmf: TEdit
Tag = 1
Left = 526
Top = 41
Width = 136
Height = 18
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 3
end
object prtkz: TEdit
Tag = 1
Left = 742
Top = 41
Width = 136
Height = 18
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 4
end
object ConNo: TBtnEditA
Tag = 1
Left = 526
Top = 9
Width = 139
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 0
OnBtnClick = ConNoBtnClick
end
object Note: TEdit
Tag = 1
Left = 97
Top = 139
Width = 784
Height = 18
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 7
end
object SHDanWei: TBtnEditC
Tag = 1
Left = 96
Top = 70
Width = 136
Height = 20
Hint = 'FYName/'#36153#29992#21517#31216
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 5
OnBtnUpClick = SHDanWeiBtnUpClick
OnBtnDnClick = SHDanWeiBtnDnClick
end
object ranchang: TBtnEditC
Tag = 1
Left = 306
Top = 70
Width = 352
Height = 20
Hint = 'FHTaiTou/'#21457#36135#25260#22836
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 6
OnBtnUpClick = ranchangBtnUpClick
end
object SQPSHZ: TEdit
Tag = 1
Left = 96
Top = 105
Width = 136
Height = 18
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 8
end
object PrtCode: TBtnEditA
Tag = 1
Left = 593
Top = 188
Width = 139
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 9
Visible = False
OnBtnClick = PrtCodeBtnClick
end
object CustomerNoName: TBtnEditA
Tag = 1
Left = 96
Top = 9
Width = 139
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 10
OnBtnClick = CustomerNoNameBtnClick
end
object prtspec: TEdit
Tag = 1
Left = 306
Top = 41
Width = 136
Height = 18
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ReadOnly = True
TabOrder = 11
end
object CarType: TEdit
Tag = 1
Left = 122
Top = 189
Width = 136
Height = 18
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 12
Visible = False
end
object gongyi: TEdit
Tag = 1
Left = 342
Top = 189
Width = 136
Height = 18
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 13
Visible = False
end
object BatchNo: TComboBox
Tag = 1
Left = 742
Top = 9
Width = 223
Height = 20
Style = csDropDownList
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
TabOrder = 14
Visible = False
end
object sqqtyhz: TEdit
Tag = 1
Left = 306
Top = 104
Width = 136
Height = 18
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 15
end
object DLYDATE: TDateTimePicker
Tag = 1
Left = 535
Top = 103
Width = 90
Height = 20
Date = 40675.464761099540000000
Format = 'yyyy-MM-dd'
Time = 40675.464761099540000000
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 16
end
end
object ToolBar2: TToolBar
Left = 0
Top = 205
Width = 1059
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 57
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 113
OnClick = ToolButton2Click
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 234
Width = 1059
Height = 285
Align = alClient
TabOrder = 3
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
Styles.Header = DataLink_ShipmentRequest.Default
object v1Column4: TcxGridDBColumn
Caption = #25152#23646#23458#25143
DataBinding.FieldName = 'SSKHName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 124
end
object v1Column5: TcxGridDBColumn
Caption = #25152#23646#35746#21333#21495
DataBinding.FieldName = 'SSConNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 97
end
object v1Column1: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object cv1Column4: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'gangno'
HeaderAlignmentHorz = taCenter
Width = 75
end
object cv1Column6: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'kuanhao'
HeaderAlignmentHorz = taCenter
Width = 93
end
object cv1Column7: TcxGridDBColumn
Caption = #35746#21333#21305#25968
DataBinding.FieldName = 'orderps'
HeaderAlignmentHorz = taCenter
Width = 83
end
object cv1Column8: TcxGridDBColumn
Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'orderqty'
HeaderAlignmentHorz = taCenter
Width = 76
end
object cv1Column2: TcxGridDBColumn
Caption = #30003#35831#21305#25968
DataBinding.FieldName = 'sqps'
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taCenter
Width = 86
end
object cv1Column3: TcxGridDBColumn
Caption = #30003#35831#25968#37327
DataBinding.FieldName = 'sqqty'
HeaderAlignmentHorz = taCenter
Width = 86
end
object cv1Column5: TcxGridDBColumn
Caption = #28014#21160#33539#22260
DataBinding.FieldName = 'fdfw'
HeaderAlignmentHorz = taCenter
Width = 95
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object ADOTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 368
Top = 1
end
object ADOCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 312
Top = 1
end
object DataSource1: TDataSource
DataSet = Order_Sub
Left = 644
Top = 268
end
object Order_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 588
Top = 268
end
object ADOQuery1: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 260
Top = 1
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 528
Top = 268
end
object cxStyleRepository1: TcxStyleRepository
object dazi1: TcxStyle
AssignedValues = [svColor]
Color = clRed
end
end
end

652
发货申请(ShipmentRequest.dll)/U_FHSQInPutXH.pas Normal file
View File

@ -0,0 +1,652 @@
unit U_FHSQInPutXH;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu;
type
TfrmFHSQInPutXH = class(TForm)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DataSource1: TDataSource;
Order_Sub: TClientDataSet;
ADOQuery1: TADOQuery;
Label10: TLabel;
Label14: TLabel;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cxGridPopupMenu2: TcxGridPopupMenu;
Label1: TLabel;
CRType: TComboBox;
Label2: TLabel;
Label5: TLabel;
Label8: TLabel;
PrtCodeName: TEdit;
prtmf: TEdit;
Label9: TLabel;
prtkz: TEdit;
ConNo: TBtnEditA;
Note: TEdit;
Label12: TLabel;
Label11: TLabel;
SHDanWei: TBtnEditC;
Label16: TLabel;
ranchang: TBtnEditC;
Label22: TLabel;
SQPSHZ: TEdit;
PrtCode: TBtnEditA;
CustomerNoName: TBtnEditA;
Label6: TLabel;
prtspec: TEdit;
Label15: TLabel;
CarType: TEdit;
Label24: TLabel;
gongyi: TEdit;
Label4: TLabel;
BatchNo: TComboBox;
v1Column1: TcxGridDBColumn;
cv1Column2: TcxGridDBColumn;
cv1Column3: TcxGridDBColumn;
lbl1: TLabel;
sqqtyhz: TEdit;
cv1Column4: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
dazi1: TcxStyle;
cv1Column5: TcxGridDBColumn;
cv1Column6: TcxGridDBColumn;
cv1Column7: TcxGridDBColumn;
cv1Column8: TcxGridDBColumn;
lbl2: TLabel;
DLYDATE: TDateTimePicker;
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ConNoBtnClick(Sender: TObject);
procedure SHDanWeiBtnUpClick(Sender: TObject);
procedure SHDanWeiBtnDnClick(Sender: TObject);
procedure ranchangBtnUpClick(Sender: TObject);
procedure ShouKuanKeyPress(Sender: TObject; var Key: Char);
procedure PrtCodeBtnClick(Sender: TObject);
procedure CustomerNoNameBtnClick(Sender: TObject);
private
fuserName: string;
procedure InitData();
function SaveData(): Boolean;
{ Private declarations }
public
PState, CopyInt: Integer;
FMainId, FFMainId, ChkStr, ConPriceStr: string;
FXS: Integer;
{ Public declarations }
end;
var
frmFHSQInPutXH: TfrmFHSQInPutXH;
newh: hwnd;
implementation
uses
U_DataLink, U_ZDYHelp, U_RTFun, U_SQKCHZSelList, U_ContractListNXSel,
U_CPManageFMSel, U_ZdyAttachment, U_ClothSCYWYListSel, U_ProductOrderListSel;
{$R *.dfm}
procedure TfrmFHSQInPutXH.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('发货申请录入', Tv1, '发货管理');
end;
procedure TfrmFHSQInPutXH.InitData();
var
fsj: string;
begin
if PState = 0 then
begin
DLYDATE.datetime := strtodatetime(Trim(FormatDateTime('yyyy-MM-dd', Now)));
end;
with ADOQuery1 do
begin
Close;
SQL.Clear;
sql.Add(' select A.* ');
//sql.Add(',GCCode=(select GCCode from Cloth_Main CM where CM.MainId=A.Mainid)');
//sql.Add(',BatchNoHZ=(select BatchNoHZ from Cloth_Sub CS where CS.MainId=A.Mainid)');
sql.Add(' from FHSQ_Sub A');
if PState = 1 then
begin
sql.Add('where FSId=''' + Trim(FMainId) + '''');
end;
if PState = 0 then
begin
sql.Add(' where 1<>1');
end;
Open;
end;
SCreateCDS(ADOQuery1, Order_Sub);
SInitCDSData(ADOQuery1, Order_Sub);
with ADOQuery1 do
begin
Close;
sql.Clear;
sql.Add('select A.* ');
sql.Add(' from FHSQ_Main A');
sql.Add(' where FSId=''' + Trim(FMainId) + ''' ');
Open;
end;
// fsj := ' select DISTINCT A.APBatchNo Name from JYCon_Sub_AnPai A inner join Cloth_Main B on A.MainId=B.MainId where isnull(A.APBatchNo,'''')<>'''' and B.Valid=''Y'' and B.ConNo=' + quotedstr(Trim(ADOQuery1.FieldByName('Conno').AsString));
// SInitComBoxBySql(ADOTemp, BatchNo, False, fsj);
SCSHData(ADOQuery1, ScrollBox1, 1);
BatchNo.Clear;
BatchNo.Items.Add(Trim(ADOQuery1.fieldbyname('BatchNo').AsString));
BatchNo.ItemIndex := BatchNo.Items.IndexOf(Trim(ADOQuery1.fieldbyname('BatchNo').AsString));
// ConNo.TxtCode := ;
end;
procedure TfrmFHSQInPutXH.FormShow(Sender: TObject);
var
fsj: string;
begin
readCxGrid('发货申请录入', Tv1, '发货管理');
InitData();
end;
function TfrmFHSQInPutXH.SaveData(): Boolean;
var
maxno, maxmnno, FSSId: string;
fconNO, fmxType: string;
begin
try
ADOCmd.Connection.BeginTrans;
///保存主表
if Trim(FMainId) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'SM', 'FHSQ_Main', 4, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('取最大号失败!', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(FMainId);
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('select * from FHSQ_Main where FSID=''' + Trim(FMainId) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(FMainId) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('SQType').Value := '现货';
FieldByName('FSID').Value := Trim(maxno);
RTSetsavedata(ADOCmd, 'FHSQ_Main', ScrollBox1, 1);
if Trim(FMainId) = '' then
begin
FieldByName('Filler').Value := Trim(DName);
FieldByName('SQDate').Value := SGetServerDate(ADOTemp);
end
else
begin
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
Post;
end;
FMainId := Trim(maxno);
///保存子表
Order_Sub.DisableControls;
with Order_Sub do
begin
First;
while not Eof do
begin
if Trim(Order_Sub.fieldbyname('SSId').AsString) = '' then
begin
if GetLSNo(ADOCmd, maxno, 'SS', 'FHSQ_Sub', 4, 1) = False then
begin
Order_Sub.EnableControls;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('取子流水号失败！', '提示', 0);
Exit;
end;
end
else
begin
maxno := Trim(Order_Sub.fieldbyname('SSId').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from FHSQ_Sub ');
sql.Add(' where SSId=''' + Trim(maxno) + '''');
Open;
end;
if ADOCmd.IsEmpty then
begin
FSSId := '';
end
else
begin
FSSId := Trim(maxno);
end;
with ADOCmd do
begin
if Trim(FSSId) = '' then
begin
Append;
FieldByName('Filler').Value := Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value := Trim(DName);
FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
end;
FieldByName('FSID').Value := Trim(FMainId);
FieldByName('SSID').Value := Trim(maxno);
RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'FHSQ_Sub', 0);
FieldByName('MainId').Value := Order_Sub.fieldbyname('MainId').Value;
FieldByName('SubId').Value := Order_Sub.fieldbyname('SubId').Value;
FieldByName('SSConMainId').Value := Order_Sub.fieldbyname('SSConMainId').Value;
FieldByName('SSConSubId').Value := Order_Sub.fieldbyname('SSConSubId').Value;
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('SSID').Value := Trim(maxno);
Next;
end;
with ADOCmd do
begin
Close;
sql.Clear;
SQL.Add('update FHSQ_Main set DBConNo= ');
SQL.Add('cast((select '' ''+ SSConNo from FHSQ_Sub X where X.FSId=FHSQ_Main.FSId and X.SSConNo<>FHSQ_Main.ConNo for xml Path('''')) as varchar(100)) ');
SQL.Add('where FSID=''' + Trim(FMainId) + '''');
ExecSQL;
end;
end;
Order_Sub.EnableControls;
ADOCmd.Connection.CommitTrans;
Result := True;
except
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！', '提示', 0);
Result := False;
end;
end;
procedure TfrmFHSQInPutXH.TBSaveClick(Sender: TObject);
var
Freal: Double;
begin
ToolBar1.SetFocus;
if Trim(CRType.Text) = '' then
begin
Application.MessageBox('出库类型不能为空！', '提示', 0);
Exit;
end;
if Trim(PrtCodeName.Text) = '' then
begin
Application.MessageBox('产品名称不能为空！', '提示', 0);
Exit;
end;
if (Trim(SQPSHZ.Text) = '') and (Trim(SQqtyHZ.Text) = '') then
begin
Application.MessageBox('申请数量和匹数不能全为空！', '提示', 0);
Exit;
end;
if Order_Sub.IsEmpty then
begin
Application.MessageBox('明细不能为空！', '提示', 0);
Exit;
end;
// if Order_Sub.Locate('SCConNo', null, []) = True then
// begin
// Application.MessageBox('白坯单号不能为空！', '提示', 0);
// Exit;
// end;
if (Order_Sub.Locate('SQPS', null, [])) and (Order_Sub.Locate('SQqty', null, [])) = True then
begin
Application.MessageBox('细码申请匹数和数量不能全为空！', '提示', 0);
Exit;
end;
// if Order_Sub.Locate('SQPS', 0, []) = True then
// begin
// Application.MessageBox('申请匹数不能为0！', '提示', 0);
// Exit;
// end;
// if Order_Sub.Locate('SQQty', null, []) = True then
// begin
// Application.MessageBox('申请数量不能为空！', '提示', 0);
// Exit;
// end;
if SaveData() then
begin
Application.MessageBox('保存成功！', '提示', 0);
ModalResult := 1;
end;
end;
procedure TfrmFHSQInPutXH.ToolButton1Click(Sender: TObject);
var
fsj, FConMainId: string;
begin
if Order_Sub.IsEmpty = False then
begin
Application.MessageBox('已有明细数据，不能更改合同!', '提示', 0);
Exit;
end;
try
frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
with frmProductOrderListSel do
begin
if ShowModal = 1 then
begin
Order_Main.locate('SSel', true, []);
FConMainId := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString);
// Self.ConNo.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('ConNo').AsString);
// Self.CustomerNoName.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('CustomerNoName').AsString);
//// Self.ranchang.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('FactoryNoName').AsString);
// Self.SHDanWei.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('CustomerNoName').AsString);
// Self.PrtCode.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCode').AsString);
// Self.PrtCodeName.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString);
// Self.prtmf.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTMF').AsString);
// Self.prtkz.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTKZ').AsString);
// Self.prtspec.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTSpec').AsString);
while Order_Main.locate('SSel', true, []) do
begin
if FConMainId <> trim(frmProductOrderListSel.Order_Main.Fieldbyname('MainId').AsString) then
begin
Application.MessageBox('不能选择多个合同！', '提示', 0);
break;
end;
// if self.Order_Sub.locate('ConSubId', trim(Order_Main.Fieldbyname('SubId').AsString), []) then
// begin
// Order_Main.Edit;
// Order_Main.fieldbyname('SSel').value := false;
// continue;
// end;
with Self.Order_Sub do
begin
Append;
FieldByName('SCConNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('Orderno').AsString);
FieldByName('SSKHName').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('CustomerNoName').AsString);
FieldByName('SSConNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('ConNO').AsString);
FieldByName('MainId').Value := frmProductOrderListSel.Order_Main.fieldbyname('MainId').Value;
FieldByName('SubId').Value := frmProductOrderListSel.Order_Main.fieldbyname('SubId').Value;
FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
// Post;
end;
Order_Main.Edit;
Order_Main.fieldbyname('SSel').value := false;
end;
end;
end;
finally
// fsj := ' select DISTINCT A.APBatchNo Name from JYCon_Sub_AnPai A inner join Cloth_Main B on A.MainId=B.MainId ';
// fsj := fsj + 'where isnull(A.APBatchNo,'''')<>'''' and B.Valid=''Y'' and B.ConNo=' + quotedstr(ConNo.Text);
// fsj := fsj + ' order by A.filltime';
// SInitComBoxBySql(ADOTemp, BatchNo, False, fsj);
frmProductOrderListSel.Free;
end;
end;
procedure TfrmFHSQInPutXH.ToolButton2Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then
Exit;
if Trim(Order_Sub.fieldbyname('SSId').AsString) <> '' then
begin
with ADOTemp do
begin
Close;
sql.Clear;
sql.Add('select * from FHSQ_Sub where SSId=''' + Trim(Order_Sub.fieldbyname('SSId').AsString) + '''');
sql.add(' and isnull(FHPS,0)>0');
Open;
end;
if ADOTemp.IsEmpty = False then
begin
Application.MessageBox('已发货不能删除数据!', '提示', 0);
exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete FHSQ_Sub where SSId=''' + Trim(Order_Sub.fieldbyname('SSId').AsString) + '''');
ExecSQL;
end;
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('Update FHSQ_Main Set ');
sql.Add('SQPSHZ=(select Sum(SQPS) from FHSQ_Sub A where A.FSID=FHSQ_Main.FSID)');
sql.Add('where FSID=''' + Trim(FMainId) + '''');
ExecSQL;
end;
end;
Order_Sub.Delete;
end;
procedure TfrmFHSQInPutXH.ConNoBtnClick(Sender: TObject);
var
fsj, FConMainId: string;
begin
if Order_Sub.IsEmpty = False then
begin
Application.MessageBox('已有明细数据，不能更改合同!', '提示', 0);
Exit;
end;
try
frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
with frmProductOrderListSel do
begin
if ShowModal = 1 then
begin
Order_Main.locate('SSel', true, []);
FConMainId := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString);
Self.ConNo.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('ConNo').AsString);
Self.CustomerNoName.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('CustomerNoName').AsString);
// Self.ranchang.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('FactoryNoName').AsString);
Self.SHDanWei.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('CustomerNoName').AsString);
Self.PrtCode.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCode').AsString);
Self.PrtCodeName.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString);
Self.prtmf.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTMF').AsString);
Self.prtkz.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTKZ').AsString);
Self.prtspec.Text := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTSpec').AsString);
while Order_Main.locate('SSel', true, []) do
begin
if FConMainId <> trim(frmProductOrderListSel.Order_Main.Fieldbyname('MainId').AsString) then
begin
Application.MessageBox('不能选择多个合同！', '提示', 0);
break;
end;
// if self.Order_Sub.locate('ConSubId', trim(Order_Main.Fieldbyname('SubId').AsString), []) then
// begin
// Order_Main.Edit;
// Order_Main.fieldbyname('SSel').value := false;
// continue;
// end;
with Self.Order_Sub do
begin
Append;
FieldByName('SCConNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('Orderno').AsString);
FieldByName('SSKHName').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('CustomerNoName').AsString);
FieldByName('SSConNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('ConNO').AsString);
FieldByName('MainId').Value := frmProductOrderListSel.Order_Main.fieldbyname('MainId').Value;
FieldByName('SubId').Value := frmProductOrderListSel.Order_Main.fieldbyname('SubId').Value;
FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
// FieldByName('kuanhao').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('kuanhao').AsString);
FieldByName('orderps').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTps').AsString);
FieldByName('orderqty').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('prtorderqty').AsString);
// Post;
end;
Order_Main.Edit;
Order_Main.fieldbyname('SSel').value := false;
end;
end;
end;
finally
// fsj := ' select DISTINCT A.APBatchNo Name from JYCon_Sub_AnPai A inner join Cloth_Main B on A.MainId=B.MainId ';
// fsj := fsj + 'where isnull(A.APBatchNo,'''')<>'''' and B.Valid=''Y'' and B.ConNo=' + quotedstr(ConNo.Text);
// fsj := fsj + ' order by A.filltime';
// SInitComBoxBySql(ADOTemp, BatchNo, False, fsj);
frmProductOrderListSel.Free;
end;
end;
procedure TfrmFHSQInPutXH.SHDanWeiBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'SHDanWei';
flagname := '收货单位';
if ShowModal = 1 then
begin
Self.SHDanWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPutXH.SHDanWeiBtnDnClick(Sender: TObject);
begin
SHDanWei.Text := '';
end;
procedure TfrmFHSQInPutXH.ranchangBtnUpClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'ranchang';
flagname := '染厂';
if ShowModal = 1 then
begin
Self.ranchang.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmFHSQInPutXH.ShouKuanKeyPress(Sender: TObject; var Key: Char);
begin
if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then
begin
Key := #0;
end
else if (pos('.', TEdit(Sender).text) <> 0) then
begin
if Key = '.' then
begin
Key := #0;
end;
end;
end;
procedure TfrmFHSQInPutXH.PrtCodeBtnClick(Sender: TObject);
begin
try
frmCPManageFMSel := TfrmCPManageFMSel.Create(Application);
with frmCPManageFMSel do
begin
if ShowModal = 1 then
begin
PrtCode.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYNo').AsString;
PrtCodeName.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYName').AsString;
prtmf.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYMF').AsString;
prtkz.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYKZ').AsString;
end;
end;
finally
frmCPManageFMSel.Free;
end;
end;
procedure TfrmFHSQInPutXH.CustomerNoNameBtnClick(Sender: TObject);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'CustomerNoName';
flagname := '客户';
if ShowModal = 1 then
begin
Self.CustomerNoName.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
end.

1185
发货申请(ShipmentRequest.dll)/U_FHSQList.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

897
发货申请(ShipmentRequest.dll)/U_FHSQList.pas Normal file
View File

@ -0,0 +1,897 @@
unit U_FHSQList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList,
dxDateRanges, RM_BarCode, dxSkinWXI, dxScrollbarAnnotations;
type
TfrmFHSQList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
TBExport: TToolButton;
v1OrdDate: TcxGridDBColumn;
Order_Main: TClientDataSet;
RMDBDataSet1: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
ToolButton1: TToolButton;
ADOQueryPrint: TADOQuery;
CDS_Print: TClientDataSet;
v1Column4: TcxGridDBColumn;
Panel1: TPanel;
Label1: TLabel;
Label4: TLabel;
Label8: TLabel;
Label9: TLabel;
Label12: TLabel;
Label13: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
hzkhname: TEdit;
MPRTCodeName: TEdit;
HZSCConNo: TEdit;
MPRTKZ: TEdit;
MPRTMF: TEdit;
cxTabControl1: TcxTabControl;
cxSplitter1: TcxSplitter;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
v1Column8: TcxGridDBColumn;
Label2: TLabel;
ClientDataSet2: TClientDataSet;
cxGridPopupMenu2: TcxGridPopupMenu;
CDS_Note: TClientDataSet;
RM1: TRMGridReport;
v1Column13: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column26: TcxGridDBColumn;
ToolButton2: TToolButton;
Panel5: TPanel;
Label28: TLabel;
Button5: TButton;
Button6: TButton;
DateTimePicker1: TDateTimePicker;
Label11: TLabel;
lblFSID: TLabel;
v1Column27: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
btn1: TToolButton;
cv1Column12: TcxGridDBColumn;
cv1Column14: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Label3: TLabel;
SQKHKuanHaoHZ: TEdit;
ToolButton3: TToolButton;
Tv1Column2: TcxGridDBColumn;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label10: TLabel;
HZGuiNo: TEdit;
TiDanNo: TEdit;
FPNO: TEdit;
RMBarCodeObject1: TRMBarCodeObject;
ToolButton4: TToolButton;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cv2Column10: TcxGridDBColumn;
v2Column4: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
v2Column7: TcxGridDBColumn;
cv2Column4: TcxGridDBColumn;
cv2Column12: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
cv2Column6: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
v2Column8: TcxGridDBColumn;
v2Column9: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column4: TcxGridDBColumn;
Tv2Column5: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Tv2Column7: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv2Column8: TcxGridDBColumn;
//RMllPDFExport1: TRMllPDFExport;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure hzkhnameChange(Sender: TObject);
procedure tchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
private
procedure InitGrid();
procedure InitSubGrid();
procedure InitForm();
procedure SetStatus();
function DelData(): Boolean;
{ Private declarations }
public
FFInt: Integer;
canshu1, canshu2: string;
{ Public declarations }
end;
//var
//frmContractListNX: TfrmContractListNX;
implementation
uses
U_DataLink, U_FHSQInPut, U_RTFun, U_ZDYHelp, U_SysLogHelp;
{$R *.dfm}
procedure TfrmFHSQList.SetStatus();
begin
// btn1.Enabled := false;
// ToolButton4.Enabled := False;
if canshu1 = '审核' then
begin
case cxTabControl1.TabIndex of
0:
begin
// btn1.Enabled := true;
end;
1:
begin
// ToolButton4.Enabled := true;
end;
end;
end
else if canshu1 = '高权限' then
begin
case cxTabControl1.TabIndex of
0:
begin
// btn1.Enabled := true;
end;
1:
begin
// ToolButton4.Enabled := true;
end;
end;
end
else
begin
end;
end;
procedure TfrmFHSQList.FormDestroy(Sender: TObject);
begin
inherited;
//frmFHSQList:=nil;
end;
procedure TfrmFHSQList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmFHSQList.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('发货主表ZY', Tv1, '发货管理');
WriteCxGrid('发货子表ZY', Tv2, '发货管理');
Close;
end;
procedure TfrmFHSQList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
Sql.Add(' select A.*,isnull(status,''未完成'')status2 ');
Sql.Add(',SQKHKuanHaoHZ =CAST((select distinct(SQKHKuanHao) + '' '' from FHSQ_Sub X where A.FSID=X.FSID for xml path('''') ) AS VARCHAR(500))');
Sql.Add(',hzkhname =CAST((select distinct(zkhname) + '' '' from FHSQ_Sub X where A.FSID=X.FSID for xml path('''') ) AS VARCHAR(500))');
Sql.Add(' ,HZGuiNo=CAST((select distinct(GuiNo) + '' '' from FHSQ_Sub X where A.FSID=X.FSID for xml path('''') ) AS VARCHAR(500))');
Sql.Add(' ,HZSCConNo=CAST((select distinct(SCConNo) + '' '' from FHSQ_Sub X where A.FSID=X.FSID for xml path('''') ) AS VARCHAR(500))');
Sql.Add(' ,HZSQMoney= (select sum(SQMoney) from FHSQ_Sub X where A.FSID=X.FSID ) ');
sql.Add(' from FHSQ_Main A');
sql.Add(' where SQType=''订单'' ');
sql.Add('AND ISNULL(FHDANWEI,''内'')=' + quotedstr(canshu2));
if cxTabControl1.TabIndex <> 0 then
begin
sql.Add(' and SQDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
sql.Add(' and SQDate<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
end;
if cxTabControl1.TabIndex = 0 then
begin
SQL.Add(' AND ISNULL(status,''未完成'')=''未完成'' ');
end
else if cxTabControl1.TabIndex = 1 then
begin
SQL.Add(' and ISNULL(status,''未完成'')<>''未完成'' ');
end;
if Trim(canshu1) <> '高权限' then
begin
sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
end;
sql.Add(' order by filltime desc ');
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmFHSQList.InitForm();
begin
ReadCxGrid('发货主表ZY', Tv1, '发货管理');
ReadCxGrid('发货子表ZY', Tv2, '发货管理');
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 60;
InitGrid();
end;
procedure TfrmFHSQList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmFHSQList.TBEditClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
// if cxTabControl1.TabIndex <> 0 then
// Exit;
if Trim(canshu1) <> '高权限' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
SQL.Add('select FILLER from FHSQ_MAIN A ');
SQL.Add('where FSID=''' + Trim(Order_Main.fieldbyname('FSID').AsString) + ''' ');
SQL.Add('and filler in ( select username from SY_User where UserName=' + quotedstr(Trim(dname)));
SQL.Add(')');
// showmessage(sql.text);
Open;
end;
// if ADOQueryTemp.ISEMPTY = True then
// begin
// Application.MessageBox('不能操作他人的数据!', '提示', 0);
// Exit;
// end;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0);
Exit;
end;
try
frmFHSQInPut := TfrmFHSQInPut.Create(Application);
with frmFHSQInPut do
begin
PState := 1;
canshu2 := self.canshu2;
FMainId := Trim(Self.Order_Main.fieldbyname('FSID').AsString);
if ShowModal = 1 then
begin
InitGrid();
end;
end;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('申请单修改')));
sql.Add(',' + quotedstr(trim('申请单号：' + trim(Order_Main.FieldByName('FSID').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
end;
finally
frmFHSQInPut.Free;
end;
end;
procedure TfrmFHSQList.TBDelClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if cxTabControl1.TabIndex <> 0 then
Exit;
if canshu1 <> '高权限' then
begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select * from CK_Cloth_CR where CRFlag=''出库''');
sql.add(' and CKNo=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Application.MessageBox('已发货不能删除数据!', '提示', 0);
exit;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能删除!', '提示', 0);
Exit;
end;
if ADOQueryTemp.FieldByName('FHPSHZ').AsInteger > 0 then
begin
Application.MessageBox('已发货不能删除数据!', '提示', 0);
exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then
begin
Order_Main.Delete;
InitSubGrid();
end;
end;
function TfrmFHSQList.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete FHSQ_Main where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
sql.Add('delete FHSQ_Sub where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('申请单删除')));
sql.Add(',' + quotedstr(trim('申请单号：' + trim(Order_Main.FieldByName('FSID').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('数据删除异常！', '提示', 0);
end;
end;
procedure TfrmFHSQList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
// SelExportData(Tv1, ADOQueryMain, '发货申请列表');
end;
procedure TfrmFHSQList.TBPrintClick(Sender: TObject);
var
fPrintFile: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
if Order_Main.IsEmpty then
Exit;
// if cxTabControl1.TabIndex <> 1 then
// Exit;
ExportFtErpFile('坯布发货申请单.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\坯布发货申请单.rmf';
with ADOQueryPrint do
begin
Close;
sql.Clear;
Sql.Add(' select A.*,B.* ');
sql.Add(' from FHSQ_Main A left join FHSQ_Sub B on A.FSId=B.FSId ');
sql.Add(' where A.FSID=' + quotedstr(Trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if FileExists(fPrintFile) then
begin
// try
// Moudle := LoadLibrary('MakeQRBarcode.dll');
// @Makebar := GetProcAddress(Moudle, 'Make');
// @Mixtext := GetProcAddress(Moudle, 'MixText');
// Txt := Trim(Order_Main.fieldbyname('FSID').AsString);
// fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
// if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
// CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
// if FileExists(fImagePath) then
// DeleteFile(fImagePath);
// Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
// except
// application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
// exit;
// end;
RMVariables['QRBARCODE'] := fImagePath;
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
end;
end;
procedure TfrmFHSQList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
TBFind.Click;
InitSubGrid();
end;
procedure TfrmFHSQList.TBAddClick(Sender: TObject);
var
maxno: string;
begin
try
frmFHSQInPut := TfrmFHSQInPut.Create(Application);
with frmFHSQInPut do
begin
PState := 0;
FMainId := '';
canshu2 := self.canshu2;
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmFHSQInPut.Free;
end;
end;
procedure TfrmFHSQList.FormShow(Sender: TObject);
begin
inherited;
canshu1 := self.fParameters1;
canshu2 := self.fParameters2;
InitForm();
SetStatus();
end;
procedure TfrmFHSQList.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmFHSQList.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmFHSQList.ToolButton1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmFHSQInPut := TfrmFHSQInPut.Create(Application);
with frmFHSQInPut do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('FSID').AsString);
ToolBar2.Visible := False;
TBSave.Visible := False;
ScrollBox1.Enabled := False;
Tv1.OptionsSelection.CellSelect := False;
if ShowModal = 1 then
begin
end;
end;
finally
frmFHSQInPut.Free;
end;
end;
procedure TfrmFHSQList.hzkhnameChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmFHSQList.tchkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 0 then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update FHSQ_Main SET Chker=''' + Trim(DName) + ''',ChkTime=getdate(),ChkStatus=''审核通过'' ');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('申请单审核')));
sql.Add(',' + quotedstr(trim('申请单号：' + trim(Order_Main.FieldByName('FSID').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
Order_Main.Delete;
InitSubGrid();
application.MessageBox('审核成功！', '提示信息');
except
application.MessageBox('审核失败！', '提示信息', 0);
end;
end;
procedure TfrmFHSQList.InitSubGrid();
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
if Order_Main.IsEmpty = False then
sql.Add('select A.*,B.ORDERNO from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.MainId where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''')
else
sql.Add('select A.*,B.ORDERNO from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.MainId where 1=2');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryTemp, ClientDataSet2);
SInitCDSData(ADOQueryTemp, ClientDataSet2);
end;
procedure TfrmFHSQList.TnochkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 1 then
exit;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能撤销!', '提示', 0);
Exit;
end;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update FHSQ_Main SET Chker=Null,ChkTime=Null,ChkStatus=Null ');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('申请单撤销审核')));
sql.Add(',' + quotedstr(trim('申请单号：' + trim(Order_Main.FieldByName('FSID').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
execsql;
end;
Order_Main.Delete;
InitSubGrid();
application.MessageBox('撤销成功！', '提示信息');
except
application.MessageBox('撤销失败！', '提示信息', 0);
end;
end;
procedure TfrmFHSQList.cxTabControl1Change(Sender: TObject);
begin
TBRafresh.Click;
SetStatus();
end;
procedure TfrmFHSQList.ToolButton2Click(Sender: TObject);
begin
if Trim(canshu1) <> '高权限' then
begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0);
Exit;
end;
lblFSID.Caption := Order_Main.fieldbyname('FSID').AsString;
DateTimePicker1.DateTime := SGetServerDate(ADOQueryTemp);
Panel5.Left := (self.Width - Panel5.Width) div 2;
Panel5.Visible := true;
end;
procedure TfrmFHSQList.ToolButton3Click(Sender: TObject);
begin
frmSysLogHelp := TfrmSysLogHelp.create(self);
with frmSysLogHelp do
begin
fModel := self.caption;
showmodal;
free;
end;
end;
procedure TfrmFHSQList.ToolButton4Click(Sender: TObject);
begin
inherited;
if Order_Main.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update FHSQ_Main SET status=''未完成'' ');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('订单未完成')));
sql.Add(',' + quotedstr(trim('申请单号：' + trim(Order_Main.FieldByName('FSID').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
// ShowMessage(SQL.Text);
execsql;
end;
Order_Main.Delete;
InitSubGrid();
application.MessageBox('操作成功！', '提示信息');
except
application.MessageBox('操作失败！', '提示信息', 0);
end;
end;
procedure TfrmFHSQList.Button6Click(Sender: TObject);
begin
Panel5.Visible := false;
end;
procedure TfrmFHSQList.Button5Click(Sender: TObject);
begin
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update FHSQ_Main SET fhDate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', DateTimePicker1.Date))));
sql.Add('where FSID=' + quotedstr(trim(lblFSID.Caption)));
execsql;
end;
InitGrid();
Order_Main.Locate('FSID', lblFSID.Caption, []);
Panel5.Visible := false;
application.MessageBox('修改成功！', '提示信息');
except
application.MessageBox('修改失败！', '提示信息', 0);
end;
end;
procedure TfrmFHSQList.btn1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
try
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add(' exec P_CW_CPCK');
// sql.Add(' @DataID=' + QuotedStr(Trim(Order_Main.fieldbyname('FSID').AsString)));
// open;
// end;
// if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
// begin
// Application.MessageBox(PChar(ADOQueryCmd.fieldbyname('ShowMsg').AsString), '提示', 0);
// exit;
// end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update FHSQ_Main SET status=''已完成'' ');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('订单完成')));
sql.Add(',' + quotedstr(trim('申请单号：' + trim(Order_Main.FieldByName('FSID').AsString))));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
// ShowMessage(SQL.Text);
execsql;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add(' exec P_CW_FHSQ @DataID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
begin
Order_Main.EnableControls;
Application.MessageBox(PChar(ADOQueryCmd.fieldbyname('ShowMsg').AsString), '提示', 0);
exit;
end;
Order_Main.Delete;
InitSubGrid();
application.MessageBox('操作成功！', '提示信息');
except
application.MessageBox('操作失败！', '提示信息', 0);
end;
end;
procedure TfrmFHSQList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
if Order_Main.IsEmpty = False then
begin
sql.Add('select A.*, B.ORDERNO from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.MainId ');
// sql.Add(' inner join CLoth_Sub B on A.SubId=B.SubId');
// sql.Add(' inner join CLoth_Main C on B.MainId=C.MainId');
sql.Add(' where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
end
else
begin
sql.Add('select A.*, B.ORDERNO from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.MainId ');
sql.Add(' where 1=2');
end;
Open;
end;
SCreateCDS(ADOQueryTemp, ClientDataSet2);
SInitCDSData(ADOQueryTemp, ClientDataSet2);
end;
end.

1086
发货申请(ShipmentRequest.dll)/U_FHSQList220313.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

758
发货申请(ShipmentRequest.dll)/U_FHSQList220313.pas Normal file
View File

@ -0,0 +1,758 @@
unit U_FHSQList220313;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
RM_E_llPDF, cxDropDownEdit, cxTextEdit;
type
TfrmFHSQList220313 = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
TBExport: TToolButton;
v1OrdDate: TcxGridDBColumn;
v1OrdPerson1: TcxGridDBColumn;
Order_Main: TClientDataSet;
RMDBDataSet1: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
v1CustomerNoName: TcxGridDBColumn;
ToolButton1: TToolButton;
ADOQueryPrint: TADOQuery;
CDS_Print: TClientDataSet;
v1Column4: TcxGridDBColumn;
Panel1: TPanel;
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Label12: TLabel;
Label13: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CustomerNoName: TEdit;
ConPerson1: TEdit;
MPRTCodeName: TEdit;
ConNo: TEdit;
MPRTKZ: TEdit;
MPRTMF: TEdit;
cxTabControl1: TcxTabControl;
tchk: TToolButton;
Tnochk: TToolButton;
cxSplitter1: TcxSplitter;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
v1Column8: TcxGridDBColumn;
Label2: TLabel;
//RMllPDFExport1: TRMllPDFExport;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
ClientDataSet2: TClientDataSet;
cxGridPopupMenu2: TcxGridPopupMenu;
CDS_Note: TClientDataSet;
v2Column2: TcxGridDBColumn;
RM1: TRMGridReport;
v1Column3: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
Label7: TLabel;
Label10: TLabel;
PrtCode: TEdit;
PrtCodeName: TEdit;
v1Column15: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
Label3: TLabel;
SQBatchNoHZ: TEdit;
Label6: TLabel;
SQGCCode: TEdit;
v1Column22: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column26: TcxGridDBColumn;
ToolButton2: TToolButton;
Panel5: TPanel;
Label28: TLabel;
Button5: TButton;
Button6: TButton;
DateTimePicker1: TDateTimePicker;
Label11: TLabel;
lblFSID: TLabel;
v1Column27: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cv2Column4: TcxGridDBColumn;
cv2Column5: TcxGridDBColumn;
cv2Column6: TcxGridDBColumn;
cv2Column7: TcxGridDBColumn;
cv1Column13: TcxGridDBColumn;
cv2Column8: TcxGridDBColumn;
btn1: TToolButton;
cv1Column12: TcxGridDBColumn;
cv2Column9: TcxGridDBColumn;
cv2Column10: TcxGridDBColumn;
cv2Column11: TcxGridDBColumn;
cv2Column12: TcxGridDBColumn;
cv1Column14: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
//RMllPDFExport1: TRMllPDFExport;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject);
procedure tchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ToolButton2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
procedure InitGrid();
procedure InitSubGrid();
procedure InitForm();
procedure SetStatus();
function DelData(): Boolean;
{ Private declarations }
public
FFInt: Integer;
canshu1, canshu2: string;
{ Public declarations }
end;
//var
//frmContractListNX: TfrmContractListNX;
implementation
uses
U_DataLink, U_FHSQInPut, U_RTFun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmFHSQList220313.SetStatus();
begin
tchk.Visible := False;
Tnochk.Visible := False;
if canshu1 = '审核' then
begin
case cxTabControl1.TabIndex of
0:
begin
tchk.Visible := true;
end;
1:
begin
Tnochk.Visible := true;
end;
2:
begin
end;
end;
end
else if canshu1 = '高权限' then
begin
case cxTabControl1.TabIndex of
0:
begin
tchk.Visible := true;
end;
1:
begin
Tnochk.Visible := true;
end;
2:
begin
end;
end;
end
else
begin
end;
end;
procedure TfrmFHSQList220313.FormDestroy(Sender: TObject);
begin
//frmFHSQList:=nil;
end;
procedure TfrmFHSQList220313.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmFHSQList220313.FormCreate(Sender: TObject);
begin
cxgrid1.Align := alClient;
end;
procedure TfrmFHSQList220313.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('发货主表', Tv1, '发货管理');
WriteCxGrid('发货子表', Tv2, '发货管理');
end;
procedure TfrmFHSQList220313.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
Sql.Add(' select A.*,isnull(status,''未完成'')status2 ');
Sql.Add(' ,HZSCConNo=CAST((select SCConNo + '' '' from FHSQ_Sub X where A.FSID=X.FSID for xml path('''') ) AS VARCHAR(100))');
sql.Add(' from FHSQ_Main A');
sql.Add(' where SQType=''订单'' ');
if cxTabControl1.TabIndex <> 0 then
begin
sql.Add(' and SQDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
sql.Add(' and SQDate<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
end;
if cxTabControl1.TabIndex = 0 then
begin
SQL.Add(' and isnull(A.Chker,'''')='''' ');
end
else if cxTabControl1.TabIndex = 1 then
begin
SQL.Add(' and isnull(A.Chker,'''')<>'''' ');
end;
if Trim(canshu1) <> '高权限' then
begin
sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
end;
if (canshu2 = '内销') or (canshu2 = '外销') then
begin
sql.Add(' and isnull(A.XSType,'''')=''' + Trim(canshu2) + '''');
end;
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmFHSQList220313.InitForm();
begin
ReadCxGrid('发货主表', Tv1, '发货管理');
ReadCxGrid('发货子表', Tv2, '发货管理');
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 60;
InitGrid();
end;
procedure TfrmFHSQList220313.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmFHSQList220313.TBEditClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if cxTabControl1.TabIndex <> 0 then
Exit;
if Trim(canshu1) <> '高权限' then
begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0);
Exit;
end;
try
frmFHSQInPut := TfrmFHSQInPut.Create(Application);
with frmFHSQInPut do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('FSID').AsString);
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmFHSQInPut.Free;
end;
end;
procedure TfrmFHSQList220313.TBDelClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if cxTabControl1.TabIndex <> 0 then
Exit;
if canshu1 <> '高权限' then
begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select * from CK_BanCP_CR where CRFlag=''出库''');
sql.add(' and CKOrdNo=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Application.MessageBox('已发货不能删除数据!', '提示', 0);
exit;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能删除!', '提示', 0);
Exit;
end;
if ADOQueryTemp.FieldByName('FHPSHZ').AsInteger > 0 then
begin
Application.MessageBox('已发货不能删除数据!', '提示', 0);
exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then
begin
Order_Main.Delete;
InitSubGrid();
end;
end;
function TfrmFHSQList220313.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete FHSQ_Sub where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete FHSQ_Main where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('数据删除异常！', '提示', 0);
end;
end;
procedure TfrmFHSQList220313.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
SelExportData(Tv1, ADOQueryMain, '发货申请列表');
end;
procedure TfrmFHSQList220313.TBPrintClick(Sender: TObject);
var
fPrintFile: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
if Order_Main.IsEmpty then
Exit;
// if cxTabControl1.TabIndex <> 1 then
// Exit;
ExportFtErpFile('坯布发货申请单.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\坯布发货申请单.rmf';
with ADOQueryPrint do
begin
Close;
sql.Clear;
Sql.Add(' select A.*,B.* ');
sql.Add(' from FHSQ_Main A left join FHSQ_Sub B on A.FSId=B.FSId ');
sql.Add(' where A.FSID=' + quotedstr(Trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if FileExists(fPrintFile) then
begin
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(Order_Main.fieldbyname('FSID').AsString);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
exit;
end;
RMVariables['QRBARCODE'] := fImagePath;
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
end;
end;
procedure TfrmFHSQList220313.TBRafreshClick(Sender: TObject);
begin
InitGrid();
TBFind.Click;
InitSubGrid();
end;
procedure TfrmFHSQList220313.TBAddClick(Sender: TObject);
var
maxno: string;
begin
try
frmFHSQInPut := TfrmFHSQInPut.Create(Application);
with frmFHSQInPut do
begin
PState := 0;
FMainId := '';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmFHSQInPut.Free;
end;
end;
procedure TfrmFHSQList220313.FormShow(Sender: TObject);
begin
InitForm();
SetStatus();
end;
procedure TfrmFHSQList220313.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmFHSQList220313.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmFHSQList220313.ToolButton1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmFHSQInPut := TfrmFHSQInPut.Create(Application);
with frmFHSQInPut do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('FSID').AsString);
ToolBar2.Visible := False;
TBSave.Visible := False;
ScrollBox1.Enabled := False;
Tv1.OptionsSelection.CellSelect := False;
if ShowModal = 1 then
begin
end;
end;
finally
frmFHSQInPut.Free;
end;
end;
procedure TfrmFHSQList220313.CustomerNoNameChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmFHSQList220313.tchkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 0 then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update FHSQ_Main SET Chker=''' + Trim(DName) + ''',ChkTime=getdate(),ChkStatus=''审核通过'' ');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
execsql;
end;
Order_Main.Delete;
InitSubGrid();
application.MessageBox('审核成功！', '提示信息');
except
application.MessageBox('审核失败！', '提示信息', 0);
end;
end;
procedure TfrmFHSQList220313.InitSubGrid();
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
if Order_Main.IsEmpty = False then
sql.Add('select A.*,B.ORDERNO from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.MainId where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''')
else
sql.Add('select A.*,B.ORDERNO from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.MainId where 1=2');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryTemp, ClientDataSet2);
SInitCDSData(ADOQueryTemp, ClientDataSet2);
end;
procedure TfrmFHSQList220313.TnochkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 1 then
exit;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能撤销!', '提示', 0);
Exit;
end;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update FHSQ_Main SET Chker=Null,ChkTime=Null,ChkStatus=Null ');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
execsql;
end;
Order_Main.Delete;
InitSubGrid();
application.MessageBox('撤销成功！', '提示信息');
except
application.MessageBox('撤销失败！', '提示信息', 0);
end;
end;
procedure TfrmFHSQList220313.cxTabControl1Change(Sender: TObject);
begin
TBRafresh.Click;
SetStatus();
end;
procedure TfrmFHSQList220313.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
if Order_Main.IsEmpty = False then
begin
sql.Add('select A.*, B.ORDERNO from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.MainId ');
// sql.Add(' inner join CLoth_Sub B on A.SubId=B.SubId');
// sql.Add(' inner join CLoth_Main C on B.MainId=C.MainId');
sql.Add(' where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
end
else
begin
sql.Add('select A.*, B.ORDERNO from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.MainId ');
sql.Add(' where 1=2');
end;
Open;
end;
SCreateCDS(ADOQueryTemp, ClientDataSet2);
SInitCDSData(ADOQueryTemp, ClientDataSet2);
end;
procedure TfrmFHSQList220313.ToolButton2Click(Sender: TObject);
begin
if Trim(canshu1) <> '高权限' then
begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0);
Exit;
end;
lblFSID.Caption := Order_Main.fieldbyname('FSID').AsString;
DateTimePicker1.DateTime := SGetServerDate(ADOQueryTemp);
Panel5.Left := (self.Width - Panel5.Width) div 2;
Panel5.Visible := true;
end;
procedure TfrmFHSQList220313.Button6Click(Sender: TObject);
begin
Panel5.Visible := false;
end;
procedure TfrmFHSQList220313.Button5Click(Sender: TObject);
begin
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update FHSQ_Main SET fhDate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', DateTimePicker1.Date))));
sql.Add('where FSID=' + quotedstr(trim(lblFSID.Caption)));
execsql;
end;
InitGrid();
Order_Main.Locate('FSID', lblFSID.Caption, []);
Panel5.Visible := false;
application.MessageBox('修改成功！', '提示信息');
except
application.MessageBox('修改失败！', '提示信息', 0);
end;
end;
procedure TfrmFHSQList220313.btn1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update FHSQ_Main SET status='' 已完成'' ');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
// ShowMessage(SQL.Text);
execsql;
end;
Order_Main.Delete;
InitSubGrid();
application.MessageBox('操作成功！', '提示信息');
except
application.MessageBox('操作失败！', '提示信息', 0);
end;
end;
end.

875
发货申请(ShipmentRequest.dll)/U_FHSQListSel.dfm Normal file
View File

@ -0,0 +1,875 @@
object frmFHSQListSel: TfrmFHSQListSel
Left = 202
Top = 97
Caption = #21457#36135#30003#35831#36873#25321
ClientHeight = 780
ClientWidth = 1540
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = True
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_ShipmentRequest.ImageList_new32
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object ToolButton2: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #36873#25321
ImageIndex = 12
OnClick = ToolButton2Click
end
object TBRafresh: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 13
OnClick = TBFindClick
end
object ToolButton1: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #26597#30475
ImageIndex = 8
end
object TBClose: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 38
Width = 1540
Height = 43
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 23
Top = 15
Width = 52
Height = 12
Caption = #30003#35831#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 263
Top = 15
Width = 26
Height = 12
Caption = #23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 430
Top = 99
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 394
Top = 15
Width = 39
Height = 12
Caption = #35746#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 303
Top = 99
Width = 26
Height = 12
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 303
Top = 123
Width = 26
Height = 12
Caption = #38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 160
Top = 15
Width = 4
Height = 13
Caption = '-'
end
object Label3: TLabel
Left = 550
Top = 15
Width = 52
Height = 12
Caption = #30003#35831#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 76
Top = 11
Width = 85
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 168
Top = 11
Width = 86
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 1
end
object CustomerNoName: TEdit
Tag = 2
Left = 295
Top = 10
Width = 78
Height = 21
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 2
OnChange = CustomerNoNameChange
end
object MPRTCodeName: TEdit
Tag = 2
Left = 483
Top = 95
Width = 76
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 5
OnChange = CustomerNoNameChange
end
object HZSCConNo: TEdit
Tag = 2
Left = 446
Top = 11
Width = 77
Height = 21
TabOrder = 3
OnChange = CustomerNoNameChange
end
object MPRTKZ: TEdit
Tag = 2
Left = 332
Top = 95
Width = 56
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 4
OnChange = CustomerNoNameChange
end
object MPRTMF: TEdit
Tag = 2
Left = 332
Top = 119
Width = 56
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 6
OnChange = CustomerNoNameChange
end
object FSID: TEdit
Tag = 2
Left = 610
Top = 12
Width = 77
Height = 21
TabOrder = 7
OnChange = CustomerNoNameChange
end
end
object cxTabControl1: TcxTabControl
Left = 0
Top = 81
Width = 1540
Height = 21
Align = alTop
Enabled = False
TabOrder = 2
Visible = False
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 1
Properties.Tabs.Strings = (
#26410#23457#26680
#24050#23457#26680
#20840#37096)
OnChange = cxTabControl1Change
ClientRectRight = 0
ClientRectTop = 0
end
object cxSplitter1: TcxSplitter
Left = 0
Top = 772
Width = 1540
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
Visible = False
end
object cxTabControl2: TcxTabControl
Left = 0
Top = 102
Width = 1540
Height = 21
Align = alTop
TabOrder = 4
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 0
Properties.Tabs.Strings = (
#26410#21457#36135
#24050#21457#36135
#20840#37096)
OnChange = cxTabControl2Change
ClientRectRight = 0
ClientRectTop = 0
end
object cxGrid1: TcxGrid
Left = 0
Top = 123
Width = 1540
Height = 400
Align = alClient
TabOrder = 5
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column26
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column1
end
item
Kind = skSum
Column = v1Column18
end
item
Kind = skSum
Column = v1Column19
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
OptionsView.Indicator = True
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
Styles.Footer = DataLink_ShipmentRequest.Default
Styles.Header = DataLink_ShipmentRequest.Default
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
object v1Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
Visible = False
HeaderAlignmentHorz = taCenter
Width = 49
end
object v1Column8: TcxGridDBColumn
Caption = #30003#35831#21333#21495
DataBinding.FieldName = 'FSID'
HeaderAlignmentHorz = taCenter
Width = 93
end
object v1Column2: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'HZSCConNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 341
end
object v1Column10: TcxGridDBColumn
Caption = #25910#36135#21333#20301
DataBinding.FieldName = 'SHDanWei'
HeaderAlignmentHorz = taCenter
Width = 124
end
object v1OrdDate: TcxGridDBColumn
Caption = #30003#35831#26085#26399
DataBinding.FieldName = 'SQDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 70
end
object v1Column26: TcxGridDBColumn
Caption = #30003#35831#25968#37327
DataBinding.FieldName = 'SQQtyHZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object v1Column1: TcxGridDBColumn
Caption = #30003#35831#20154
DataBinding.FieldName = 'Filler'
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column13: TcxGridDBColumn
Caption = #23457#26680#20154
DataBinding.FieldName = 'Chker'
HeaderAlignmentHorz = taCenter
Width = 65
end
object v1Column17: TcxGridDBColumn
Caption = #23457#26680#26085#26399
DataBinding.FieldName = 'ChkTime'
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column18: TcxGridDBColumn
Caption = #21457#36135#21305#25968
DataBinding.FieldName = 'FHPSHZ'
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column19: TcxGridDBColumn
Caption = #21457#36135#25968#37327
DataBinding.FieldName = 'FHQtyHZ'
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column3: TcxGridDBColumn
Caption = #26588#21495
DataBinding.FieldName = 'guino'
HeaderAlignmentHorz = taCenter
Width = 76
end
object v1Column7: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column27: TcxGridDBColumn
Caption = #21457#36135#26085#26399
DataBinding.FieldName = 'fhDate'
HeaderAlignmentHorz = taCenter
end
object cv1Column12: TcxGridDBColumn
Caption = #35746#21333#29366#24577
DataBinding.FieldName = 'status2'
HeaderAlignmentHorz = taCenter
Width = 88
end
object cv1Column14: TcxGridDBColumn
Caption = #20132#36135#30830#35748#26085#26399
DataBinding.FieldName = 'dlydate'
HeaderAlignmentHorz = taCenter
Width = 91
end
object v1Column3: TcxGridDBColumn
Caption = #31665#21495
DataBinding.FieldName = 'FPNO'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 56
end
object v1Column5: TcxGridDBColumn
Caption = #20184#27454#22791#27880
DataBinding.FieldName = 'FKNote'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 57
end
object v1Column6: TcxGridDBColumn
Caption = #25552#36135#26085#26399
DataBinding.FieldName = 'THDATE'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 59
end
object v1Column9: TcxGridDBColumn
Caption = #20184#27454#21333#20301
DataBinding.FieldName = 'FKDanWei'
end
object Tv1Column1: TcxGridDBColumn
Caption = #24635#37329#39069
DataBinding.FieldName = 'HZSQMoney'
HeaderAlignmentHorz = taCenter
Width = 68
end
object Tv1Column2: TcxGridDBColumn
Caption = #25552#21333#21495
DataBinding.FieldName = 'TiDanNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #33337#26679#25968
DataBinding.FieldName = 'CYSHU'
HeaderAlignmentHorz = taCenter
Width = 75
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGrid2: TcxGrid
Left = 0
Top = 523
Width = 1540
Height = 249
Align = alBottom
TabOrder = 6
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Format = '0'
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv2Column3
end
item
Kind = skSum
Column = v2Column3
end
item
Kind = skSum
Column = v2Column1
end
item
Kind = skSum
Column = cv2Column6
end
item
Kind = skSum
Column = cv2Column12
end
item
Kind = skSum
Column = Tv2Column2
end
item
Kind = skSum
Column = v2Column9
end
item
Kind = skSum
Column = Tv2Column6
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
Styles.Footer = DataLink_ShipmentRequest.Default
Styles.Header = DataLink_ShipmentRequest.Default
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
object cv2Column10: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'SCConNo'
HeaderAlignmentHorz = taCenter
Width = 97
end
object v2Column4: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'SPrtCode'
HeaderAlignmentHorz = taCenter
Width = 78
end
object v2Column5: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'SPrtCodeName'
HeaderAlignmentHorz = taCenter
Width = 71
end
object v2Column7: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'PRTHX'
HeaderAlignmentHorz = taCenter
Width = 57
end
object cv2Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'prtcolor'
HeaderAlignmentHorz = taCenter
Width = 88
end
object cv2Column12: TcxGridDBColumn
Caption = #35746#21333#25968#37327
DataBinding.FieldName = 'orderqty'
HeaderAlignmentHorz = taCenter
Width = 94
end
object v2Column2: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'OrderUnit'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
end
object cv2Column6: TcxGridDBColumn
Caption = #30003#35831#25968#37327
DataBinding.FieldName = 'sqqty'
HeaderAlignmentHorz = taCenter
Width = 82
end
object Tv2Column6: TcxGridDBColumn
Caption = #21253#25968
DataBinding.FieldName = 'baoshu'
HeaderAlignmentHorz = taCenter
Width = 72
end
object v2Column1: TcxGridDBColumn
Caption = #21457#36135#21305#25968
DataBinding.FieldName = 'FHPS'
HeaderAlignmentHorz = taCenter
Width = 82
end
object v2Column3: TcxGridDBColumn
Caption = #21457#36135#31859#25968
DataBinding.FieldName = 'FHQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object Tv2Column3: TcxGridDBColumn
Caption = #21457#36135#37325#37327
DataBinding.FieldName = 'FHKgQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object Tv2Column2: TcxGridDBColumn
Caption = #21457#36135#30721#25968
DataBinding.FieldName = 'FHYQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object v2Column8: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'SQPrice'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v2Column9: TcxGridDBColumn
Caption = #37329#39069
DataBinding.FieldName = 'SQMoney'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object Tv2Column1: TcxGridDBColumn
Caption = #23458#25143#27454#21495
DataBinding.FieldName = 'SQKHKuanHao'
HeaderAlignmentHorz = taCenter
Width = 78
end
object Tv2Column4: TcxGridDBColumn
Caption = #31435#26041#25968
DataBinding.FieldName = 'LiFangQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object Tv2Column5: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'ZKhname'
HeaderAlignmentHorz = taCenter
Width = 70
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 1000
Top = 184
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 504
Top = 184
end
object ADOQueryMain: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 640
Top = 176
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 704
Top = 176
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 968
Top = 184
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 936
Top = 184
end
object ADOQuerySub: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 740
Top = 176
end
object DataSource2: TDataSource
DataSet = ClientDataSet2
Left = 368
Top = 576
end
object ClientDataSet2: TClientDataSet
Aggregates = <>
Params = <>
Left = 496
Top = 504
end
object cxGridPopupMenu2: TcxGridPopupMenu
PopupMenus = <>
Left = 528
Top = 504
end
end

351
发货申请(ShipmentRequest.dll)/U_FHSQListSel.pas Normal file
View File

@ -0,0 +1,351 @@
unit U_FHSQListSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters,
dxBarBuiltInMenu, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters,
dxDateRanges, U_BaseList;
type
TfrmFHSQListSel = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Order_Main: TClientDataSet;
ToolButton1: TToolButton;
Panel1: TPanel;
Label1: TLabel;
Label4: TLabel;
Label8: TLabel;
Label9: TLabel;
Label12: TLabel;
Label13: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CustomerNoName: TEdit;
MPRTCodeName: TEdit;
HZSCConNo: TEdit;
MPRTKZ: TEdit;
MPRTMF: TEdit;
cxTabControl1: TcxTabControl;
cxSplitter1: TcxSplitter;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
Label2: TLabel;
ClientDataSet2: TClientDataSet;
cxGridPopupMenu2: TcxGridPopupMenu;
ToolButton2: TToolButton;
Label3: TLabel;
FSID: TEdit;
cxTabControl2: TcxTabControl;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column4: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1OrdDate: TcxGridDBColumn;
v1Column26: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
cv1Column12: TcxGridDBColumn;
cv1Column14: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cv2Column10: TcxGridDBColumn;
v2Column4: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
v2Column7: TcxGridDBColumn;
cv2Column4: TcxGridDBColumn;
cv2Column12: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
cv2Column6: TcxGridDBColumn;
Tv2Column6: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn;
v2Column8: TcxGridDBColumn;
v2Column9: TcxGridDBColumn;
Tv2Column1: TcxGridDBColumn;
Tv2Column4: TcxGridDBColumn;
Tv2Column5: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
//RMllPDFExport1: TRMllPDFExport;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ToolButton2Click(Sender: TObject);
procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure cxTabControl2Change(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
private
procedure InitGrid();
procedure InitSubGrid();
procedure InitForm();
{ Private declarations }
public
FFInt: Integer;
canshu1: string;
canshu2: string;
{ Public declarations }
end;
var
frmFHSQListSel: TfrmFHSQListSel;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmFHSQListSel.FormDestroy(Sender: TObject);
begin
frmFHSQListSel := nil;
end;
procedure TfrmFHSQListSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmFHSQListSel.FormCreate(Sender: TObject);
begin
cxgrid1.Align := alClient;
end;
procedure TfrmFHSQListSel.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('发货申请选择ZY', Tv1, '发货申请管理');
WriteCxGrid('发货申请选择ZY', Tv2, '发货申请管理');
Close;
end;
procedure TfrmFHSQListSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
Sql.Add(' select A.*,NoteZ=A.Note,dfpshz=(SQPSHZ-isnull(FHPSHZ,0)) ');
Sql.Add(' ,HZSCConNo=CAST((select distinct(SCConNo) + '' '' from FHSQ_Sub X where A.FSID=X.FSID for xml path('''') ) AS VARCHAR(100))');
sql.Add(' from FHSQ_Main A');
sql.Add(' where 1=1'); //chkstatus=''审核通过''
sql.Add('AND ISNULL(FHDANWEI,''内'')=' + quotedstr(canshu2));
// sql.Add('and SQQTYHZ>isnull(FHQTYHZ,0)');
if cxTabControl1.TabIndex <> 0 then
begin
sql.Add(' and SQDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
sql.Add(' and SQDate<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
end;
if cxTabControl2.TabIndex = 0 then
begin
sql.Add('and isnull(FHPSHZ,0)=0');
end;
if cxTabControl2.TabIndex = 1 then
begin
sql.Add('and isnull(FHPSHZ,0)>0');
end;
SQL.Add('order by sqdate desc');
// showmessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmFHSQListSel.InitForm();
begin
ReadCxGrid('发货申请选择ZY', Tv1, '发货申请管理');
ReadCxGrid('发货申请选择ZY', Tv2, '发货申请管理');
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 7;
InitGrid();
end;
procedure TfrmFHSQListSel.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmFHSQListSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
TBFind.Click;
InitSubGrid();
end;
procedure TfrmFHSQListSel.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmFHSQListSel.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmFHSQListSel.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmFHSQListSel.CustomerNoNameChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmFHSQListSel.InitSubGrid();
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
if Order_Main.IsEmpty = False then
sql.Add('select * from FHSQ_Sub A where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''')
else
sql.Add('select * from FHSQ_Sub A where 1=2');
Open;
end;
SCreateCDS(ADOQueryTemp, ClientDataSet2);
SInitCDSData(ADOQueryTemp, ClientDataSet2);
end;
procedure TfrmFHSQListSel.cxTabControl1Change(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmFHSQListSel.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
if Order_Main.IsEmpty = False then
begin
sql.Add('select A.* from FHSQ_Sub A ');
// sql.Add(' inner join CLoth_Sub B on A.SubId=B.SubId');
// sql.Add(' inner join CLoth_Main C on B.MainId=C.MainId');
sql.Add(' where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
end
else
begin
sql.Add('select A.* from FHSQ_Sub A ');
// sql.Add(' inner join CLoth_Sub B on A.SubId=B.SubId');
// sql.Add(' inner join CLoth_Main C on B.MainId=C.MainId');
sql.Add(' where 1=2');
end;
Open;
end;
SCreateCDS(ADOQueryTemp, ClientDataSet2);
SInitCDSData(ADOQueryTemp, ClientDataSet2);
end;
procedure TfrmFHSQListSel.ToolButton2Click(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmFHSQListSel.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
ModalResult := 1;
end;
procedure TfrmFHSQListSel.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
ToolButton2.Click;
end;
procedure TfrmFHSQListSel.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
if Order_Main.IsEmpty = False then
begin
sql.Add('select A.*, B.ORDERNO from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.MainId ');
// sql.Add(' inner join CLoth_Sub B on A.SubId=B.SubId');
// sql.Add(' inner join CLoth_Main C on B.MainId=C.MainId');
sql.Add(' where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
end
else
begin
sql.Add('select A.*, B.ORDERNO from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.MainId ');
sql.Add(' where 1=2');
end;
Open;
end;
SCreateCDS(ADOQueryTemp, ClientDataSet2);
SInitCDSData(ADOQueryTemp, ClientDataSet2);
end;
procedure TfrmFHSQListSel.cxTabControl2Change(Sender: TObject);
begin
InitGrid();
end;
end.

1085
发货申请(ShipmentRequest.dll)/U_FHSQListXH.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

754
发货申请(ShipmentRequest.dll)/U_FHSQListXH.pas Normal file
View File

@ -0,0 +1,754 @@
unit U_FHSQListXH;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters,
dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu;
type
TfrmFHSQListXH = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBDel: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
TBExport: TToolButton;
v1OrdDate: TcxGridDBColumn;
v1OrdPerson1: TcxGridDBColumn;
Order_Main: TClientDataSet;
RMDBDataSet1: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
v1CustomerNoName: TcxGridDBColumn;
ToolButton1: TToolButton;
ADOQueryPrint: TADOQuery;
CDS_Print: TClientDataSet;
v1Column4: TcxGridDBColumn;
Panel1: TPanel;
Label1: TLabel;
Label4: TLabel;
Label5: TLabel;
Label8: TLabel;
Label9: TLabel;
Label12: TLabel;
Label13: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CustomerNoName: TEdit;
ConPerson1: TEdit;
MPRTCodeName: TEdit;
ConNo: TEdit;
MPRTKZ: TEdit;
MPRTMF: TEdit;
cxTabControl1: TcxTabControl;
tchk: TToolButton;
Tnochk: TToolButton;
cxSplitter1: TcxSplitter;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
v1Column8: TcxGridDBColumn;
Label2: TLabel;
//RMllPDFExport1: TRMllPDFExport;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
ClientDataSet2: TClientDataSet;
cxGridPopupMenu2: TcxGridPopupMenu;
CDS_Note: TClientDataSet;
v2Column2: TcxGridDBColumn;
RM1: TRMGridReport;
v1Column3: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
Label7: TLabel;
Label10: TLabel;
PrtCode: TEdit;
PrtCodeName: TEdit;
v1Column15: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
Label3: TLabel;
SQBatchNoHZ: TEdit;
Label6: TLabel;
SQGCCode: TEdit;
v1Column22: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column26: TcxGridDBColumn;
ToolButton2: TToolButton;
Panel5: TPanel;
Label28: TLabel;
Button5: TButton;
Button6: TButton;
DateTimePicker1: TDateTimePicker;
Label11: TLabel;
lblFSID: TLabel;
v1Column27: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cv2Column4: TcxGridDBColumn;
cv2Column5: TcxGridDBColumn;
cv2Column6: TcxGridDBColumn;
cv2Column7: TcxGridDBColumn;
cv1Column13: TcxGridDBColumn;
cv2Column8: TcxGridDBColumn;
btn1: TToolButton;
cv1Column12: TcxGridDBColumn;
cv2Column9: TcxGridDBColumn;
cv2Column10: TcxGridDBColumn;
cv2Column11: TcxGridDBColumn;
cv2Column12: TcxGridDBColumn;
cv1Column14: TcxGridDBColumn;
//RMllPDFExport1: TRMllPDFExport;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject);
procedure tchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure ToolButton2Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
procedure InitGrid();
procedure InitSubGrid();
procedure InitForm();
procedure SetStatus();
function DelData(): Boolean;
{ Private declarations }
public
FFInt: Integer;
canshu1: string;
{ Public declarations }
end;
//var
//frmContractListNX: TfrmContractListNX;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_FHSQInPutXH;
{$R *.dfm}
procedure TfrmFHSQListXH.SetStatus();
begin
tchk.Visible := False;
Tnochk.Visible := False;
if canshu1 = '审核' then
begin
case cxTabControl1.TabIndex of
0:
begin
tchk.Visible := true;
end;
1:
begin
Tnochk.Visible := true;
end;
2:
begin
end;
end;
end
else if canshu1 = '高权限' then
begin
case cxTabControl1.TabIndex of
0:
begin
tchk.Visible := true;
end;
1:
begin
Tnochk.Visible := true;
end;
2:
begin
end;
end;
end
else
begin
end;
end;
procedure TfrmFHSQListXH.FormDestroy(Sender: TObject);
begin
//frmFHSQList:=nil;
end;
procedure TfrmFHSQListXH.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmFHSQListXH.FormCreate(Sender: TObject);
begin
cxgrid1.Align := alClient;
end;
procedure TfrmFHSQListXH.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('发货主表', Tv1, '发货管理');
WriteCxGrid('发货子表', Tv2, '发货管理');
end;
procedure TfrmFHSQListXH.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
Sql.Add(' select A.*,isnull(status,''未完成'')status2 ');
sql.Add(' from FHSQ_Main A');
sql.Add(' where SQType=''现货''');
if cxTabControl1.TabIndex <> 0 then
begin
sql.Add(' and SQDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
sql.Add(' and SQDate<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
end;
if cxTabControl1.TabIndex = 0 then
begin
SQL.Add(' and isnull(A.Chker,'''')='''' ');
end
else if cxTabControl1.TabIndex = 1 then
begin
SQL.Add(' and isnull(A.Chker,'''')<>'''' ');
end;
if Trim(canshu1) <> '高权限' then
begin
sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
end;
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmFHSQListXH.InitForm();
begin
ReadCxGrid('发货主表', Tv1, '发货管理');
ReadCxGrid('发货子表', Tv2, '发货管理');
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime - 60;
InitGrid();
end;
procedure TfrmFHSQListXH.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmFHSQListXH.TBEditClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if cxTabControl1.TabIndex <> 0 then
Exit;
if Trim(canshu1) <> '高权限' then
begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0);
Exit;
end;
try
frmFHSQInPutXH := TfrmFHSQInPutXH.Create(Application);
with frmFHSQInPutXH do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('FSID').AsString);
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmFHSQInPutXH.Free;
end;
end;
procedure TfrmFHSQListXH.TBDelClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if cxTabControl1.TabIndex <> 0 then
Exit;
if canshu1 <> '高权限' then
begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select * from CK_BanCP_CR where CRFlag=''出库''');
sql.add(' and CKOrdNo=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Application.MessageBox('已发货不能删除数据!', '提示', 0);
exit;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能删除!', '提示', 0);
Exit;
end;
if ADOQueryTemp.FieldByName('FHPSHZ').AsInteger > 0 then
begin
Application.MessageBox('已发货不能删除数据!', '提示', 0);
exit;
end;
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
if DelData() then
begin
Order_Main.Delete;
InitSubGrid();
end;
end;
function TfrmFHSQListXH.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete FHSQ_Sub where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete FHSQ_Main where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('数据删除异常！', '提示', 0);
end;
end;
procedure TfrmFHSQListXH.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
// SelExportData(Tv1, ADOQueryMain, '发货申请列表');
end;
procedure TfrmFHSQListXH.TBPrintClick(Sender: TObject);
var
fPrintFile: string;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
if Order_Main.IsEmpty then
Exit;
// if cxTabControl1.TabIndex <> 1 then
// Exit;
ExportFtErpFile('坯布发货申请单.rmf', ADOQueryTemp);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\坯布发货申请单.rmf';
with ADOQueryPrint do
begin
Close;
sql.Clear;
Sql.Add(' select A.*,B.* ');
sql.Add(' from FHSQ_Main A left join FHSQ_Sub B on A.FSId=B.FSId ');
sql.Add(' where A.FSID=' + quotedstr(Trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if FileExists(fPrintFile) then
begin
try
Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(Order_Main.fieldbyname('FSID').AsString);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
if FileExists(fImagePath) then
DeleteFile(fImagePath);
Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
except
application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
exit;
end;
RMVariables['QRBARCODE'] := fImagePath;
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
end;
end;
procedure TfrmFHSQListXH.TBRafreshClick(Sender: TObject);
begin
InitGrid();
TBFind.Click;
InitSubGrid();
end;
procedure TfrmFHSQListXH.TBAddClick(Sender: TObject);
var
maxno: string;
begin
try
frmFHSQInPutXH := TfrmFHSQInPutXH.Create(Application);
with frmFHSQInPutXH do
begin
PState := 0;
FMainId := '';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmFHSQInPutXH.Free;
end;
end;
procedure TfrmFHSQListXH.FormShow(Sender: TObject);
begin
InitForm();
SetStatus();
end;
procedure TfrmFHSQListXH.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmFHSQListXH.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmFHSQListXH.ToolButton1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmFHSQInPutXH := TfrmFHSQInPutXH.Create(Application);
with frmFHSQInPutXH do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('FSID').AsString);
ToolBar2.Visible := False;
TBSave.Visible := False;
ScrollBox1.Enabled := False;
Tv1.OptionsSelection.CellSelect := False;
if ShowModal = 1 then
begin
end;
end;
finally
frmFHSQInPutXH.Free;
end;
end;
procedure TfrmFHSQListXH.CustomerNoNameChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmFHSQListXH.tchkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 0 then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update FHSQ_Main SET Chker=''' + Trim(DName) + ''',ChkTime=getdate(),ChkStatus=''审核通过'' ');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
execsql;
end;
Order_Main.Delete;
InitSubGrid();
application.MessageBox('审核成功！', '提示信息');
except
application.MessageBox('审核失败！', '提示信息', 0);
end;
end;
procedure TfrmFHSQListXH.InitSubGrid();
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
if Order_Main.IsEmpty = False then
sql.Add('select A.*,B.ORDERNO from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.MainId where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''')
else
sql.Add('select A.*,B.ORDERNO from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.MainId where 1=2');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryTemp, ClientDataSet2);
SInitCDSData(ADOQueryTemp, ClientDataSet2);
end;
procedure TfrmFHSQListXH.TnochkClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
if cxTabControl1.TabIndex <> 1 then
exit;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能撤销!', '提示', 0);
Exit;
end;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update FHSQ_Main SET Chker=Null,ChkTime=Null,ChkStatus=Null ');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
execsql;
end;
Order_Main.Delete;
InitSubGrid();
application.MessageBox('撤销成功！', '提示信息');
except
application.MessageBox('撤销失败！', '提示信息', 0);
end;
end;
procedure TfrmFHSQListXH.cxTabControl1Change(Sender: TObject);
begin
TBRafresh.Click;
SetStatus();
end;
procedure TfrmFHSQListXH.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
if Order_Main.IsEmpty = False then
begin
sql.Add('select A.*, B.ORDERNO from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.MainId ');
// sql.Add(' inner join CLoth_Sub B on A.SubId=B.SubId');
// sql.Add(' inner join CLoth_Main C on B.MainId=C.MainId');
sql.Add(' where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
end
else
begin
sql.Add('select A.*, B.ORDERNO from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.MainId ');
sql.Add(' where 1=2');
end;
Open;
end;
SCreateCDS(ADOQueryTemp, ClientDataSet2);
SInitCDSData(ADOQueryTemp, ClientDataSet2);
end;
procedure TfrmFHSQListXH.ToolButton2Click(Sender: TObject);
begin
if Trim(canshu1) <> '高权限' then
begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0);
Exit;
end;
lblFSID.Caption := Order_Main.fieldbyname('FSID').AsString;
DateTimePicker1.DateTime := SGetServerDate(ADOQueryTemp);
Panel5.Left := (self.Width - Panel5.Width) div 2;
Panel5.Visible := true;
end;
procedure TfrmFHSQListXH.Button6Click(Sender: TObject);
begin
Panel5.Visible := false;
end;
procedure TfrmFHSQListXH.Button5Click(Sender: TObject);
begin
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update FHSQ_Main SET fhDate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', DateTimePicker1.Date))));
sql.Add('where FSID=' + quotedstr(trim(lblFSID.Caption)));
execsql;
end;
InitGrid();
Order_Main.Locate('FSID', lblFSID.Caption, []);
Panel5.Visible := false;
application.MessageBox('修改成功！', '提示信息');
except
application.MessageBox('修改失败！', '提示信息', 0);
end;
end;
procedure TfrmFHSQListXH.btn1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
exit;
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update FHSQ_Main SET status='' 已完成'' ');
sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
// ShowMessage(SQL.Text);
execsql;
end;
Order_Main.Delete;
InitSubGrid();
application.MessageBox('操作成功！', '提示信息');
except
application.MessageBox('操作失败！', '提示信息', 0);
end;
end;
end.

188
发货申请(ShipmentRequest.dll)/U_FileUp.dfm Normal file
View File

@ -0,0 +1,188 @@
object frmFileUp: TfrmFileUp
Left = 247
Top = 162
Width = 634
Height = 447
Caption = #19978#20256#25991#20214
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object cxGrid7: TcxGrid
Left = 0
Top = 41
Width = 555
Height = 367
Align = alClient
TabOrder = 0
object TV7: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.GroupByBox = False
OptionsView.Indicator = True
object FileName: TcxGridDBColumn
Tag = 1
Caption = #25991#20214#21517#31216
DataBinding.FieldName = 'FileName'
FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
Width = 121
end
object FileDate: TcxGridDBColumn
Tag = 1
Caption = #19978#20256#26085#26399
DataBinding.FieldName = 'FileDate'
FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
Width = 104
end
end
object cxGridLevel6: TcxGridLevel
GridView = TV7
end
end
object Panel16: TPanel
Left = 190
Top = 126
Width = 138
Height = 30
BevelInner = bvRaised
Caption = #27491#22312#19978#20256#12290#12290#12290
Color = clSkyBlue
TabOrder = 1
Visible = False
end
object ToolBar6: TToolBar
Left = 555
Top = 41
Width = 63
Height = 367
Align = alRight
AutoSize = True
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Flat = True
Images = DataLink_DDMD.ThreeImgList
List = True
ShowCaptions = True
TabOrder = 2
object FileUp: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #19978#20256
ImageIndex = 109
Wrap = True
OnClick = FileUpClick
end
object FileDel: TToolButton
Left = 0
Top = 30
AutoSize = True
Caption = #21024#38500
ImageIndex = 17
Wrap = True
OnClick = FileDelClick
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 618
Height = 41
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 3
object Label1: TLabel
Left = 8
Top = 14
Width = 68
Height = 16
Caption = #20135#21697#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Image2: TImage
Left = 537
Top = 17
Width = 23
Height = 16
end
object Code: TEdit
Left = 78
Top = 9
Width = 211
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
end
end
object ODPat: TOpenDialog
Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
Left = 404
Top = 197
end
object IdFTP1: TIdFTP
MaxLineAction = maException
ReadTimeout = 0
ProxySettings.ProxyType = fpcmNone
ProxySettings.Port = 0
Left = 405
Top = 236
end
object SaveDialog1: TSaveDialog
Left = 409
Top = 285
end
object ADOQueryFile: TADOQuery
Connection = DataLink_DDMD.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 488
Top = 144
end
object DataSource1: TDataSource
DataSet = ADOQueryFile
Left = 392
Top = 168
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DDMD.ADOLink
Parameters = <>
Left = 496
Top = 216
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_DDMD.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 504
Top = 264
end
end

357
发货申请(ShipmentRequest.dll)/U_FileUp.pas Normal file
View File

@ -0,0 +1,357 @@
unit U_FileUp;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, ComCtrls, ToolWin, ExtCtrls,
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxControls, cxGridCustomView, cxGrid, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdFTP, StdCtrls, ADODB,jpeg,
BtnEdit,IniFiles;
type
TfrmFileUp = class(TForm)
cxGrid7: TcxGrid;
TV7: TcxGridDBTableView;
FileName: TcxGridDBColumn;
FileDate: TcxGridDBColumn;
cxGridLevel6: TcxGridLevel;
Panel16: TPanel;
ToolBar6: TToolBar;
FileUp: TToolButton;
FileDel: TToolButton;
Panel1: TPanel;
Label1: TLabel;
Code: TEdit;
ODPat: TOpenDialog;
IdFTP1: TIdFTP;
SaveDialog1: TSaveDialog;
ADOQueryFile: TADOQuery;
DataSource1: TDataSource;
ADOQueryCmd: TADOQuery;
ADOQueryTemp: TADOQuery;
Image2: TImage;
procedure FileUpClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FileDelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
lstPat: TStringList;
AJpeg: TJPEGImage;
procedure CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer);
procedure SaveImageOther();
procedure ReadINIFile10();
{ Private declarations }
public
CYID:String;
{ Public declarations }
end;
var
frmFileUp: TfrmFileUp;
implementation
uses
U_DataLink,U_RTFun;
{$R *.dfm}
procedure TfrmFileUp.ReadINIFile10();
var
programIni:Tinifile; //配置文件名
FileName:string;
begin
FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI';
programIni:=Tinifile.create(FileName);
server:=programIni.ReadString('SERVER','服务器地址','127.0.0.1');
programIni.Free;
end;
procedure TfrmFileUp.FileUpClick(Sender: TObject);
var
i,j: Integer;
PatFile: String;
FTPPath,FConNo,MaxNo:string;
AJpeg: TJPEGImage;
begin
if Trim(Code.Text)='' then
begin
Application.MessageBox('编号不能为空！','提示',0);
Exit;
end;
lstPat.Clear;
if ODPat.Execute then
begin
lstPat.AddStrings(ODPat.Files);
end;
if lstPat.Count > 0 then
begin
try
ReadINIFile10();
server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','服务器地址','127.0.0.1');
IdFTP1.Host :=server;//PicSvr;
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
IdFTP1.Quit;
Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
Exit;
end;
end;
Panel16.Visible:=True;
Panel16.Refresh;
AJpeg:=TJpegImage.Create();
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select Count(*) MM from XD_File where CYID='''+Trim(CYID)+'''');
SQL.Add('and filetype=''YP''');
Open;
j:=fieldbyname('MM').AsInteger;
end;
Image2.Picture.LoadFromFile(ODPat.FileName);
AJpeg.Assign(Image2.Picture.Graphic);
CreThumb(AJpeg,Image2,216, 187);
try
ADOQueryCmd.Connection.BeginTrans;
for i := 0 to lstPat.Count - 1 do
begin
PatFile := ExtractFileName(lstPat[i]);
PatFile:=Copy(PatFile,(Pos('.',PatFile)+1),(Length(PatFile)-Pos('.',PatFile)) ) ;
FConNo:=Trim(Code.Text);
while Pos('/',FConNo)>0 do
begin
Delete(FConNo,Pos('/',FConNo),1);
end;
PatFile:=Trim(FConNo)+'-'+Inttostr(j+i+1)+'.'+PatFile;
if IdFTP1.Connected then
begin
try
{if not DirectoryExists('D:\图片\'+Trim(gDef1)) then
ForceDirectories('D:\图片\'+Trim(gDef1)); }
IdFTP1.Put(lstPat[i], Trim('\YP')+'\'+Trim(PatFile));
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from XD_File where CYID='''+Trim(CYID)+'''');
SQL.Add(' and filename='''+Trim(PatFile)+'''');
SQL.Add(' and filetype=''YP''');
Open;
if not IsEmpty then
begin
Panel16.Visible:=False;
Application.MessageBox(PChar('文件<'+Trim(PatFile)+'>重复,'+inttostr(i)+'个文件上传成功！'),'提示',0);
Exit;
end;
end;
if GetLSNo(ADOQueryCmd,MaxNo,'YP','XD_File',4,1)=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取图片最大号失败！','提示',0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
SQL.Add('select * from XD_File where 1<>1');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('XFID').Value:=Trim(MaxNo);
FieldByName('CYID').Value:=Trim(CYID);
FieldByName('CYNO').Value:=Trim(Code.Text);
FieldByName('filename').Value:=Trim(PatFile);
FieldByName('FileDate').Value:=SGetServerDate(ADOQueryTemp);
fieldbyname('FileType').value:=Trim('YP');
Post;
end;
except
//ADOQueryCmd.Connection.RollbackTrans;
//Application.MessageBox('图片上传失败！','提示',0);
end;
end;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CP_YDang Set TPFlag=1 where CYID='''+Trim(CYID)+'''');
ExecSQL;
end;
SaveImageOther();
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('图片上传失败！','提示',0);
end;
if IdFTP1.Connected then IdFTP1.Quit;
with ADOQueryFile do
begin
Close;
SQL.Clear;
SQL.Add('select * from XD_File where CYID='''+Trim(CYID)+'''');
open;
end;
Panel16.Visible:=False;
if i>0 then
Application.MessageBox(PChar(inttostr(i)+'个文件上传成功！'),'提示',0);
ModalResult:=1;
end;
procedure TfrmFileUp.CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer);
var
Bitmap: TBitmap;
Ratio: Double;
ARect: TRect;
AHeight, AHeightOffset: Integer;
AWidth, AWidthOffset: Integer;
begin
Bitmap := TBitmap.Create;
try
Ratio := AJPeg.Width /AJPeg.Height;
if Ratio > 1.333 then
begin
AHeight := Round(Width / Ratio);
AHeightOffset := (Height - AHeight) div 2;
AWidth := Width;
AWidthOffset := 0;
end
else
begin
AWidth := Round(Height * Ratio);
AWidthOffset := (Width - AWidth) div 2;
AHeight := Height;
AHeightOffset := 0;
end;
Bitmap.Width := Width;
Bitmap.Height := Height;
Bitmap.Canvas.Brush.Color := clBtnFace;
Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height));
ARect := Rect(AWidthOffset, AHeightOffset, AWidth + AWidthOffset, AHeight + AHeightOffset);
Bitmap.Canvas.StretchDraw(ARect, AJPeg);
Image1.Picture.Assign(BitMap);
finally
Bitmap.Free;
end;
end;
procedure TfrmFileUp.SaveImageOther();
var
AJpeg: TJPEGImage;
myStream: TADOBlobStream;
ImgMaxNo:String;
i,j: Integer;
PatFile: String;
FTPPath,FConNo,MaxNo,FTFID:string;
begin
if Image2.Picture=nil then Exit;
AJpeg:=TJpegImage.Create();
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from TP_File where WBID='''+Trim(CYID)+'''');
Open;
end;
FTFID:=Trim(ADOQueryTemp.fieldbyname('TFID').AsString);
if Trim(FTFID)='' then
begin
if GetLSNo(ADOQueryCmd,ImgMaxNo,'TF','TP_File',3,1)=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('取图片表最大号失败!','提示',0);
Exit;
end;
end else
begin
ImgMaxNo:=Trim(FTFID);
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add( ' select * from TP_File where TFID='''+Trim(FTFID)+'''');
open;
end;
with ADOQueryCmd do
begin
if Trim(FTFID)='' then
begin
Append;
FieldByName('Filler').Value:=Trim(DName);
end
else
begin
Edit;
FieldByName('Editer').Value:=Trim(DName);
FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('TFID').Value:=Trim(ImgMaxNo);
FieldByName('WBID').Value:=Trim(CYID);
//FieldByName('TFIdx').Value:=cxTabControl2.TabIndex;
FieldByName('TFType').Value:='样品';
AJpeg.Assign(Image2.Picture.Graphic);
//CreThumb(AJpeg,Image1,160, 120);
myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite);
AJpeg.Assign(Image2.Picture.Graphic);
AJpeg.SaveToStream(myStream);
myStream.Free;
Post;
end;
end;
procedure TfrmFileUp.FormCreate(Sender: TObject);
begin
lstPat := TStringList.Create;
end;
procedure TfrmFileUp.FileDelClick(Sender: TObject);
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
SQL.Add(' Delete XD_File where XFID='''+Trim(ADOQueryFile.fieldbyname('XFID').AsString)+'''');
SQL.Add(' Delete TP_File where WBID='''+Trim(CYID)+''' and TFType=''样品'' ');
ExecSQL;
end;
with ADOQueryFile do
begin
Close;
SQL.Clear;
SQL.Add('select * from XD_File where CYID='''+Trim(CYID)+'''');
SQL.Add(' and FileType=''YP''');
open;
end;
if ADOQueryFile.IsEmpty then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CP_YDang Set TPFlag=0 where CYID='''+Trim(CYID)+'''');
ExecSQL;
end;
end;
end;
procedure TfrmFileUp.FormShow(Sender: TObject);
begin
with ADOQueryFile do
begin
Close;
SQL.Clear;
SQL.Add('select * from XD_File where CYID='''+Trim(CYID)+'''');
SQL.Add(' and FileType=''YP''');
Open;
end;
end;
end.

244
发货申请(ShipmentRequest.dll)/U_GetDllForm.pas Normal file
View File

@ -0,0 +1,244 @@
unit U_GetDllForm;
interface
uses
Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, dxCore,
ActiveX;
function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; export; stdcall;
function ConnData(): Boolean;
implementation
uses
U_DataLink, U_FHSQList, U_PBOutHZList, U_SQSMCK, U_SMPK, U_FHSQListXH,
U_SQSMCKXH, U_SXKCCK, U_CPKCCX;
/////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 //
// 参数说明：App>>调用应用程序； //
// FormH>>调用窗口句柄 ； //
// FormID>>窗口号; //
// Language>>语言种类; //
// WinStyle>>窗口类型； //
/////////////////////////////////////////////////////////////////
function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd;
var
i: Integer;
bFound: Boolean;
mnewHandle: hwnd;
mstyle: TFormStyle; // 0:子窗口; 1：普通窗口
mstate: TWindowState;
mborderstyle: TFormBorderStyle;
begin
mnewHandle := 0;
DName := PChar(GName);
DCode := PChar(GCode);
DdataBase := DataBase;
DTitCaption := Title;
DParameters1 := Parameters1;
DParameters2 := Parameters2;
DParameters3 := Parameters3;
DParameters4 := Parameters4;
DParameters5 := Parameters5;
DParameters6 := Parameters6;
DParameters7 := Parameters7;
DParameters8 := Parameters8;
DParameters9 := Parameters9;
DParameters10 := Parameters10;
SetLength(fDllFileName, 255);
GetModuleFileName(HInstance, PChar(fDllFileName), Length(fDllFileName));
fDllFileName := ExtractFileName(PChar(fDllFileName));
MainApplication := App;
DCurHandle := FormH;
IsDelphiLanguage := Language;
Application := TApplication(App);
DCurHandle := 0;
SetLength(server, 255);
SetLength(dtbase, 255);
SetLength(user, 255);
SetLength(pswd, 255);
server := '121.40.233.100,7781';
// server := '.';
dtbase := ' yichengdata';
user := 'sa';
pswd := 'rightsoft@123';
// pswd := 'rightsoft';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
DConString := DataBaseStr;
// DName:='周高1祥';
//Parameters1 := '高权限';
// Parameters2 := '内';
if not ConnData() then
begin
result := 0;
exit;
end;
//
// 定义窗口类型 、状态
if WinStyle = 0 then
begin
mstyle := fsMDIChild;
mstate := wsMaximized;
mborderstyle := bsNone;
end
else
begin
mstyle := fsNormal;
mstate := wsNormal;
mborderstyle := bsNone;
end;
bFound := False;
if FormID <> 10000 then
begin
for i := 0 to Application.MainForm.MDIChildCount - 1 do
begin
if Application.MainForm.MDIChildren[i].Caption = Title then
begin
mnewHandle := Application.MainForm.MDIChildren[i].Handle;
Application.MainForm.MDIChildren[i].BringToFront;
bFound := True;
Result := mnewHandle;
exit;
end;
end;
end;
/////////////////////
//调用子模块窗口
case FormID of
111: //发货申请
begin
with TfrmFHSQList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
201: //扫描出库
begin
with TfrmSQSMCK.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
{ 202: //扫描出库选库存
begin
with TfrmSXKCCK.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do
begin
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
121: //码单打印
begin
with TfrmPBOutHZList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do
begin
fFormID := FormID;
FormStyle := mstyle;
WindowState := mstate;
BorderStyle := mborderstyle;
mnewHandle := Handle;
end;
end;
202: //扫描出库选库存
begin
if frmSXKCCK = nil then
begin
frmSXKCCK := TfrmSXKCCK.Create(application.MainForm);
with frmSXKCCK do
begin
caption := Trim(Title);
FormStyle := mstyle;
windowState := mstate;
BorderStyle := mborderstyle;
//show;
end;
end
else
frmSXKCCK.BringToFront;
//句柄
mnewHandle := frmSXKCCK.Handle;
end;
}
10000:
begin
for i := 0 to application.MainForm.MDIChildCount - 1 do
begin
if application.MainForm.MDIChildren[i].Caption = Title then
begin
application.MainForm.MDIChildren[i].Close;
end;
end;
end;
end;
Result := mnewHandle;
end;
//===========================================================
//建立数据库连接池
//===========================================================
function ConnData(): Boolean;
begin
if not Assigned(DataLink_ShipmentRequest) then
DataLink_ShipmentRequest := TDataLink_ShipmentRequest.Create(Application);
try
with DataLink_ShipmentRequest.ADOLink do
begin
if not Connected then
begin
Connected := false;
ConnectionString := DConString;
LoginPrompt := false;
Connected := true;
end;
end;
Result := true;
except
Result := false;
application.MessageBox('数据库连接失败！', '错误', mb_Ok + MB_ICONERROR);
end;
end;
initialization
CoInitialize(nil);
dxUnitsLoader.Initialize;
finalization
DataLink_ShipmentRequest.Free;
application := NewDllApp;
dxUnitsLoader.Finalize;
end.

398
发货申请(ShipmentRequest.dll)/U_JYMXInfo.dfm Normal file
View File

@ -0,0 +1,398 @@
object frmJYMXInfo: TfrmJYMXInfo
Left = 82
Top = 62
Width = 1171
Height = 576
Caption = #26816#39564#26126#32454#25968#25454
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object cxGrid1: TcxGrid
Left = 0
Top = 0
Width = 1155
Height = 538
Align = alClient
TabOrder = 0
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skCount
Position = spFooter
Column = v1Column6
end
item
Kind = skSum
Position = spFooter
Column = v1Column31
end
item
Kind = skSum
Position = spFooter
Column = v1Column32
end
item
Kind = skSum
Position = spFooter
Column = v1Column8
end
item
Kind = skSum
Position = spFooter
Column = v1Column16
end
item
Kind = skSum
Position = spFooter
Column = v1Column9
end
item
Kind = skSum
Position = spFooter
Column = v1Column11
end
item
Kind = skSum
Position = spFooter
Column = v1Column19
end
item
Kind = skSum
Position = spFooter
Column = v1Column24
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
Column = v1Column6
end
item
Kind = skSum
Column = v1Column31
end
item
Kind = skSum
Column = v1Column32
end
item
Kind = skSum
Column = v1Column8
end
item
Kind = skSum
Column = v1Column16
end
item
Kind = skSum
Column = v1Column9
end
item
Kind = skSum
Column = v1Column11
end
item
Kind = skSum
Column = v1Column19
end
item
Kind = skSum
Column = v1Column24
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_TradeManagePB.SHuangSe
Styles.IncSearch = DataLink_TradeManagePB.SHuangSe
Styles.Selection = DataLink_TradeManagePB.SHuangSe
Styles.Header = DataLink_TradeManagePB.Default
object v1Column1: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'OrderNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 103
end
object v1Column33: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object v1Column13: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_CodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column4: TcxGridDBColumn
Caption = #38024#23544
DataBinding.FieldName = 'ZhenCun'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column2: TcxGridDBColumn
Caption = #25377#36710#24037
DataBinding.FieldName = 'SCPerson'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 68
end
object v1Column3: TcxGridDBColumn
Caption = #36710#21495
DataBinding.FieldName = 'CarNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 58
end
object v1Column20: TcxGridDBColumn
Caption = #26816#39564#20154
DataBinding.FieldName = 'Filler'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column21: TcxGridDBColumn
Caption = #26816#39564#26102#38388
DataBinding.FieldName = 'FillTime'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object v1Column28: TcxGridDBColumn
Caption = #33853#24067#26102#38388
DataBinding.FieldName = 'LBDate'
Visible = False
HeaderAlignmentHorz = taCenter
Hidden = True
Options.Editing = False
Width = 89
end
object v1Column6: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'MJID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
object v1Column23: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'APXH'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v1Column12: TcxGridDBColumn
Caption = #35843#35797#26426#20462
DataBinding.FieldName = 'JXPerson'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 65
end
object v1Column31: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'MJJingZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column32: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'MJPiZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object v1Column8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'MJMaoZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 54
end
object v1Column16: TcxGridDBColumn
Caption = #30133#28857#20010#25968
DataBinding.FieldName = 'CDGS'
Width = 61
end
object v1Column9: TcxGridDBColumn
Caption = #30133#28857#31859#25968
DataBinding.FieldName = 'CDHZQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
object v1Column11: TcxGridDBColumn
Caption = #30133#28857#20844#26020#25968
DataBinding.FieldName = 'CDHZKgQty'
Options.Editing = False
Width = 72
end
object v1Column25: TcxGridDBColumn
Caption = #36131#20219#20154
DataBinding.FieldName = 'ZZPerson'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object v1Column7: TcxGridDBColumn
Caption = #30133#28857#24773#20917
DataBinding.FieldName = 'CDQK'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object v1Column17: TcxGridDBColumn
Caption = #20837#24211#29366#24577
DataBinding.FieldName = 'MJStr2'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
object v1Column29: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'ClothType'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
end
object v1Column30: TcxGridDBColumn
Caption = #33394#21035
DataBinding.FieldName = 'MJStr3'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 81
end
object v1Column15: TcxGridDBColumn
Caption = #36716#25968
DataBinding.FieldName = 'ZhuanQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 50
end
object v1Column19: TcxGridDBColumn
Caption = #22870#21169
DataBinding.FieldName = 'AddMoney'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 61
end
object v1Column24: TcxGridDBColumn
Caption = #22788#32602
DataBinding.FieldName = 'DelMoney'
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
Width = 57
end
object v1Column27: TcxGridDBColumn
Caption = #20132#29677
DataBinding.FieldName = 'JBStr'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 62
end
object v1Column18: TcxGridDBColumn
Caption = #20132#29677#20154'1'
DataBinding.FieldName = 'JBSCPerson'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 61
end
object v1Column26: TcxGridDBColumn
Caption = #20132#29677#36716#25968'1'
DataBinding.FieldName = 'JBZhuanQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 69
end
object v1Column10: TcxGridDBColumn
Caption = #20132#29677#20154'2'
DataBinding.FieldName = 'JBSCPerson2'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 56
end
object v1Column5: TcxGridDBColumn
Caption = #20132#29677#36716#25968'2'
DataBinding.FieldName = 'JBZhuanQty2'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object MovePanel2: TMovePanel
Left = 408
Top = 192
Width = 289
Height = 49
BevelInner = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Visible = False
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeManagePB.ADOLink
Parameters = <>
Left = 824
Top = 104
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeManagePB.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 856
Top = 104
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_TradeManagePB.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 888
Top = 104
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 824
Top = 144
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 888
Top = 144
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 856
Top = 144
end
end

115
发货申请(ShipmentRequest.dll)/U_JYMXInfo.pas Normal file
View File

@ -0,0 +1,115 @@
unit U_JYMXInfo;
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, MovePanel, cxButtonEdit;
type
TfrmJYMXInfo = class(TForm)
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
CDS_Main: TClientDataSet;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column1: TcxGridDBColumn;
v1Column33: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column20: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
v1Column28: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column31: TcxGridDBColumn;
v1Column32: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column25: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column29: TcxGridDBColumn;
v1Column30: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v1Column24: TcxGridDBColumn;
v1Column27: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column26: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
MovePanel2: TMovePanel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FFMainId,FFClothType:String;
{ Public declarations }
end;
var
frmJYMXInfo: TfrmJYMXInfo;
implementation
uses
U_DataLink,U_RTFun;
{$R *.dfm}
procedure TfrmJYMXInfo.FormDestroy(Sender: TObject);
begin
frmJYMXInfo:=nil;
end;
procedure TfrmJYMXInfo.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
WriteCxGrid('检验信息明细',Tv1,'坯布仓库');
Action:=caFree;
end;
procedure TfrmJYMXInfo.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Close;
sql.Clear;
sql.Add('exec P_Viwe_JYInfo_MX :WSql');
Parameters.ParamByName('WSql').Value:=' and C.MainId='''+Trim(FFMainId)+''' and C.ClothType='''+Trim(FFClothType)+'''' ;
Open;
end;
SCreateCDS(ADOQueryMain,CDS_Main);
SInitCDSData(ADOQueryMain,CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmJYMXInfo.FormShow(Sender: TObject);
begin
ReadCxGrid('检验信息明细',Tv1,'坯布仓库');
InitGrid();
end;
end.

313
发货申请(ShipmentRequest.dll)/U_LabelAdd.dfm Normal file
View File

@ -0,0 +1,313 @@
object frmLabelAdd: TfrmLabelAdd
Left = 191
Top = 109
Width = 997
Height = 612
BorderIcons = [biMaximize]
Caption = #26631#31614#32534#36753
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 0
Top = 28
Width = 413
Height = 513
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label2: TLabel
Left = 31
Top = 21
Width = 60
Height = 12
Caption = #26631#31614#25991#20214#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 31
Top = 95
Width = 60
Height = 12
Caption = #22791' '#27880#65306
end
object Label9: TLabel
Left = 31
Top = 71
Width = 60
Height = 12
Caption = #26631#31614#21517#31216#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 31
Top = 47
Width = 60
Height = 12
Caption = #26631#31614#31867#22411#65306
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object LabelFileName: TBtnEditA
Left = 92
Top = 17
Width = 260
Height = 20
ReadOnly = True
TabOrder = 0
OnBtnClick = LabelFileNameBtnClick
end
object beizhu: TMemo
Left = 92
Top = 92
Width = 257
Height = 149
ScrollBars = ssBoth
TabOrder = 1
end
object LabelCaption: TEdit
Left = 92
Top = 67
Width = 258
Height = 20
ReadOnly = True
TabOrder = 2
end
object LabelType: TRTComboBox
Tag = 99
Left = 92
Top = 43
Width = 260
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 3
Text = #20013#25991#26631#31614
Items.Strings = (
#20013#25991#26631#31614
#33521#25991#26631#31614
#20013#33521#25991#26631#31614)
end
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 981
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar2'
Color = clBtnFace
Flat = True
Images = DataLink_CYZZ.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 1
Transparent = False
object Tsave: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384#26631#31614
ImageIndex = 5
OnClick = TsaveClick
end
object Tclose: TToolButton
Left = 87
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TcloseClick
end
end
object RMPreview1: TRMPreview
Left = 428
Top = 32
Width = 553
Height = 541
Align = alRight
BevelOuter = bvLowered
Caption = #26631#31614#39044#35272
TabOrder = 2
OnDblClick = RMPreview1DblClick
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_CYZZ.ADOLink
CommandTimeout = 300
Parameters = <>
Left = 512
Top = 208
end
object OpenDialog1: TOpenDialog
Filter = 'RMFl(*.rmf)|*.rmf'
InitialDir = '.'
Left = 200
Top = 4
end
object RMGridReport1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
ShowProgress = False
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
Preview = RMPreview1
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 336
Top = 8
ReportData = {}
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_CYZZ.ADOLink
LockType = ltReadOnly
CommandTimeout = 300
Parameters = <>
Left = 528
Top = 184
end
object RMGridReportDesigner1: TRMGridReportDesigner
Left = 376
Top = 8
end
object RMBarCodeObject1: TRMBarCodeObject
Left = 280
Top = 4
end
object RMBMPExport1: TRMBMPExport
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
Left = 408
Top = 8
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 10
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 440
Top = 8
end
object RMDS_Main: TRMDBDataSet
Visible = True
AliasName = #26631#31614#25968#25454
Left = 498
Top = 72
end
object RMDataDictionary1: TRMDataDictionary
FieldFieldNames.TableName = 'TableName'
FieldFieldNames.FieldName = 'FieldName'
FieldFieldNames.FieldAlias = 'FieldAlias'
Left = 562
Top = 72
end
object ADOQuery1: TADOQuery
Connection = DataLink_CYZZ.ADOLink
Parameters = <>
Left = 352
Top = 480
end
object RMGridReport2: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
ShowProgress = False
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDS_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 432
Top = 368
ReportData = {}
end
object ADOQueryCmdSC: TADOQuery
Connection = DataLink_CYZZ.ADOLink
Parameters = <>
Left = 296
Top = 304
object ADOQueryCmdFileContent: TBlobField
FieldName = 'Files'
end
object ADOQueryCmdFtFileName: TStringField
FieldName = 'FileName'
Size = 40
end
object ADOQueryCmdFileEditDate: TDateTimeField
FieldName = 'FileEditDate'
end
object ADOQueryCmdFileSize: TFloatField
FieldName = 'FileSize'
end
object ADOQueryCmdFiller: TStringField
FieldName = 'Filler'
end
object ADOQueryCmdLastEditTime: TDateTimeField
FieldName = 'LastEditTime'
end
object ADOQueryCmdLastEditer: TStringField
FieldName = 'LastEditer'
end
object ADOQueryCmdFileCreateDate: TDateTimeField
FieldName = 'FileCreateDate'
end
object ADOQueryCmdchildPath: TStringField
FieldName = 'FilePath'
end
object ADOQueryCmdFileType: TStringField
FieldName = 'FileType'
end
end
end

455
发货申请(ShipmentRequest.dll)/U_LabelAdd.pas Normal file
View File

@ -0,0 +1,455 @@
unit U_LabelAdd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, ExtCtrls, DB, ADODB,
RM_System, RM_Common, RM_Class, RM_GridReport, Buttons, RTComboBox,
RM_Preview, RM_e_Xls, RM_e_Graphic, RM_e_bmp, RM_BarCode,
RM_DsgGridReport, RM_Dataset, cxStyles, cxCustomData, cxGraphics,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid;
type
TfrmLabelAdd = class(TForm)
Panel1: TPanel;
Label2: TLabel;
Label3: TLabel;
LabelFileName: TBtnEditA;
beizhu: TMemo;
ToolBar1: TToolBar;
Tsave: TToolButton;
Tclose: TToolButton;
ADOQueryCmd: TADOQuery;
OpenDialog1: TOpenDialog;
RMGridReport1: TRMGridReport;
Label9: TLabel;
LabelCaption: TEdit;
Label10: TLabel;
LabelType: TRTComboBox;
ADOQueryTmp: TADOQuery;
RMPreview1: TRMPreview;
RMGridReportDesigner1: TRMGridReportDesigner;
RMBarCodeObject1: TRMBarCodeObject;
RMBMPExport1: TRMBMPExport;
RMXLSExport1: TRMXLSExport;
RMDS_Main: TRMDBDataSet;
RMDataDictionary1: TRMDataDictionary;
ADOQuery1: TADOQuery;
RMGridReport2: TRMGridReport;
ADOQueryCmdSC: TADOQuery;
ADOQueryCmdFileContent: TBlobField;
ADOQueryCmdFtFileName: TStringField;
ADOQueryCmdFileEditDate: TDateTimeField;
ADOQueryCmdFileSize: TFloatField;
ADOQueryCmdFiller: TStringField;
ADOQueryCmdLastEditTime: TDateTimeField;
ADOQueryCmdLastEditer: TStringField;
ADOQueryCmdFileCreateDate: TDateTimeField;
ADOQueryCmdchildPath: TStringField;
ADOQueryCmdFileType: TStringField;
procedure TcloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TsaveClick(Sender: TObject);
procedure LabelFileNameBtnClick(Sender: TObject);
procedure BtOpenClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure RMPreview1DblClick(Sender: TObject);
private
fIsChg:Boolean;
function SaveData():Boolean;
function EditData():Boolean;
procedure InitWinData();
procedure InitVarDictionary();
procedure InitDataSetDictionary();
function PostFileToData():boolean;
procedure GetFileInfo(mFile:string;var mfileSize:integer;var CreationTime:tdatetime;var WriteTime:tdatetime);
function CovFileDate(Fd:_FileTime):TDateTime;
public
fcustomNo:string;
fKeyNo:string;
fWinStatus:integer;
end;
var
frmLabelAdd: TfrmLabelAdd;
implementation
uses
U_DataLink,U_RTFun;
{$R *.dfm}
procedure TfrmLabelAdd.TcloseClick(Sender: TObject);
begin
if fIsChg then
begin
if application.MessageBox('标签设计过，是否要保存?','提示信息',1)=1 then
begin
Tsave.Click ;
end
else
close;
end
else
close;
end;
procedure TfrmLabelAdd.FormCreate(Sender: TObject);
begin
panel1.Align :=alClient;
fIsChg:=false;
// ClearWinData(panel1);
// InitVarDictionary();
end;
procedure TfrmLabelAdd.TsaveClick(Sender: TObject);
begin
if trim(labelCaption.Text)='' then
begin
application.MessageBox('标签名称不能为空！','提示');
labelCaption.SetFocus;
exit;
end;
if trim(LabelFileName.Text)='' then
begin
application.MessageBox('标签文件不能为空，请选择标签！','提示');
LabelFileName.SetFocus;
exit;
end;
PostFileToData();
if fWinStatus=0 then
begin
if SaveData() then
begin
ModalResult:=1;
end;
end
else
begin
if EditData() then
begin
ModalResult:=1;
end;
end;
end;
function TfrmLabelAdd.PostFileToData():boolean;
var
mFileName,fFileName,fpathFileName:string;
Stream : TMemoryStream;
mfileSize:integer;
mCreationTime:TdateTime;
mWriteTime:TdateTime;
begin
result:=false;
fFileName:=Trim(LabelCaption.Text);
fpathFileName:=Trim(LabelFileName.Text);
try
ADOQueryCmdSC.Connection.BeginTrans ;
try
with ADOQueryCmdSC do
begin
close;
sql.Clear ;
sql.Add('delete from RT_FileUpdate');
sql.Add('where FileName='+quotedStr(trim(fFileName)));
execsql;
end;
with ADOQueryCmdSC do
begin
close;
sql.Clear ;
sql.Add('select * from RT_FileUpdate');
sql.Add('where FileName='+quotedStr(trim(fFileName)));
Open;
//////////////////////////
//获取文件信息
GetFileInfo(Trim(fpathFileName),mfileSize,mCreationTime,mWriteTime);
if RecordCount<=0 then
begin
Append;
fieldByName('FileName').AsString := trim(fFileName);
end
else
begin
edit;
end;
fieldByName('FileEditDate').Value :=mWriteTime;
fieldByName('FileCreateDate').Value :=mCreationTime;
fieldByName('FileSize').Value :=mfileSize;
fieldByName('Filler').Value :=Dname;
fieldByName('LastEditer').Value :=Dname;
fieldByName('LastEditTime').Value :=SGetServerDateTime(ADOQueryTmp);
if pos('.rmf',fFileName)>0 then
begin
fieldByName('FilePath').Value :='report';
fieldByName('FileType').Value :='公用';
end
else if pos('.dll',fFileName)>0 then
begin
fieldByName('FilePath').Value :='';
fieldByName('FileType').Value :='一般';
end
else
begin
fieldByName('FilePath').Value :='';
fieldByName('FileType').Value :='公用';
end;
//将OLE数据存入数据库
ADOQueryCmdFileContent.LoadFromFile(fpathFileName);
//ADOQueryCmdFileContent.LoadFromStream(Stream);
post;
end;
finally
end;
result:=true;
ADOQueryCmdSC.Connection.CommitTrans ;
except
ADOQueryCmdSC.Connection.RollbackTrans ;
Result:=False;
application.MessageBox(pchar('提交文件['+trim(fFileName)+']失败!'),'提示信息',MB_ICONERROR);
end;
end;
procedure TfrmLabelAdd.GetFileInfo(mFile:string;var mfileSize:integer;var CreationTime:tdatetime;var WriteTime:tdatetime);
var
vSearchRec: TSearchRec;
begin
FindFirst(mFile,faAnyFile,vSearchRec);
mfileSize:=vSearchRec.Size;
CreationTime:=CovFileDate(vSearchRec.FindData.ftCreationTime);//创建时间
//vSearchRec.FindData.ftLastAccessTime//访问时间
WriteTime:=CovFileDate(vSearchRec.FindData.ftLastWriteTime);//修改时间
FindClose(vSearchRec);
end;
function TfrmLabelAdd.CovFileDate(Fd:_FileTime):TDateTime;
var
Tct:_SystemTime;
Temp:_FileTime;
begin
FileTimeToLocalFileTime(Fd,Temp);
FileTimeToSystemTime(Temp,Tct);
CovFileDate:=SystemTimeToDateTime(Tct);
end;
/////////////////////////////////////////////////////////////////////
//函数功能：保存数据
/////////////////////////////////////////////////////////////////////
function TfrmLabelAdd.SaveData():Boolean;
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from P_Label');
sql.Add('where 1<>1');
Open;
Append;
fieldByName('filler').value:=DName;
fieldByName('filltime').value:=DServerDate;
fieldByName('beizhu').value:= trim(beizhu.text);
fieldByName('LabelCaption').value:=trim(LabelCaption.text);
fieldByName('LabelType').value:=trim(LabelType.text);
fieldByName('LabelFileName').value:= trim(LabelFileName.text);
//TBlobField(FieldByName('LabelFile')).LoadFromStream(fStream);
RMGridReport1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
Post;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
sql.Add('select * from P_Label where LabelCaption='''+Trim(LabelCaption.text)+'''');
Open;
end;
if ADOQueryTmp.RecordCount>1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Result:=False;
Application.MessageBox('标签名称重复!','提示',0);
Exit;
end;
ADOQueryCmd.Connection.CommitTrans;
result:=true;
except
ADOQueryCmd.Connection.RollbackTrans;
Result:=false;
application.MessageBox('保存标签模板出错!','警告信息',0);
end;
end;
/////////////////////////////////////////////////////////////////////
//函数功能：保存数据
/////////////////////////////////////////////////////////////////////
function TfrmLabelAdd.EditData():Boolean;
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from P_Label');
sql.Add('where labelId='+fkeyNo);
Open;
Edit;
fieldByName('LabelCaption').value:=trim(LabelCaption.text);
fieldByName('LabelType').value:=trim(LabelType.text);
fieldByName('LabelFileName').value:= trim(LabelFileName.text);
RMGridReport1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
fieldByName('Editer').value:=DName;
fieldByName('EditTime').value:=DServerDate;
fieldByName('beizhu').value:= trim(beizhu.text);
Post;
end;
with ADOQueryTmp do
begin
Close;
sql.Clear;
sql.Add('select * from P_Label where LabelCaption='''+Trim(LabelCaption.text)+'''');
Open;
end;
if ADOQueryTmp.RecordCount>1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Result:=False;
Application.MessageBox('标签名称重复!','提示',0);
Exit;
end;
ADOQueryCmd.Connection.CommitTrans;
result:=true;
except
ADOQueryCmd.Connection.RollbackTrans;
Result:=false;
application.MessageBox('保存标签模板出错!','警告信息',0);
end;
end;
procedure TfrmLabelAdd.LabelFileNameBtnClick(Sender: TObject);
begin
if OpenDialog1.Execute() then
begin
LabelFileName.Text:=OpenDialog1.FileName;
LabelCaption.Text:=Trim(ExtractFileName(OpenDialog1.FileName));
RMGridReport1.LoadFromFile(LabelFileName.Text);
RMGridReport1.Preview :=RMPreview1;
RMGridReport1.ShowReport ;
end;
end;
procedure TfrmLabelAdd.BtOpenClick(Sender: TObject);
begin
end;
////////////////////////////////////////////////////////////
//初始化窗口数据
////////////////////////////////////////////////////////////
procedure TfrmLabelAdd.InitWinData();
begin
try
with ADOQueryTmp do
begin
close;
sql.Clear ;
sql.Add('select A.*');
// sql.Add('customNoName=isnull((select customName from BC_customer where customNO=A.customNo),A.customNo)');
sql.Add('from P_Label A');
sql.Add('WHERE LabelId='+fkeyNo);
Open;
if isEmpty then
begin
close;
exit;
end;
SSetWinData(ADOQueryTmp,panel1);
RMGridReport1.LoadFromBlobField(tblobfield(fieldbyname('labelFile')));
RMGridReport2.FileName:=trim(fieldByName('labelFileName').AsString);
RMGridReport2.LoadFromBlobField(tblobfield(fieldbyname('labelFile')));
RMGridReport1.Preview :=RMPreview1;
//RMGridReport1.PrepareReport;
RMGridReport1.ShowReport ;
end;
except
end;
end;
procedure TfrmLabelAdd.FormShow(Sender: TObject);
begin
if fWinStatus>0 then
InitWinData();
end;
procedure TfrmLabelAdd.RMPreview1DblClick(Sender: TObject);
begin
//btOpen.Click ;
end;
////////////////////////////////////////////////////////////
//
////////////////////////////////////////////////////////////
procedure TfrmLabelAdd.InitVarDictionary();
var
i:integer;
begin
{ try
with RMGridReport2 do
begin
Dictionary.Variables.Clear ;
Dictionary.Variables.AddCategory('客户单位信息');
with ADOQueryTmp do
begin
close;
sql.clear;
sql.Add('exec P_Label_CustPrintData');
sql.Add(quotedStr(fCustomNo));
Open;
for i:=0 to FieldCount-1 do
begin
Dictionary.Variables.Add(trim(fields[i].FieldName)
,'');
Dictionary.Variables.AsString[trim(fields[i].FieldName)]:=trim(fields[i].AsString);
end;
end;
end;
finally
end; }
end;
/////////////////////////////////////////////////
//
/////////////////////////////////////////////////
procedure TfrmLabelAdd.InitDataSetDictionary();
begin
{ with ADOQuery1 do
begin
close;
sql.Clear ;
sql.Add('exec P_Label_PrintSet');
sql.Add(quotedStr(''));
//sql.Add(','+quotedStr(''));
//sql.Add(','+quotedStr(''));
//sql.Add(','+quotedStr(''));
//sql.Add(','+quotedStr(''));
OPen;
end;
with RMGridReport2 do
begin
Dictionary.FieldAliases.Clear;
Dictionary.FieldAliases['RMDS_Main']:= '标签数据';
Dictionary.FieldAliases['RMDS_Main."barcode"']:='标签条码';
end; }
end;
end.

438
发货申请(ShipmentRequest.dll)/U_LabelList.dfm Normal file
View File

@ -0,0 +1,438 @@
object frmLabelList: TfrmLabelList
Left = 145
Top = 10
Width = 1057
Height = 693
BorderIcons = [biMaximize]
Caption = #26631#31614#20449#24687
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Panel1: TPanel
Left = 12
Top = 80
Width = 452
Height = 561
BevelOuter = bvNone
TabOrder = 0
object Panel2: TPanel
Left = 0
Top = 3
Width = 452
Height = 558
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object cxGrid1: TcxGrid
Left = 2
Top = 2
Width = 448
Height = 554
Align = alClient
TabOrder = 0
object tv1: TcxGridDBTableView
OnDblClick = tv1DblClick
NavigatorButtons.ConfirmDelete = False
OnCellClick = tv1CellClick
OnFocusedRecordChanged = tv1FocusedRecordChanged
DataController.DataSource = DS_Label
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
object tv1labelId: TcxGridDBColumn
Caption = #26631#31614'ID'
DataBinding.FieldName = 'labelId'
Visible = False
Width = 53
end
object tv1labeltype: TcxGridDBColumn
Caption = #26631#31614#31867#22411
DataBinding.FieldName = 'labeltype'
HeaderAlignmentHorz = taCenter
HeaderAlignmentVert = vaCenter
Width = 107
end
object tv1labelCaption: TcxGridDBColumn
Caption = #26631#31614#21517#31216
DataBinding.FieldName = 'labelCaption'
HeaderAlignmentHorz = taCenter
HeaderAlignmentVert = vaCenter
Width = 261
end
object tv1labelFile: TcxGridDBColumn
Caption = #25991#20214#21517
DataBinding.FieldName = 'labelFile'
Visible = False
HeaderAlignmentHorz = taCenter
HeaderAlignmentVert = vaCenter
Width = 167
end
end
object cxGrid1Level1: TcxGridLevel
GridView = tv1
end
end
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 452
Height = 3
Align = alTop
Caption = 'Panel3'
TabOrder = 1
Visible = False
object Label1: TLabel
Left = 40
Top = 13
Width = 60
Height = 12
Caption = #23458#25143#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 52
Top = 35
Width = 48
Height = 12
Caption = #19994#21153#21592#65306
Visible = False
end
object Label4: TLabel
Left = 40
Top = 61
Width = 60
Height = 12
Caption = #30005#35805#21495#30721#65306
end
object Label5: TLabel
Left = 39
Top = 86
Width = 60
Height = 12
Caption = #20844#21496#21517#31216#65306
end
object Label6: TLabel
Left = 14
Top = 108
Width = 84
Height = 12
Caption = #20844#21496#33521#25991#21517#31216#65306
end
object Label7: TLabel
Left = 61
Top = 133
Width = 36
Height = 12
Caption = #22320#22336#65306
end
object Label8: TLabel
Left = 37
Top = 157
Width = 60
Height = 12
Caption = #33521#25991#22320#22336#65306
end
object Label3: TLabel
Left = 61
Top = 192
Width = 36
Height = 12
Caption = #22791#27880#65306
end
object Note: TMemo
Left = 120
Top = 175
Width = 293
Height = 63
ScrollBars = ssBoth
TabOrder = 0
end
object EngAddress: TEdit
Left = 120
Top = 151
Width = 294
Height = 20
Enabled = False
TabOrder = 1
end
object ChnAddress: TEdit
Left = 120
Top = 127
Width = 293
Height = 20
TabOrder = 2
end
object engFactory: TEdit
Left = 119
Top = 104
Width = 295
Height = 20
TabOrder = 3
end
object ChnFactory: TEdit
Left = 119
Top = 81
Width = 294
Height = 20
TabOrder = 4
end
object TelePhone: TEdit
Left = 119
Top = 58
Width = 294
Height = 20
TabOrder = 5
end
object ywy: TEdit
Tag = 99
Left = 119
Top = 31
Width = 295
Height = 20
ReadOnly = True
TabOrder = 6
Text = 'ywy'
Visible = False
end
object customNo: TBtnEditA
Tag = 1
Left = 120
Top = 7
Width = 295
Height = 20
Enabled = False
ReadOnly = True
TabOrder = 7
OnBtnClick = customNoBtnClick
end
end
end
object RMPreview1: TRMPreview
Left = 488
Top = 85
Width = 553
Height = 569
Align = alRight
BevelOuter = bvLowered
Caption = 'Insert After'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 1
OnDblClick = RMPreview1DblClick
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
end
object ToolBar2: TToolBar
Left = 0
Top = 0
Width = 1041
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar2'
Color = clBtnFace
Flat = True
Images = DataLink_DDMD.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 2
Transparent = False
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = ToolButton1Click
end
object TOK: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #30830#23450
ImageIndex = 10
OnClick = TOkClick
end
object Tadd: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #26032#22686#26631#31614
ImageIndex = 1
OnClick = TaddClick
end
object Tupd: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20462#25913#26631#31614
ImageIndex = 11
OnClick = TupdClick
end
object Tdel: TToolButton
Left = 300
Top = 0
AutoSize = True
Caption = #21024#38500#26631#31614
ImageIndex = 3
OnClick = TdelClick
end
object Tclose: TToolButton
Left = 387
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TcloseClick
end
end
object Panel4: TPanel
Left = 0
Top = 32
Width = 1041
Height = 53
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 3
object Label9: TLabel
Left = 36
Top = 20
Width = 48
Height = 12
Caption = #26631#31614#31867#22411
end
object Label10: TLabel
Left = 280
Top = 20
Width = 48
Height = 12
Caption = #26631#31614#26631#39064
end
object LabelCaption: TEdit
Left = 332
Top = 16
Width = 100
Height = 20
TabOrder = 0
OnChange = LabelTypeChange
end
object LabelType: TRTComboBox
Tag = 99
Left = 88
Top = 17
Width = 100
Height = 20
Style = csDropDownList
ItemHeight = 12
ItemIndex = 0
TabOrder = 1
OnChange = LabelTypeChange
Items.Strings = (
''
#20013#25991#26631#31614
#33521#25991#26631#31614
#20013#33521#25991#26631#31614)
end
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DDMD.ADOLink
CommandTimeout = 300
Parameters = <>
Left = 508
Top = 208
end
object OpenDialog1: TOpenDialog
Filter = 'RMFl(*.rmf)|*.rmf'
InitialDir = '.'
Left = 316
Top = 148
end
object RMGridReport1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
ModalPreview = False
ShowProgress = False
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
Preview = RMPreview1
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 436
Top = 152
ReportData = {}
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_DDMD.ADOLink
LockType = ltReadOnly
CommandTimeout = 300
Parameters = <>
Left = 528
Top = 184
end
object ADOQuery1: TADOQuery
Connection = DataLink_DDMD.ADOLink
Parameters = <>
Left = 392
Top = 228
end
object DS_Label: TDataSource
DataSet = ADOQueryLabel
Left = 66
Top = 456
end
object ADOQueryLabel10: TADOQuery
Connection = DataLink_DDMD.ADOLink
LockType = ltReadOnly
CommandTimeout = 300
Parameters = <>
Left = 234
Top = 296
end
object ADOQueryLabel: TClientDataSet
Aggregates = <>
Params = <>
Left = 156
Top = 267
end
end

591
发货申请(ShipmentRequest.dll)/U_LabelList.pas Normal file
View File

@ -0,0 +1,591 @@
unit U_LabelList;
interface
uses
Windows, Messages, SysUtils, StrUtils,Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, ExtCtrls, DB, ADODB,
RM_System, RM_Common, RM_Class, RM_GridReport, Buttons, RTComboBox,
RM_Preview, RM_e_Xls, RM_e_Graphic, RM_e_bmp, RM_BarCode,
RM_DsgGridReport, RM_Dataset, cxStyles, cxCustomData, cxGraphics,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
cxControls, cxGridCustomView, cxGrid, DBClient;
type
TfrmLabelList = class(TForm)
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
OpenDialog1: TOpenDialog;
RMGridReport1: TRMGridReport;
ADOQueryTmp: TADOQuery;
RMPreview1: TRMPreview;
ADOQuery1: TADOQuery;
Panel2: TPanel;
cxGrid1: TcxGrid;
tv1: TcxGridDBTableView;
tv1labeltype: TcxGridDBColumn;
tv1labelCaption: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
tv1labelFile: TcxGridDBColumn;
DS_Label: TDataSource;
ADOQueryLabel10: TADOQuery;
Panel3: TPanel;
Note: TMemo;
EngAddress: TEdit;
ChnAddress: TEdit;
engFactory: TEdit;
ChnFactory: TEdit;
TelePhone: TEdit;
ywy: TEdit;
customNo: TBtnEditA;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label3: TLabel;
tv1labelId: TcxGridDBColumn;
ToolBar2: TToolBar;
Tadd: TToolButton;
Tupd: TToolButton;
Tdel: TToolButton;
TOK: TToolButton;
Tclose: TToolButton;
Panel4: TPanel;
ToolButton1: TToolButton;
Label9: TLabel;
Label10: TLabel;
LabelCaption: TEdit;
LabelType: TRTComboBox;
ADOQueryLabel: TClientDataSet;
procedure TcloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TsaveClick(Sender: TObject);
procedure customNoBtnClick(Sender: TObject);
procedure BtOpenClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure RMPreview1DblClick(Sender: TObject);
procedure TaddClick(Sender: TObject);
procedure TupdClick(Sender: TObject);
procedure tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
procedure TdelClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure TOkClick(Sender: TObject);
procedure tv1DblClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure LabelTypeChange(Sender: TObject);
procedure tv1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
private
isLoad:Boolean;
function SaveData():Boolean;
function EditData():Boolean;
function IsCheckCustOk():Boolean;
function DeleteData():Boolean;
procedure InitWinData();
procedure InitVarDictionary();
procedure InitDataSetDictionary();
procedure InitGrid();
procedure OpenLabel();
procedure SetWinStatus();
procedure DoFilter();
public
fSelLabelId,LBName,LBInt,SLBName:String;
fKeyNo:string;
fchg:Boolean;
fIsShowModal:Boolean;
fWinStatus:integer;
end;
var
frmLabelList: TfrmLabelList;
implementation
uses
U_DataLink, U_LabelAdd,U_RTFun;
{$R *.dfm}
procedure TfrmLabelList.DoFilter();
var
filterStr:string;
begin
filterStr:='';
if trim(LabelType.Text) <>'' then
begin
filterStr:=' and LabelType like '+quotedStr('%'+trim(LabelType.Text)+'%');
end;
//名称
if trim(LabelCaption.Text)<>'' then
begin
filterStr:=filterStr+' and LabelCaption like '+quotedStr('%'+trim(LabelCaption.Text)+'%');
end;
try
ADOQueryLabel10.DisableControls ;
if trim(filterStr)='' then
begin
ADOQueryLabel.Filtered:=false;
ADOQueryLabel.EnableControls;
exit;
end;
filterStr:=trim(RightBStr(filterStr,length(filterStr)-4));
with ADOQueryLabel do
begin
filtered:=false;
filter:=filterStr;
filtered:=true;
end;
SCreateCDS(ADOQueryLabel10,ADOQueryLabel);
SInitCDSData(ADOQueryLabel10,ADOQueryLabel);
finally
ADOQueryLabel10.EnableControls;
end;
end;
procedure TfrmLabelList.TcloseClick(Sender: TObject);
begin
close;
end;
procedure TfrmLabelList.FormCreate(Sender: TObject);
begin
panel1.Align :=alClient;
// ClearWinData(panel3);
fSelLabelId := '';
end;
procedure TfrmLabelList.TsaveClick(Sender: TObject);
begin
if trim(customNO.Text)='' then
begin
application.MessageBox('客户名称不能为空,请选择客户！','提示');
customNo.SetFocus;
exit;
end;
if application.MessageBox('确定要保存吗?','提示信息',1)=2 then exit;
if fWinStatus=0 then
begin
if not IsCheckCustOk() then exit;
if SaveData() then
begin
fWinStatus:=1;
fchg:=true;
SetWinStatus();
end;
end
else
begin
if EditData() then
begin
fchg:=true;
application.MessageBox('保存成功!','提示信息',0)
end;
end;
end;
/////////////////////////////////////////////////////////////////////
//函数功能：保存数据
/////////////////////////////////////////////////////////////////////
function TfrmLabelList.SaveData():Boolean;
begin
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from JD_Label');
sql.Add('where 1<>1');
Open;
Append;
fieldByName('customno').value:=trim(customno.txtCode);
fieldByName('ChnFactory').value:=trim(ChnFactory.text);
fieldByName('engFactory').value:=trim(engFactory.text);
fieldByName('TelePhone').value:=trim(TelePhone.text);
fieldByName('ChnAddress').value:=trim(ChnAddress.text);
fieldByName('EngAddress').value:=trim(EngAddress.text);
fieldByName('filler').value:=Dname;
fieldByName('filltime').value:=DServerDate;
fieldByName('note').value:= trim(Note.text);
Post;
end;
result:=true;
except
Result:=false;
application.MessageBox('保存标签模板出错!','警告信息',0);
end;
end;
/////////////////////////////////////////////////////////////////////
//函数功能：保存数据
/////////////////////////////////////////////////////////////////////
function TfrmLabelList.EditData():Boolean;
begin
try
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from JD_Label');
sql.Add('where customNo='+fKeyNo);
Open;
Edit;
fieldByName('customno').value:=trim(customno.txtCode);
fieldByName('ChnFactory').value:=trim(ChnFactory.text);
fieldByName('engFactory').value:=trim(engFactory.text);
fieldByName('TelePhone').value:=trim(TelePhone.text);
fieldByName('ChnAddress').value:=trim(ChnAddress.text);
fieldByName('EngAddress').value:=trim(EngAddress.text);
fieldByName('note').value:= trim(Note.text);
Post;
end;
result:=true;
except
Result:=false;
application.MessageBox('保存标签模板出错!','警告信息',0);
end;
end;
procedure TfrmLabelList.customNoBtnClick(Sender: TObject);
begin
{ FormGetCust:=TFormGetCust.Create(self);
if FormGetCust.ShowModal=mrok then
begin
customNo.TxtCode:=trim(FormGetCust.ADOQuery1.Fieldbyname('customno').AsString);
customNo.Text:=trim(FormGetCust.ADOQuery1.Fieldbyname('shortname').AsString);
end;
FormGetCust.Free; }
{ frmCustHelp:=TfrmCustHelp.create(self);
with frmCustHelp do
begin
if showModal=1 then
begin
customNo.TxtCode:=trim(ADOQueryHelp.Fieldbyname('customno').AsString);
customNo.Text:=trim(ADOQueryHelp.Fieldbyname('shortname').AsString);
end;
free;
end;
}
end;
procedure TfrmLabelList.BtOpenClick(Sender: TObject);
begin
end;
////////////////////////////////////////////////////////////
//初始化窗口数据
////////////////////////////////////////////////////////////
procedure TfrmLabelList.InitWinData();
begin
try
with ADOQueryTmp do
begin
close;
sql.Clear ;
sql.Add('select A.* ,B.customName as customNoName');
sql.Add('from JD_Label A');
sql.Add('INNER JOIN BC_customer B ON A.customNO=B.customNo');
sql.Add('WHERE B.customNo='''+fkeyNo+'''');
Open;
if isEmpty then
begin
close;
exit;
end;
// SetWinData(ADOQueryTmp,panel3);
{
RMGridReport1.LoadFromBlobField(tblobfield(fieldbyname('labelFile')));
RMGridReport1.Preview :=RMPreview1;
RMGridReport1.PrepareReport;
RMGridReport1.ShowReport ;
}
end;
except
end;
end;
procedure TfrmLabelList.FormShow(Sender: TObject);
begin
if fWinStatus=1 then tok.Visible:=false;
InitGrid();
if Trim(SLBName)<>'' then
begin
ADOQueryLabel.Locate('labelCaption',SLBName,[]);
end;
end;
procedure TfrmLabelList.RMPreview1DblClick(Sender: TObject);
begin
//btOpen.Click ;
end;
////////////////////////////////////////////////////////////
//
////////////////////////////////////////////////////////////
procedure TfrmLabelList.InitVarDictionary();
var
TmpList:Tstrings;
mm:string;
i:integer;
begin
try
TmpList:=TstringList.Create();
with ADOQueryTmp do
begin
close;
sql.Clear;
sql.Add('select distinct ItemType from JC_LabelSetItems ');
sql.Add('where valid=''Y''');
Open;
TmpList.Clear ;
while not Eof do
begin
TmpList.Add(trim(fieldByName('ItemType').AsString));
Next;
end;
end;
finally
TmpList.Free ;
end;
end;
/////////////////////////////////////////////////
//
/////////////////////////////////////////////////
procedure TfrmLabelList.InitDataSetDictionary();
begin
{ with ADOQuery1 do
begin
close;
sql.Clear ;
sql.Add('exec P_Get_LabelPrintData');
sql.Add(quotedStr(''));
sql.Add(','+quotedStr(''));
sql.Add(','+quotedStr(''));
OPen;
end; }
end;
procedure TfrmLabelList.TaddClick(Sender: TObject);
begin
try
frmLabelAdd:=TfrmLabelAdd.create(self);
with frmLabelAdd do
begin
if showModal =1 then
begin
fchg:=true;
InitGrid();
end;
end;
finally
frmLabelAdd.Free;
end;
end;
procedure TfrmLabelList.TupdClick(Sender: TObject);
begin
if ADOQueryLabel.IsEmpty then exit;
try
frmLabelAdd:=TfrmLabelAdd.create(self);
with frmLabelAdd do
begin
fKeyNo:=ADOQueryLabel.fieldByName('LabelId').AsString ;
fWinstatus:=1;
if showModal =1 then
begin
fchg:=true;
InitGrid();
end;
end;
finally
frmLabelAdd.Free;
end;
end;
/////////////////////////////////////////////
//
/////////////////////////////////////////////
procedure TfrmLabelList.InitGrid();
begin
try
isLoad:=false;
ADOQueryLabel10.DisableControls ;
with ADOQueryLabel10 do
begin
close;
sql.Clear ;
sql.Add('select * from P_Label');
sql.Add('where valid=''Y''');
sql.Add(' order by labelCaption');
Open;
end;
SCreateCDS(ADOQueryLabel10,ADOQueryLabel);
SInitCDSData(ADOQueryLabel10,ADOQueryLabel);
finally
ADOQueryLabel10.EnableControls;
isLoad:=true;
//DoFilter();
//OpenLabel();
end;
end;
////////////////////////////////////////////////////////
//函数功能：打开标签文件
////////////////////////////////////////////////////////
procedure TfrmLabelList.OpenLabel();
begin
if ADOQueryLabel.IsEmpty then exit;
with RMGridReport1 do
begin
LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('labelFile')));
//Preview :=RMPreview1;
ShowReport ;
end;
end;
procedure TfrmLabelList.tv1FocusedRecordChanged(
Sender: TcxCustomGridTableView; APrevFocusedRecord,
AFocusedRecord: TcxCustomGridRecord;
ANewItemRecordFocusingChanged: Boolean);
begin
end;
//////////////////////////////////////////////////////////
//函数功能：检查该客户的标签是否已存在
/////////////////////////////////////////////////////////
function TfrmLabelList.IsCheckCustOk():Boolean;
begin
try
with ADOQueryTmp do
begin
close;
sql.Clear ;
sql.Add('select count(customNO)as cnt from P_Label');
sql.Add('where customNO='''+trim(customNO.TxtCode)+'''');
Open;
if fieldByName('cnt').AsInteger>0 then
begin
Result:=false ;
application.MessageBox('该客户标签信息已存!','警告信息',0);
end
else
Result:=true;
end;
except
result:=false;
application.MessageBox('检查该客户标签信息是否已存在时发生错误!','警告信息',0);
end;
end;
/////////////////////////////////////////////////////////////
//
/////////////////////////////////////////////////////////////
function TfrmLabelList.DeleteData():Boolean;
begin
try
with ADOQueryCmd do
begin
close;
sql.clear;
sql.Add('delete P_Label');
sql.Add('where labelId='+ADOQueryLabel.fieldByName('LabelID').asString);
execSql;
end;
result:=true;
except
result:=false;
application.MessageBox('删除失败!','警告信息',0);
end;
end;
procedure TfrmLabelList.TdelClick(Sender: TObject);
begin
if ADOQueryLabel.IsEmpty then exit;
if application.MessageBox('确定要删除此标签吗？','警告信息',1)=2 then exit;
if DeleteData() then
begin
fchg:=true;
InitGrid();
end;
end;
//////////////////////////////////////////////////////////
//
/////////////////////////////////////////////////////////
procedure TfrmLabelList.SetWinStatus();
begin
case fWinStatus of
0:
begin
// ToolBar2.Visible :=false;
// tsave.Visible :=true;
customNo.Enabled :=true;
panel3.Enabled :=true;
end;
1:
begin
// ToolBar2.Visible :=true;
// tsave.Visible :=false;
customNo.Enabled :=false;
panel3.Enabled :=false;
TOK.Visible:=false;
end;
5:
begin
// ToolBar2.Visible :=false;
// tsave.Visible :=false;
panel1.Enabled :=false;
panel3.Enabled :=false;
end;
end ;
end;
procedure TfrmLabelList.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
{if fIsShowModal then
Application:=MainApplication ; }
Action:=caFree;
end;
procedure TfrmLabelList.FormDestroy(Sender: TObject);
begin
frmLabelList:=nil;
end;
procedure TfrmLabelList.TOkClick(Sender: TObject);
begin
if ADOQueryLabel.IsEmpty then exit;
LBName:=Trim(ADOQueryLabel.fieldbyname('labelCaption').AsString);
ModalResult:=1;
end;
procedure TfrmLabelList.tv1DblClick(Sender: TObject);
begin
TOk.Click ;
end;
procedure TfrmLabelList.ToolButton1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmLabelList.LabelTypeChange(Sender: TObject);
begin
DoFilter();
end;
procedure TfrmLabelList.tv1CellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
if isLoad then
OpenLabel();
end;
end.

181
发货申请(ShipmentRequest.dll)/U_ModuleNote.dfm Normal file
View File

@ -0,0 +1,181 @@
object frmModuleNote: TfrmModuleNote
Left = 326
Top = 178
Width = 729
Height = 528
Align = alClient
Caption = #25805#20316#35828#26126
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object cxGrid1: TcxGrid
Left = 0
Top = 73
Width = 713
Height = 416
Align = alClient
TabOrder = 0
object TV1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
OnCellDblClick = TV1CellDblClick
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
object V1OrderNo: TcxGridDBColumn
Caption = #26085#26399
DataBinding.FieldName = 'MNDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.ImmediatePost = True
Properties.SaveTime = False
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 117
end
object V1Name: TcxGridDBColumn
Tag = 2
Caption = #25805#20316#35828#26126
DataBinding.FieldName = 'MNNOte'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 513
end
end
object cxGrid1Level1: TcxGridLevel
GridView = TV1
end
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 713
Height = 29
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_DDMD.ThreeImgList
List = True
ParentFont = False
ShowCaptions = True
TabOrder = 1
object ToolButton1: TToolButton
Left = 0
Top = 0
Caption = #36873#25321
ImageIndex = 10
OnClick = ToolButton1Click
end
object TBAdd: TToolButton
Left = 59
Top = 0
Caption = #22686#34892
ImageIndex = 12
OnClick = TBAddClick
end
object TBDel: TToolButton
Left = 118
Top = 0
Caption = #21024#34892
ImageIndex = 13
OnClick = TBDelClick
end
object TBEdit: TToolButton
Left = 177
Top = 0
Caption = #20462#25913
ImageIndex = 11
OnClick = TBEditClick
end
object TBClose: TToolButton
Left = 236
Top = 0
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 29
Width = 713
Height = 44
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Label2: TLabel
Left = -31
Top = 13
Width = 360
Height = 16
Caption = ' '#27880#65306#28966#28857#31163#24320#24403#21069#32534#36753#21333#20803#26684#20445#23384#25968#25454#12290
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
end
object ADOQueryMain: TADOQuery
Connection = DataLink_DDMD.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 48
Top = 136
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_DDMD.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 80
Top = 144
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DDMD.ADOLink
Parameters = <>
Left = 112
Top = 152
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 280
Top = 144
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
Params = <>
Left = 208
Top = 144
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 168
Top = 152
end
end

220
发货申请(ShipmentRequest.dll)/U_ModuleNote.pas Normal file
View File

@ -0,0 +1,220 @@
unit U_ModuleNote;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu,
cxTimeEdit, cxCalendar;
type
TfrmModuleNote = class(TForm)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
V1Name: TcxGridDBColumn;
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DataSource1: TDataSource;
ClientDataSet1: TClientDataSet;
TBAdd: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
TBEdit: TToolButton;
V1OrderNo: TcxGridDBColumn;
Panel1: TPanel;
cxGridPopupMenu1: TcxGridPopupMenu;
Label2: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TV1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure V1NamePropertiesEditValueChanged(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
flag:string;
{ Public declarations }
end;
var
frmModuleNote: TfrmModuleNote;
implementation
uses
U_DataLink,U_RTFun;
{$R *.dfm}
procedure TfrmModuleNote.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmModuleNote.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select * from SY_Module_Note A where A.MNType='''+flag+'''');
Open;
end;
SCreateCDS(ADOQueryMain,ClientDataSet1);
SInitCDSData(ADOQueryMain,ClientDataSet1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmModuleNote.TBAddClick(Sender: TObject);
begin
TV1.OptionsData.Editing:=True;
TV1.OptionsSelection.CellSelect:=True;
with ClientDataSet1 do
begin
Append;
FieldByName('MNDate').Value:=Now;
Post;
end;
end;
procedure TfrmModuleNote.TBDelClick(Sender: TObject);
begin
if ClientDataSet1.IsEmpty then Exit;
if (Trim(ClientDataSet1.FieldByName('MNID').AsString)<>'') then
begin
if application.MessageBox('确定要删除吗?','提示信息',1)=2 then exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete SY_Module_Note where MNID='''+Trim(ClientDataSet1.fieldbyname('MNID').AsString)+'''');
ExecSQL;
end;
end;
ClientDataSet1.Delete;
end;
procedure TfrmModuleNote.TBCloseClick(Sender: TObject);
begin
ModalResult:=2;
WriteCxGrid('自定义'+Trim(flag),TV1,'模块说明');
Close;
end;
procedure TfrmModuleNote.FormShow(Sender: TObject);
var
fsj,fsj1:string;
begin
InitGrid();
ReadCxGrid('自定义'+Trim(flag),TV1,'模块说明');
frmModuleNote.Caption:=Trim(flag);
end;
procedure TfrmModuleNote.ToolButton1Click(Sender: TObject);
begin
WriteCxGrid('自定义'+Trim(flag),TV1,'模块说明');
ModalResult:=1;
end;
procedure TfrmModuleNote.TBEditClick(Sender: TObject);
begin
TV1.OptionsData.Editing:=True;
TV1.OptionsSelection.CellSelect:=True;
end;
procedure TfrmModuleNote.TV1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
if TV1.OptionsData.Editing=False then
begin
ModalResult:=1;
end;
end;
procedure TfrmModuleNote.V1NamePropertiesEditValueChanged(Sender: TObject);
var
maxno,mvalue:string;
begin
mvalue:=TcxTextEdit(Sender).EditingText;
if Trim(mvalue)='' then
begin
//Application.MessageBox('名称不能为空！','提示',0);
Exit;
end;
with ClientDataSet1 do
begin
Edit;
FieldByName('MNNote').Value:=Trim(mvalue);
//Post;
end;
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(ClientDataSet1.FieldByName('MNID').AsString)='' then
begin
if GetLSNo(ADOQueryCmd,maxno,'SY','SY_Module_Note',3,1)=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
//ClientDataSet1.EnableControls;
Application.MessageBox('取最大编号失败！','提示',0);
Exit;
end;
end else
begin
maxno:=Trim(ClientDataSet1.fieldbyname('MNID').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.add('select * from SY_Module_Note ');
sql.Add(' where MNID='''+Trim(ClientDataSet1.fieldbyname('MNID').AsString)+'''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(ClientDataSet1.fieldbyname('MNID').AsString)='' then
begin
Append;
FieldByName('Filler').Value:=Trim(DName);
FieldByName('FillTime').Value:=Now;
end
else begin
Edit;
FieldByName('Editer').Value:=Trim(DName);
FieldByName('EditTime').Value:=Now;
end;
FieldByName('MNDate').Value:=ClientDataSet1.fieldbyname('MNDate').Value;
FieldByName('MNID').Value:=Trim(maxno);
FieldByName('MNNote').Value:=ClientDataSet1.fieldbyname('MNNote').AsString;
FieldByName('MNType').Value:=flag;
Post;
end;
ADOQueryCmd.Connection.CommitTrans;
ClientDataSet1.Edit;
ClientDataSet1.FieldByName('MNID').Value:=Trim(maxno);
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败！','提示',0);
end;
end;
end.

342
发货申请(ShipmentRequest.dll)/U_ModulePromptList.dfm Normal file
View File

@ -0,0 +1,342 @@
object frmModulePromptList: TfrmModulePromptList
Left = 131
Top = 161
Width = 1133
Height = 547
Caption = #25105#30340#31649#23478
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1117
AutoSize = True
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_DDMD.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBClose: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 32
Width = 1117
Height = 66
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 75
Top = 11
Width = 84
Height = 12
Caption = #38144#21806#21512#21516#26410#23457#26680
end
object Label2: TLabel
Left = 48
Top = 8
Width = 27
Height = 16
Caption = 'aa:'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 242
Top = 11
Width = 96
Height = 12
Caption = #29983#20135#25351#31034#21333#26410#23457#26680
end
object Label4: TLabel
Left = 215
Top = 8
Width = 27
Height = 16
Caption = 'bb:'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 457
Top = 11
Width = 120
Height = 12
Caption = #29983#20135#25351#31034#21333#24037#24207#26410#23450#20041
end
object Label6: TLabel
Left = 428
Top = 8
Width = 27
Height = 16
Caption = 'cc:'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 75
Top = 40
Width = 120
Height = 12
Caption = #29983#20135#25351#31034#21333#24037#24207#26410#23433#25490
end
object Label8: TLabel
Left = 48
Top = 37
Width = 27
Height = 16
Caption = 'dd:'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 241
Top = 40
Width = 168
Height = 12
Caption = #29983#20135#25351#31034#21333#37319#36141#21152#24037#21512#21516#26410#24405#20837
end
object Label10: TLabel
Left = 214
Top = 37
Width = 27
Height = 16
Caption = 'ee:'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 456
Top = 40
Width = 108
Height = 12
Caption = #29983#20135#25351#31034#21333#29983#20135#36229#26399
end
object Label12: TLabel
Left = 428
Top = 37
Width = 27
Height = 16
Caption = 'ff:'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 627
Top = 11
Width = 84
Height = 12
Caption = #26597' '#35810' '#26465' '#20214
end
object ModuleNote: TEdit
Tag = 2
Left = 608
Top = 36
Width = 121
Height = 20
TabOrder = 0
OnChange = ModuleNoteChange
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 98
Width = 1117
Height = 410
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
Column = v1Column5
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v1Column5: TcxGridDBColumn
Caption = #24453#22788#29702#20107#39033
DataBinding.FieldName = 'ModuleNote'
HeaderAlignmentHorz = taCenter
Styles.Footer = DataLink_DDMD.FoneRed
Width = 843
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 1128
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DDMD.ADOLink
Parameters = <>
Left = 936
end
object ADOQueryMain: TADOQuery
Connection = DataLink_DDMD.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1000
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_DDMD.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1040
Top = 8
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 1168
Top = 8
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 815
Top = 7
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBMain
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 475
Top = 193
ReportData = {}
end
object RMDBMain: TRMDBDataSet
Visible = True
DataSet = CDS_PRT
Left = 400
Top = 192
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 1
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 440
Top = 192
end
object CDS_PRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 877
Top = 9
end
object cxGridPopupMenu2: TcxGridPopupMenu
PopupMenus = <>
Left = 506
Top = 195
end
end

257
发货申请(ShipmentRequest.dll)/U_ModulePromptList.pas Normal file
View File

@ -0,0 +1,257 @@
unit U_ModulePromptList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
cxTextEdit, cxPC;
type
TfrmModulePromptList = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Order_Main: TClientDataSet;
RM1: TRMGridReport;
RMDBMain: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
CDS_PRT: TClientDataSet;
cxGridPopupMenu2: TcxGridPopupMenu;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column5: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
ModuleNote: TEdit;
Label13: TLabel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure ModuleNoteChange(Sender: TObject);
private
FormID,FormType:Integer;
canshu1,canshu2:string;
formFile,FormPara,Formname,FFormPara:string;
FormPara1,FormPara2,FormPara3,FormPara4,FormPara5:string;
FormPara6,FormPara7,FormPara8,FormPara9,FormPara10:string;
procedure InitGrid();
procedure InitForm();
procedure InitDllEvt(FromFile:String;FormID:Integer;Para:String;FormType:Integer; Title: String;
Def1: String; Def2: String; Def3: String; Def4: String; Def5: String;
Def6: String; Def7: String; Def8: String; Def9: String; Def10: string);
{ Private declarations }
public
{ Public declarations }
userID,username,ADOConnString:string;
end;
var
frmModulePromptList: TfrmModulePromptList;
implementation
uses
U_DataLink,U_RTFun;
type
TMyF = function(
App: TApplication; //主应用程序 (对Delphi而言)
FormH: HWND; //创建窗口的父窗口句柄 (对PB而言)
FormID: Integer; //要调用dll中功能窗体的Id号; 如果只有一个功能窗口，FormID默认为0
Language: Integer; //0=Delphi; 1=PB
WinStyle: Integer; //0=子窗口; 1：普通窗口 (PB中都为普通窗口)
UID: PChar; //用户Id
UName: PChar; //用户名
Para: PChar;
Title: PChar;
Defstr1: PChar;
Defstr2: PChar;
Defstr3: PChar;
Defstr4: PChar;
Defstr5: PChar;
Defstr6: PChar;
Defstr7: PChar;
Defstr8: PChar;
Defstr9: PChar;
Defstr10: PChar;
Datalink: PChar
): HWND; stdcall;
var
TP: FARPROC;
Tf: TMyF;
{$R *.dfm}
procedure TfrmModulePromptList.FormDestroy(Sender: TObject);
begin
frmModulePromptList:=nil;
end;
procedure TfrmModulePromptList.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmModulePromptList.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('工作列表',Tv1,'我的管家');
end;
procedure TfrmModulePromptList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
SQL.Add(' exec P_Chk_Tishi :DName,:DCode');
Parameters.ParamByName('DName').Value:=Trim(DName);
Parameters.ParamByName('DCode').Value:=Trim(DCode);
ExecSQL;
Open;
end;
SCreateCDS(ADOQueryMain,Order_Main);
SInitCDSData(ADOQueryMain,Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmModulePromptList.InitForm();
begin
FFormPara:=Trim(DConString);
ReadCxGrid('工作列表',Tv1,'我的管家');
InitGrid();
end;
procedure TfrmModulePromptList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
if ADOQueryMain.Active=False then Exit;
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS(ADOQueryMain,Order_Main);
SInitCDSData(ADOQueryMain,Order_Main);
end;
procedure TfrmModulePromptList.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmModulePromptList.cxPageControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmModulePromptList.FormCreate(Sender: TObject);
begin
canshu1:=Trim(DParameters1);
canshu2:=Trim(DParameters2);
end;
procedure TfrmModulePromptList.InitDllEvt(FromFile:String;FormID:Integer;Para:String;FormType:Integer; Title: String;
Def1: String; Def2: String; Def3: String; Def4: String; Def5: String;
Def6: String; Def7: String; Def8: String; Def9: String; Def10: string);
var
Th: HMODULE;
begin
Th := LoadLibrary(PChar(FromFile));
if Th > 0 then
begin
TP := GetProcAddress(Th, 'GetDllForm');
if TP <> nil then
begin
Tf := TMyF(Tp);
Tf(Application, 0, FormID, 0, FormType, PChar(DCode), PChar(DName), PChar(Para), PChar(Title),
PChar(Def1), PChar(Def2),PChar(Def3),PChar(Def4),PChar(Def5),
PChar(Def6),PChar(Def7),PChar(Def8),PChar(Def9),PChar(Def10),
pchar(FFormPara));
end;
end
else
begin
Application.MessageBox(PChar('打不开文件' + FromFile + '！'), '错误', MB_ICONERROR);
end;
end;
procedure TfrmModulePromptList.Tv1CellDblClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
{ with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from SY_ModuleSub where ModuleId='''+Trim(Order_Main.fieldbyname('ModuleId').AsString)+'''');
sql.Add(' and ModuleSubId='''+Trim(Order_Main.fieldbyname('ModuleSubId').AsString)+'''');
Open;
end;
//FormID,FormType:Integer;
// formFile,FormPara,Formname:string;
// FormPara1,FormPara2,FormPara3,FormPara4,FormPara5:string;
//FormPara6,FormPara7,FormPara8,FormPara9,FormPara10:string;
formFile:=Trim(ADOQueryTemp.fieldbyname('FormFile').AsString);
FormID:=ADOQueryTemp.fieldbyname('FormID').AsInteger;
FormType:=ADOQueryTemp.fieldbyname('FormType').AsInteger;
Formname:=Trim(ADOQueryTemp.fieldbyname('Formname').AsString);
FormPara:=Trim(ADOQueryTemp.fieldbyname('FormPara').AsString);
// ShowMessage(FormPara);
FormPara1:=Trim(ADOQueryTemp.fieldbyname('FormPara1').AsString);
FormPara2:=Trim(ADOQueryTemp.fieldbyname('FormPara2').AsString);
FormPara3:=Trim(ADOQueryTemp.fieldbyname('FormPara3').AsString);
FormPara4:=Trim(ADOQueryTemp.fieldbyname('FormPara4').AsString);
FormPara5:=Trim(ADOQueryTemp.fieldbyname('FormPara5').AsString);
FormPara6:=Trim(ADOQueryTemp.fieldbyname('FormPara6').AsString);
FormPara7:=Trim(ADOQueryTemp.fieldbyname('FormPara7').AsString);
FormPara8:=Trim(ADOQueryTemp.fieldbyname('FormPara8').AsString);
FormPara9:=Trim(ADOQueryTemp.fieldbyname('FormPara9').AsString);
FormPara10:=Trim(ADOQueryTemp.fieldbyname('FormPara10').AsString);
InitDllEvt(formFile,FormID,FormPara,FormType,Formname,FormPara1,FormPara2,
FormPara3,FormPara4,FormPara5,FormPara6,FormPara7,FormPara8,
FormPara9,FormPara10); }
end;
procedure TfrmModulePromptList.ModuleNoteChange(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS(ADOQueryMain,Order_Main);
SInitCDSData(ADOQueryMain,Order_Main);
end;
end.

541
发货申请(ShipmentRequest.dll)/U_NOSQSMCK.dfm Normal file
View File

@ -0,0 +1,541 @@
inherited frmSQSMCK: TfrmSQSMCK
Left = 411
Top = 171
Caption = #25104#21697#20986#24211#25195#25551'('#30003#35831')'
ClientHeight = 801
ClientWidth = 1133
Position = poScreenCenter
ExplicitWidth = 1149
ExplicitHeight = 840
PixelsPerInch = 96
TextHeight = 12
object Panel2: TPanel [0]
Left = 0
Top = 0
Width = 1133
Height = 185
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label5: TLabel
Left = 6
Top = 34
Width = 80
Height = 19
Caption = #20986#24211#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 6
Top = 91
Width = 80
Height = 19
Caption = #20986#24211#26102#38388
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 254
Top = 91
Width = 73
Height = 19
Caption = #23458' '#25143
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 517
Top = 22
Width = 66
Height = 33
Caption = #25195#25551
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 64
Top = 120
Width = 196
Height = 48
Caption = #25195#25551#36864#22238
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -48
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object BaoID: TEdit
Left = 589
Top = 9
Width = 411
Height = 72
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -64
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnKeyPress = BaoIDKeyPress
end
object CRTime: TDateTimePicker
Left = 86
Top = 86
Width = 153
Height = 28
Date = 41337.000000000000000000
Time = 0.663190821760508700
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
end
object KHName: TEdit
Tag = 2
Left = 344
Top = 86
Width = 154
Height = 28
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 1
end
object Button2: TButton
Left = 895
Top = 86
Width = 100
Height = 76
Caption = #20851#38381
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = Button2Click
end
object CRType: TEdit
Tag = 2
Left = 344
Top = 128
Width = 154
Height = 28
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 2
Visible = False
end
object Button1: TButton
Left = 590
Top = 87
Width = 100
Height = 76
Caption = #36873#21333
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = Button1Click
end
object edtIsSMTH: TEdit
Left = 23
Top = 125
Width = 39
Height = 37
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 6
Visible = False
OnClick = edtIsSMTHClick
end
object btn1: TButton
Left = 746
Top = 87
Width = 100
Height = 76
Caption = #24211#23384
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = btn1Click
end
object CKNO: TEdit
Left = 92
Top = 8
Width = 409
Height = 72
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -64
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 8
end
end
object Panel1: TPanel [1]
Left = 0
Top = 185
Width = 1133
Height = 616
Align = alClient
Caption = 'Panel1'
TabOrder = 1
object cxGrid3: TcxGrid
Left = 1
Top = 214
Width = 1131
Height = 401
Align = alClient
TabOrder = 0
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DS_MainSel
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #21367#25968#37327#65306'#'
Kind = skCount
Column = VC_MJXH
end
item
Kind = skSum
Column = v3Column1
end
item
Kind = skCount
Column = VC_MJXH
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = cxStyle1
Styles.IncSearch = cxStyle1
Styles.Header = cxStyle1
Styles.Inactive = cxStyle1
object VC_MJXH: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'jyXH'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object v3Column2: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'jyid'
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 118
end
object Tv3Column2: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'baono'
HeaderAlignmentHorz = taCenter
end
object Tv3Column3: TcxGridDBColumn
Caption = #21253#26465#30721
DataBinding.FieldName = 'baoid'
HeaderAlignmentHorz = taCenter
Width = 92
end
object cv3Column3: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'gangno'
HeaderAlignmentHorz = taCenter
Width = 98
end
object cv3Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
HeaderAlignmentHorz = taCenter
Width = 92
end
object v3Column1: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'JGGW'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object Tv3Column1: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'JYLEN'
HeaderAlignmentHorz = taCenter
Width = 66
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv3
end
end
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1131
Height = 213
Align = alTop
TabOrder = 1
object TV4: TcxGridDBTableView
OnMouseDown = TV4MouseDown
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = ds2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = TV4Column2
end
item
Kind = skSum
Column = VC_SQQTY
end
item
Kind = skSum
Column = cCXFHPS
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = cxStyle1
Styles.IncSearch = cxStyle1
Styles.Header = cxStyle1
Styles.Inactive = cxStyle1
object cCXCONNO: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'SCConNo'
HeaderAlignmentHorz = taCenter
Width = 98
end
object TV4Column1: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'SPrtCodeName'
HeaderAlignmentHorz = taCenter
Width = 98
end
object cCXCOLOR: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'prtcolor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object cV4Column1: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'gangno'
HeaderAlignmentHorz = taCenter
Width = 91
end
object TV4Column2: TcxGridDBColumn
Caption = #30003#35831#21305#25968
DataBinding.FieldName = 'SQPS'
HeaderAlignmentHorz = taCenter
Width = 113
end
object VC_SQQTY: TcxGridDBColumn
Caption = #30003#35831#25968#37327
DataBinding.FieldName = 'SQQTY'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 111
end
object cCXFHPS: TcxGridDBColumn
Caption = #21457#36135#25968#37327
DataBinding.FieldName = 'fhqty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 106
end
object TV4Column3: TcxGridDBColumn
Caption = #21457#36135#21305#25968
DataBinding.FieldName = 'FHPS'
HeaderAlignmentHorz = taCenter
Width = 123
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV4
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Left = 233
Top = 232
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Left = 113
Top = 225
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 232
Top = 296
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 112
Top = 288
end
object DS_MainSel: TDataSource
DataSet = CDS_MainSel
Left = 832
Top = 664
end
object CDS_MainSel: TClientDataSet
Aggregates = <>
Params = <>
Left = 752
Top = 664
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 744
Top = 312
end
object cxStyleRepository1: TcxStyleRepository
Left = 864
Top = 208
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 792
Top = 316
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 100
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 616
Top = 264
end
object RMDBMX: TRMDBDataSet
Visible = True
DataSet = CDS_JuanPRT
Left = 692
Top = 264
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBMX
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 728
Top = 264
ReportData = {}
end
object CDS_JuanPRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 652
Top = 264
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 824
Top = 252
end
object ds2: TDataSource
DataSet = CDS_1
Left = 896
Top = 312
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid3
PopupMenus = <>
Left = 688
Top = 664
end
end

622
发货申请(ShipmentRequest.dll)/U_NOSQSMCK.pas Normal file
View File

@ -0,0 +1,622 @@
unit U_NOSQSMCK;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit,
RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
type
TfrmSQSMCK = class(TFrmBaseList)
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_MainSel: TDataSource;
CDS_MainSel: TClientDataSet;
GPM_1: TcxGridPopupMenu;
Panel2: TPanel;
Label5: TLabel;
Label4: TLabel;
Label9: TLabel;
BaoID: TEdit;
CRTime: TDateTimePicker;
KHName: TEdit;
Button2: TButton;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
Label12: TLabel;
CDS_Main: TClientDataSet;
CRType: TEdit;
Button1: TButton;
RMXLSExport1: TRMXLSExport;
RMDBMX: TRMDBDataSet;
RM1: TRMGridReport;
CDS_JuanPRT: TClientDataSet;
Label10: TLabel;
edtIsSMTH: TEdit;
btn1: TButton;
CDS_1: TClientDataSet;
ds2: TDataSource;
Panel1: TPanel;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cv3Column3: TcxGridDBColumn;
VC_MJXH: TcxGridDBColumn;
v3Column1: TcxGridDBColumn;
v3Column2: TcxGridDBColumn;
cv3Column4: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxGrid1: TcxGrid;
TV4: TcxGridDBTableView;
cCXCONNO: TcxGridDBColumn;
cV4Column1: TcxGridDBColumn;
cCXCOLOR: TcxGridDBColumn;
VC_SQQTY: TcxGridDBColumn;
cCXFHPS: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
TV4Column1: TcxGridDBColumn;
Tv3Column1: TcxGridDBColumn;
TV4Column2: TcxGridDBColumn;
TV4Column3: TcxGridDBColumn;
CKNO: TEdit;
Tv3Column2: TcxGridDBColumn;
Tv3Column3: TcxGridDBColumn;
GPM_2: TcxGridPopupMenu;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BaoIDKeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure edtIsSMTHClick(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure TV4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
FCKNO, FSMStr, JXFlag, CZZT, fcuowu: string;
procedure InitCKGrid();
procedure InitSQGrid();
function JudgeSQD(): Boolean;
function JudgeBao(): Boolean;
procedure SaveCKBao();
function JudgeJTM(): Boolean;
procedure SaveCKJTM();
function JudgeJTMCX(): Boolean;
procedure SaveCKJTMCX();
public
{ Public declarations }
end;
var
frmSQSMCK: TfrmSQSMCK;
implementation
uses
U_DataLink, U_RTFun, MMSystem, U_FHSQListSel, U_CKProductBCPKCListSel;
procedure TfrmSQSMCK.SaveCKJTMCX();
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CK_Cloth_CR Set CRFlag=''待出库'',CRType='''',CRTime=NULL,CRNote='''',CKNO='''' ');
sql.Add(' where CK_Cloth_CR.JYID=' + Quotedstr(Trim(FSMStr)));
sql.Add(' and CRFlag=''出库''');
sql.Add(' UPdate CK_Cloth_KC Set Valid=''Y'' ');
sql.Add(' where CK_Cloth_KC.JYID=' + Quotedstr(Trim(FSMStr)));
sql.Add(' and Valid=''N'' ');
sql.Add(' Update JY_Cloth Set JYCRType=''已入库'' ');
sql.Add(' where JY_Cloth.JYID=' + Quotedstr(Trim(FSMStr)));
SQL.Add(' and JY_Cloth.JYCRType=''已出库'' ');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(''));
sql.Add(',' + quotedstr(trim('出库扫描撤销')));
sql.Add(',' + quotedstr('卷条码：' + trim(FSMStr) + ' 出库单号：' + trim(FCKNO)));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('撤销出库失败！', '提示信息', 0);
end;
end;
procedure TfrmSQSMCK.TV4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inherited;
// InitCKGrid();
end;
function TfrmSQSMCK.JudgeJTMCX(): Boolean;
begin
try
if Trim(CKNO.Text) = '' then
raise Exception.Create('出库单号不能为空!');
if CDS_MainSel.IsEmpty then
raise Exception.Create('无可撤销的数据!');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('SELECT RKNO,CKNO FROM CK_Cloth_CR where CRFlag=''出库'' and JYID=' + quotedstr(FSMStr));
Open;
end;
if ADOQueryTemp.IsEmpty then
raise Exception.Create('无可撤销的数据!');
Result := True;
except
Result := false;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmSQSMCK.SaveCKJTM();
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_Cloth_CR Set ');
sql.add(' CRTime=' + quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime)) + ',CRType=''扫描出库'',CRFlag=''出库'' ');
sql.add(',CKNO=' + Quotedstr(CKNO.Text));
sql.Add(' where CK_Cloth_CR.JYID=' + Quotedstr(Trim(FSMStr)));
sql.Add('and CK_Cloth_CR.CRFlag=''待出库'' ');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_Cloth_KC Set ');
sql.add(' Valid=''N'' ');
sql.Add(' where CK_Cloth_KC.JYID=' + Quotedstr(Trim(FSMStr)));
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE JY_Cloth Set JYCRType=''已出库'' ');
sql.Add(' where JY_Cloth.JYID=' + Quotedstr(Trim(FSMStr)));
SQL.Add(' and JY_Cloth.JYCRType=''已入库'' ');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('出库失败！', '提示信息', 0);
end;
end;
{$R *.dfm}
function TfrmSQSMCK.JudgeJTM(): Boolean;
begin
try
if Trim(CKNO.Text) = '' then
raise Exception.Create('未扫描申请单暂停发货!');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select JYID from JY_Cloth where JYID=' + quotedstr(trim(FSMStr)));
// ShowMessage(SQL.Text);
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
raise Exception.Create('条码错误暂停发货');
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JY_Cloth A inner join FHSQ_Sub B on A.Subid=B.Subid ');
sql.Add('where A.JYID=' + quotedstr(trim(FSMStr)));
sql.Add('and B.FSID=' + quotedstr(trim(CKNO.Text)));
Open;
end;
if ADOQueryTemp.IsEmpty then
raise Exception.Create('条码错误暂停发货!');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select RKNO from CK_Cloth_CR where CRFlag=''入库'' and JYID=' + quotedstr(trim(FSMStr)));
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
raise Exception.Create('未入库暂停发货');
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('SELECT RKNO,CKNO FROM CK_Cloth_CR where CRFlag=''出库'' and JYID=' + quotedstr(trim(FSMStr)));
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
if Trim(ADOQueryTemp.fieldbyname('CKNO').AsString) = Trim(CKNO.Text) then
begin
raise Exception.Create('已扫描');
end
else
begin
raise Exception.Create('已出库暂停发货');
end;
end;
Result := True;
except
Result := false;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
// PlaySound('wav\'+Exception(ExceptObject).Message+'.wav', 0, SND_FILENAME or SND_ASYNC);
end;
end;
function TfrmSQSMCK.JudgeBao(): Boolean;
begin
try
if Trim(CKNO.Text) = '' then
raise Exception.Create('未扫描申请单暂停发货!');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JY_Cloth A ');
sql.Add('where Baoid=' + quotedstr(trim(FSMStr)));
Open;
end;
if ADOQueryTemp.IsEmpty then
raise Exception.Create('条码错误暂停发货!');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JY_Cloth A inner join FHSQ_Sub B on A.Subid=B.Subid ');
sql.Add('where A.Baoid=' + quotedstr(trim(FSMStr)));
sql.Add('and B.FSID=' + quotedstr(trim(CKNO.Text)));
Open;
end;
if ADOQueryTemp.IsEmpty then
raise Exception.Create('条码错误暂停发货!');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('SELECT RKNO,CKNO FROM CK_Cloth_CR where CRFlag=''出库'' and Baoid=' + quotedstr(trim(FSMStr)));
Open;
end;
if not ADOQueryTemp.IsEmpty then
raise Exception.Create('已扫描!');
Result := True;
except
Result := false;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmSQSMCK.SaveCKBao();
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_Cloth_KC Set ');
sql.add(' Valid=''N'' ');
sql.Add(' where exists(select JYID from CK_Cloth_CR X where CK_Cloth_KC.JYID=X.JYID and X.CRFlag=''入库'' and X.Baoid=' + Quotedstr(FSMStr) + ') ');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_Cloth_CR Set ');
sql.add(' CRTime=getdate(),CRType=''扫描出库'',CRFlag=''出库'' ');
sql.add(',CKNO=' + Quotedstr(CKNO.Text));
sql.Add(' where exists(select JYID from CK_Cloth_CR X where CK_Cloth_CR.JYID=X.JYID and X.CRFlag=''入库'' and X.Baoid=' + Quotedstr(FSMStr) + ') ');
sql.Add('and CK_Cloth_CR.CRFlag=''待出库'' ');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE JY_Cloth Set JYCRType=''已出库'' ');
sql.Add(' where exists (select JYID from CK_Cloth_CR X where JY_Cloth.JYID=X.JYID and X.CRFlag=''入库'' and X.Baoid=' + Quotedstr(FSMStr) + ') ');
SQL.Add(' and JY_Cloth.JYCRType=''已入库'' ');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('出库失败！', '提示信息', 0);
end;
end;
function TfrmSQSMCK.JudgeSQD(): Boolean;
begin
Result := false;
try
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from FHSQ_Main A inner join FHSQ_Sub B on A.FSID=B.FSID where A.FSID=''' + Trim(FSMStr) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty then
raise Exception.Create('申请单不存在暂停发货!');
if Trim(CKNO.Text) <> '' then
begin
FCKNO := Trim(CKNO.Text);
end;
CKNO.Text := Trim(FSMStr);
if FSMStr <> FCKNO then
begin
InitCKGrid();
InitSQGrid();
end;
Result := True;
except
Result := false;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
// PlaySound('未扫描申请单暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
end;
end;
procedure TfrmSQSMCK.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmSQSMCK.FormDestroy(Sender: TObject);
begin
inherited;
frmSQSMCK := nil;
end;
procedure TfrmSQSMCK.FormShow(Sender: TObject);
begin
inherited;
BaoID.SetFocus;
ReadCxGrid('扫描出库Tv4', Tv4, '发货申请');
ReadCxGrid('扫描出库Tv3', Tv3, '发货申请');
CRTime.DateTime := SGetServerDate(ADOQueryTemp);
end;
procedure TfrmSQSMCK.BaoIDKeyPress(Sender: TObject; var Key: Char);
var
maxno, SMFlag, KYCKFlag, FMainId, ff: string;
FFQty: Integer;
begin
if Key = #13 then
begin
FSMStr := TRIM(BaoID.Text);
if Copy(FSMStr, 1, 2) = 'SM' then
begin
if not JudgeSQD() then
exit;
end
else
begin
if Trim(edtIsSMTH.Text) = '' then
begin
if Copy(FSMStr, 1, 2) = 'BI' then
begin
if not JudgeBao() then
exit;
SaveCKBao();
PlaySound('wav/正确.wav', 0, SND_FILENAME or SND_ASYNC);
end
else
begin
if not JudgeJTM() then
exit;
SaveCKJTM();
PlaySound('wav/正确.wav', 0, SND_FILENAME or SND_ASYNC);
end;
end
else
begin
if JudgeJTMCX() then //检测卷条码
SaveCKJTMCX();
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_FH_UP_FHQty ''' + Trim(CKNO.Text) + '''');
ExecSQL;
end;
InitSQGrid();
InitCKGrid();
end;
BaoID.Text := '';
end;
end;
procedure TfrmSQSMCK.Button2Click(Sender: TObject);
begin
WriteCxGrid('扫描出库Tv4', Tv4, '发货申请');
WriteCxGrid('扫描出库Tv3', Tv3, '发货申请');
Close;
end;
procedure TfrmSQSMCK.Button1Click(Sender: TObject);
var
MKey: Char;
begin
MKey := #13;
try
frmFHSQListSel := TfrmFHSQListSel.Create(self);
with frmFHSQListSel do
begin
if ShowModal = 1 then
begin
BaoID.Text := Trim(Order_Main.fieldbyname('FSID').AsString);
BaoIDKeyPress(BaoID, MKey);
end;
end;
finally
frmFHSQListSel.Free;
end;
end;
procedure TfrmSQSMCK.edtIsSMTHClick(Sender: TObject);
begin
if Trim(edtIsSMTH.Text) = '' then
edtIsSMTH.Text := '√'
else
edtIsSMTH.Text := '';
end;
procedure TfrmSQSMCK.btn1Click(Sender: TObject);
var
MKey: Char;
begin
MKey := #13;
CZZT := '选择库存';
fcuowu := '1';
try
frmCKProductBCPKCListSel := TfrmCKProductBCPKCListSel.Create(Application);
with frmCKProductBCPKCListSel do
begin
// CustomerNoName.text := trim(Self.KHName.text);
if ShowModal = 1 then
begin
with frmCKProductBCPKCListSel.CDS_Main do
begin
First;
while not Eof do
begin
if Fieldbyname('ssel').AsBoolean then
begin
Self.BaoID.Text := Trim(Fieldbyname('JYID').AsString);
BaoIDKeyPress(Self.BaoID, MKey);
if fcuowu = '错误' then
begin
Break;
end;
Sleep(200);
end;
Next;
end;
end;
end;
end;
finally
frmCKProductBCPKCListSel.Free;
end;
InitCKGrid();
end;
procedure TfrmSQSMCK.InitSQGrid();
begin
if CKNO.Text <> '' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('SELECT b.*,A.ConNo FROM FHSQ_Sub B');
sql.Add('inner join FHSQ_Main A ON A.FSId=B.FSId ');
sql.Add('WHERE B.FSId=''' + Trim(CKNO.Text) + '''');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1);
end;
end;
procedure TfrmSQSMCK.InitCKGrid();
begin
if CKNO.Text <> '' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select *');
sql.Add(' from CK_Cloth_CR A');
sql.Add(' where A.CKNo=''' + Trim(CKNO.Text) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_MainSel);
SInitCDSData(ADOQueryTemp, CDS_MainSel);
end;
end;
end.

525
发货申请(ShipmentRequest.dll)/U_PBKCListSel.dfm Normal file
View File

@ -0,0 +1,525 @@
object frmPBKCListSel: TfrmPBKCListSel
Left = 338
Top = 162
Width = 1224
Height = 511
Caption = #22383#24067#24211#23384#21015#34920
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1208
Height = 33
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #36873#25321#20986#24211
ImageIndex = 31
OnClick = ToolButton1Click
end
object TBRafresh: TToolButton
Left = 87
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 150
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
OnClick = TBFindClick
end
object TBExport: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 68
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 276
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object MovePanel2: TMovePanel
Left = 408
Top = 192
Width = 289
Height = 49
BevelInner = bvLowered
Caption = #27491#22312#22788#29702#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Visible = False
end
object cxGrid2: TcxGrid
Left = 0
Top = 94
Width = 1208
Height = 379
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
Column = v1Column6
end
item
Kind = skSum
Column = v2Column5
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
Styles.Header = DataLink_ShipmentRequest.Default
object v1Column2: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
Visible = False
HeaderAlignmentHorz = taCenter
Hidden = True
Width = 41
end
object cxgrdbclmnv1Column14: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 36
end
object v1Column1: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'ConNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
end
object v1Column13: TcxGridDBColumn
Caption = #36710#38388
DataBinding.FieldName = 'CheJian'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v1Column7: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
end
object v2Column1: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_CodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 92
end
object v1Column15: TcxGridDBColumn
Caption = #26426#21488#21495
DataBinding.FieldName = 'CarNo'
HeaderAlignmentHorz = taCenter
Width = 79
end
object v2Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 77
end
object v1Column10: TcxGridDBColumn
Caption = #33394#21035
DataBinding.FieldName = 'MJStr3'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object v1Column8: TcxGridDBColumn
Caption = #38376#24133'CM'
DataBinding.FieldName = 'MFQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column9: TcxGridDBColumn
Caption = #20811#37325'GSM'
DataBinding.FieldName = 'KZQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object v1Column6: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'MJID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object v1Column4: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'APXH'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 59
end
object v1Column12: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'KuWei'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
end
object v1Column3: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'CPType'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
object v2Column5: TcxGridDBColumn
Caption = #24211#23384#20844#26020#25968
DataBinding.FieldName = 'KCKGQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 83
end
object v1Column16: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'APBatchNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object v1Column5: TcxGridDBColumn
Caption = #30133#28857#24773#20917
DataBinding.FieldName = 'CDQK'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 109
end
object v1Column11: TcxGridDBColumn
Caption = #24037#33402
DataBinding.FieldName = 'gongyi'
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel1: TPanel
Left = 0
Top = 33
Width = 1208
Height = 61
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 3
object Label3: TLabel
Left = 213
Top = 12
Width = 24
Height = 12
Caption = #21697#21517
end
object Label4: TLabel
Left = 213
Top = 36
Width = 24
Height = 12
Caption = #32534#21495
end
object Label5: TLabel
Left = 34
Top = 12
Width = 48
Height = 12
Caption = #35746' '#21333' '#21495
end
object Label6: TLabel
Left = 34
Top = 36
Width = 48
Height = 12
Caption = #26465' '#30721
end
object Label7: TLabel
Left = 360
Top = 36
Width = 24
Height = 12
Caption = #31561#32423
end
object Label8: TLabel
Left = 360
Top = 12
Width = 24
Height = 12
Caption = #33394#21035
end
object Label1: TLabel
Left = 472
Top = 36
Width = 24
Height = 12
Caption = #24211#20301
end
object Label12: TLabel
Left = 642
Top = 36
Width = 36
Height = 12
Caption = #36710' '#38388
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 460
Top = 12
Width = 36
Height = 12
Caption = #26426#21488#21495
end
object Label10: TLabel
Left = 654
Top = 12
Width = 24
Height = 12
Caption = #25209#21495
end
object C_CodeName: TEdit
Tag = 2
Left = 242
Top = 8
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 1
OnChange = C_CodeNameChange
end
object C_Code: TEdit
Tag = 2
Left = 242
Top = 32
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 6
OnChange = C_CodeNameChange
end
object ConNo: TEdit
Tag = 2
Left = 84
Top = 8
Width = 109
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 0
OnChange = C_CodeNameChange
end
object MJID: TEdit
Tag = 2
Left = 84
Top = 32
Width = 109
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 5
OnChange = C_CodeNameChange
end
object MJStr3: TComboBox
Tag = 2
Left = 386
Top = 8
Width = 68
Height = 20
Style = csDropDownList
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
TabOrder = 2
OnChange = TBFindClick
Items.Strings = (
#27973#33394
#28145#33394
#28418#30333
'')
end
object KuWei: TEdit
Tag = 2
Left = 498
Top = 32
Width = 119
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 8
OnChange = C_CodeNameChange
end
object CheJian: TComboBox
Tag = 1
Left = 679
Top = 32
Width = 99
Height = 20
Style = csDropDownList
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
TabOrder = 9
end
object CarNo: TEdit
Tag = 2
Left = 498
Top = 8
Width = 119
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 3
OnChange = C_CodeNameChange
end
object APBatchNo: TEdit
Tag = 2
Left = 679
Top = 8
Width = 99
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 4
OnChange = C_CodeNameChange
end
object CPType: TComboBox
Tag = 2
Left = 385
Top = 32
Width = 68
Height = 20
Style = csDropDownList
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
TabOrder = 7
OnChange = TBFindClick
Items.Strings = (
''
'A'
'B'
'C')
end
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 968
Top = 40
end
object ADOQueryMain: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 984
Top = 40
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 944
Top = 32
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 920
Top = 152
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 888
Top = 144
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 608
Top = 160
end
object PopupMenu1: TPopupMenu
Left = 408
Top = 160
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
end

220
发货申请(ShipmentRequest.dll)/U_PBKCListSel.pas Normal file
View File

@ -0,0 +1,220 @@
unit U_PBKCListSel;
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, MovePanel, Menus, cxCheckBox;
type
TfrmPBKCListSel = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
CDS_Main: TClientDataSet;
MovePanel2: TMovePanel;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ToolButton1: TToolButton;
cxGrid2: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column2: TcxGridDBColumn;
cxgrdbclmnv1Column14: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
cxGrid2Level1: TcxGridLevel;
Panel1: TPanel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label1: TLabel;
Label12: TLabel;
Label9: TLabel;
Label10: TLabel;
C_CodeName: TEdit;
C_Code: TEdit;
ConNo: TEdit;
MJID: TEdit;
MJStr3: TComboBox;
KuWei: TEdit;
CheJian: TComboBox;
CarNo: TEdit;
APBatchNo: TEdit;
CPType: TComboBox;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure C_CodeNameChange(Sender: TObject);
procedure Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
private
FLeft, FTop: Integer;
procedure InitGrid();
{ Private declarations }
public
{ Public declarations }
FMainid, FSubId, FConNo, FColor, FCodeName, FCKOrdNo: string;
end;
var
frmPBKCListSel: TfrmPBKCListSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmPBKCListSel.FormDestroy(Sender: TObject);
begin
frmPBKCListSel := nil;
end;
procedure TfrmPBKCListSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caHide;
end;
procedure TfrmPBKCListSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
SQL.Add('exec P_View_PBCPKCMX :WSQl');
Parameters.ParamByName('WSQl').Value := '';
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmPBKCListSel.TBRafreshClick(Sender: TObject);
begin
// BegDate.SetFocus;
ToolBar1.SetFocus;
MovePanel2.Visible := True;
MovePanel2.Refresh;
InitGrid();
MovePanel2.Visible := False;
end;
procedure TfrmPBKCListSel.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmPBKCListSel.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('²Ö¿â¿â´æÁбíPB', Tv1, 'Å÷²¼²Ö¿â');
Close;
end;
procedure TfrmPBKCListSel.FormShow(Sender: TObject);
begin
ReadCxGrid('²Ö¿â¿â´æÁбíPB', Tv1, 'Å÷²¼²Ö¿â');
InitGrid();
end;
procedure TfrmPBKCListSel.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
TcxGridToExcel('¿â´æÁбí', cxGrid2);
end;
procedure TfrmPBKCListSel.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
end;
end;
procedure TfrmPBKCListSel.C_CodeNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmPBKCListSel.Tv1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
FLeft := X;
FTop := Y;
end;
procedure TfrmPBKCListSel.N1Click(Sender: TObject);
begin
SelOKNo(CDS_Main, True);
end;
procedure TfrmPBKCListSel.N2Click(Sender: TObject);
begin
SelOKNo(CDS_Main, False);
end;
procedure TfrmPBKCListSel.CheckBox1Click(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmPBKCListSel.ToolButton1Click(Sender: TObject);
begin
ModalResult := 1;
end;
end.

746
发货申请(ShipmentRequest.dll)/U_PBOutHZList.dfm Normal file
View File

@ -0,0 +1,746 @@
inherited frmPBOutHZList: TfrmPBOutHZList
Left = 157
Top = 128
Caption = #30721#21333#25171#21360
ClientHeight = 697
ClientWidth = 1540
Font.Height = -15
Position = poScreenCenter
ExplicitWidth = 1556
ExplicitHeight = 736
PixelsPerInch = 120
TextHeight = 15
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 103
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_ShipmentRequest.ImageList_new32
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = TBFindClick
end
object ToolButton1: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #25171#21360
ImageIndex = 21
OnClick = ToolButton1Click
end
object ComboBox1: TComboBox
Left = 213
Top = 0
Width = 172
Height = 24
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemIndex = 0
ParentFont = False
TabOrder = 0
Text = #20986#24211#30721#21333'1'
Items.Strings = (
#20986#24211#30721#21333'1'
#20986#24211#30721#21333'2'
#20986#24211#30721#21333'3')
end
object ToolButton2: TToolButton
Left = 385
Top = 0
Caption = #25171#21360#20986#24211#21333
ImageIndex = 21
Visible = False
OnClick = ToolButton2Click
end
object TBExport: TToolButton
Left = 488
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 20
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 559
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 76
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = 16242829
ParentBackground = False
TabOrder = 1
object Label1: TLabel
Left = 35
Top = 15
Width = 60
Height = 15
Caption = #26597#35810#26102#38388
end
object Label2: TLabel
Left = 80
Top = 45
Width = 15
Height = 15
Caption = #33267
end
object Label10: TLabel
Left = 236
Top = 15
Width = 60
Height = 15
Caption = #30003#35831#21333#21495
end
object Label3: TLabel
Left = 644
Top = 15
Width = 30
Height = 15
Caption = #21697#21517
end
object Label5: TLabel
Left = 238
Top = 45
Width = 61
Height = 15
Caption = #35746' '#21333' '#21495
end
object Label8: TLabel
Left = 446
Top = 45
Width = 60
Height = 15
Caption = #20986#24211#31867#22411
end
object Label12: TLabel
Left = 644
Top = 45
Width = 30
Height = 15
Caption = #32534#21495
end
object Label14: TLabel
Left = 446
Top = 15
Width = 62
Height = 15
Caption = #23458' '#25143
end
object Label4: TLabel
Left = 820
Top = 15
Width = 30
Height = 15
Caption = #25209#21495
end
object BegDate: TDateTimePicker
Left = 96
Top = 10
Width = 109
Height = 23
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 96
Top = 40
Width = 109
Height = 23
Date = 40768.000000000000000000
Time = 0.458268587972270300
TabOrder = 5
end
object FSID: TEdit
Tag = 2
Left = 308
Top = 10
Width = 108
Height = 23
TabOrder = 1
OnChange = PrtCodeNameChange
end
object PrtCodeName: TEdit
Tag = 2
Left = 676
Top = 10
Width = 109
Height = 23
TabOrder = 3
OnChange = PrtCodeNameChange
end
object ConNo: TEdit
Tag = 2
Left = 308
Top = 40
Width = 108
Height = 23
TabOrder = 6
OnChange = ConNoChange
OnKeyPress = ConNoKeyPress
end
object CRType: TComboBox
Tag = 2
Left = 511
Top = 40
Width = 109
Height = 23
Style = csDropDownList
TabOrder = 7
OnChange = PrtCodeNameChange
Items.Strings = (
#38144#21806#20986#24211
#20854#23427#20986#24211
'')
end
object PrtCode: TEdit
Tag = 2
Left = 676
Top = 40
Width = 109
Height = 23
TabOrder = 8
OnChange = PrtCodeNameChange
end
object CustomerNoName: TEdit
Tag = 2
Left = 511
Top = 10
Width = 109
Height = 23
TabOrder = 2
OnChange = PrtCodeNameChange
end
object SQBatchNoHZ: TEdit
Tag = 2
Left = 853
Top = 10
Width = 108
Height = 23
TabOrder = 4
OnChange = PrtCodeNameChange
end
end
object MovePanel2: TMovePanel [2]
Left = 430
Top = 240
Width = 361
Height = 61
BevelInner = bvLowered
Caption = #27491#22312#25191#34892#25968#25454#25805#20316#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Visible = False
end
object cxGrid1: TcxGrid [3]
Left = 0
Top = 114
Width = 1540
Height = 583
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
Position = spFooter
Column = v1Column11
end
item
Kind = skSum
Position = spFooter
Column = v1Column18
end
item
Kind = skSum
Position = spFooter
Column = v1Column19
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column11
end
item
Kind = skSum
Column = v1Column18
end
item
Kind = skSum
Column = v1Column19
end
item
Kind = skSum
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = v1Column11
end
item
Kind = skSum
Column = v1Column18
end
item
Kind = skSum
Column = v1Column19
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
OptionsView.Indicator = True
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
Styles.Footer = DataLink_ShipmentRequest.Default
Styles.Header = DataLink_ShipmentRequest.Default
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
object v1Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
Properties.OnChange = v1Column4PropertiesChange
Visible = False
HeaderAlignmentHorz = taCenter
Width = 52
end
object v1Column8: TcxGridDBColumn
Caption = #30003#35831#21333#21495
DataBinding.FieldName = 'FSID'
HeaderAlignmentHorz = taCenter
Width = 93
end
object v1Column21: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNo'
HeaderAlignmentHorz = taCenter
Width = 115
end
object v1Column3: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'PrtCode'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column16: TcxGridDBColumn
Caption = #38376#24133'CM'
DataBinding.FieldName = 'prtmf'
Width = 56
end
object v1Column15: TcxGridDBColumn
Caption = #20811#37325'g/'#13217
DataBinding.FieldName = 'prtkz'
Width = 62
end
object v1Column22: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'prtspec'
HeaderAlignmentHorz = taCenter
Width = 146
end
object v1Column9: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'PrtCodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v1CustomerNoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustomerNoName'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 87
end
object v1OrdPerson1: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'ConPerson1'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 74
end
object v1OrdDate: TcxGridDBColumn
Caption = #30003#35831#26085#26399
DataBinding.FieldName = 'SQDate'
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_ShipmentRequest.Default
Width = 70
end
object v1Column23: TcxGridDBColumn
Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'CRType'
HeaderAlignmentHorz = taCenter
Width = 73
end
object v1Column11: TcxGridDBColumn
Caption = #30003#35831#21305#25968
DataBinding.FieldName = 'SQPSHZ'
HeaderAlignmentHorz = taCenter
Width = 72
end
object v1Column1: TcxGridDBColumn
Caption = #30003#35831#20154
DataBinding.FieldName = 'Filler'
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column13: TcxGridDBColumn
Caption = #23457#26680#20154
DataBinding.FieldName = 'Chker'
HeaderAlignmentHorz = taCenter
Width = 65
end
object v1Column17: TcxGridDBColumn
Caption = #23457#26680#26085#26399
DataBinding.FieldName = 'ChkTime'
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column5: TcxGridDBColumn
Caption = #21457#36135#26085#26399
DataBinding.FieldName = 'FHDate'
HeaderAlignmentHorz = taCenter
Width = 73
end
object v1Column18: TcxGridDBColumn
Caption = #21457#36135#21305#25968
DataBinding.FieldName = 'FHPSHZ'
HeaderAlignmentHorz = taCenter
Width = 66
end
object v1Column19: TcxGridDBColumn
Caption = #21457#36135#25968#37327
DataBinding.FieldName = 'FHQtyHZ'
HeaderAlignmentHorz = taCenter
Width = 65
end
object v1Column24: TcxGridDBColumn
Caption = #26579#21378
DataBinding.FieldName = 'ranchang'
HeaderAlignmentHorz = taCenter
Width = 54
end
object v1Column7: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
Width = 70
end
object v1Column6: TcxGridDBColumn
Caption = #26426#22411
DataBinding.FieldName = 'CarType'
HeaderAlignmentHorz = taCenter
end
object v1Column2: TcxGridDBColumn
Caption = #35843#25320#20986#24211#21333#21495
DataBinding.FieldName = 'DBConNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Left = 153
Top = 360
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Left = 145
Top = 273
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 968
Top = 16
end
object ADOQueryMain: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 936
Top = 16
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 1024
Top = 16
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 920
Top = 152
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 784
Top = 248
end
object CDS_Main1: TClientDataSet
Aggregates = <>
Params = <>
Left = 568
Top = 280
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 362
Top = 218
ReportData = {}
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 100
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 256
Top = 260
end
object ADOQueryDH: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 496
Top = 208
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 703
Top = 267
end
object CDS_Juan: TClientDataSet
Aggregates = <>
Params = <>
Left = 272
Top = 216
end
object CDS_JuanPRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 432
Top = 288
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = CDS_JuanPRT
Left = 320
Top = 216
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 443
Top = 134
end
object CDS_Label: TClientDataSet
Aggregates = <>
Params = <>
Left = 243
Top = 142
end
end

901
发货申请(ShipmentRequest.dll)/U_PBOutHZList.pas Normal file
View File

@ -0,0 +1,901 @@
unit U_PBOutHZList;
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, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System,
RM_GridReport, cxCheckBox, Menus, MovePanel, BtnEdit, cxCalendar,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
type
TfrmPBOutHZList = class(TFrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBExport: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
Label1: TLabel;
Label2: TLabel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
CDS_Main1: TClientDataSet;
RM1: TRMGridReport;
RMXLSExport1: TRMXLSExport;
Label10: TLabel;
FSID: TEdit;
MovePanel2: TMovePanel;
Label3: TLabel;
Label5: TLabel;
PrtCodeName: TEdit;
ConNo: TEdit;
Label8: TLabel;
CRType: TComboBox;
ADOQueryDH: TADOQuery;
ADOQueryPrint: TADOQuery;
Label12: TLabel;
PrtCode: TEdit;
Label14: TLabel;
CustomerNoName: TEdit;
CDS_Juan: TClientDataSet;
CDS_JuanPRT: TClientDataSet;
RMDB_Main: TRMDBDataSet;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1Column8: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1CustomerNoName: TcxGridDBColumn;
v1OrdPerson1: TcxGridDBColumn;
v1OrdDate: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column17: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v1Column19: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
v1Column5: TcxGridDBColumn;
v1Column21: TcxGridDBColumn;
Label4: TLabel;
SQBatchNoHZ: TEdit;
v1Column22: TcxGridDBColumn;
v1Column23: TcxGridDBColumn;
ToolButton1: TToolButton;
ComboBox1: TComboBox;
ToolButton2: TToolButton;
v1Column24: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
CDS_Main: TClientDataSet;
v1Column6: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
CDS_Label: TClientDataSet;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure MPRTCodeNameChange(Sender: TObject);
procedure orderNoChange(Sender: TObject);
procedure PrtCodeNameChange(Sender: TObject);
procedure ConNoKeyPress(Sender: TObject; var Key: Char);
procedure CheJianChange(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure v1Column4PropertiesChange(Sender: TObject);
procedure ConNoChange(Sender: TObject);
private
procedure InitGrid();
function YSData(Order_Main10: TClientDataSet): Boolean;
procedure GetLotData();
procedure GetLotDataPT();
{ Private declarations }
public
{ Public declarations }
end;
//var
// frmPBOutHZList:TfrmPBOutHZList;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp;
{$R *.dfm}
procedure TfrmPBOutHZList.FormDestroy(Sender: TObject);
begin
inherited;
// frmPBOutHZList:=nil;
end;
procedure TfrmPBOutHZList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmPBOutHZList.FormCreate(Sender: TObject);
begin
inherited;
//cxGrid1.Align:=alClient;
BegDate.DateTime := SGetServerDateTime(ADOQueryTemp);
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp)
end;
procedure TfrmPBOutHZList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
Sql.Add(' select A.* ');
sql.Add(' from FHSQ_Main A');
sql.Add(' where A.FHDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
sql.Add(' and A.FHDate<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
sql.Add(' and Chker<>'''' ');
sql.Add(' and FHPSHZ>0');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmPBOutHZList.TBRafreshClick(Sender: TObject);
begin
BegDate.SetFocus;
InitGrid();
end;
procedure TfrmPBOutHZList.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
end;
end;
procedure TfrmPBOutHZList.TBCloseClick(Sender: TObject);
begin
WriteCxGrid(Self.Caption + '1', Tv1, '坯布仓库');
Close;
end;
procedure TfrmPBOutHZList.FormShow(Sender: TObject);
var
fsj: string;
begin
inherited;
ReadCxGrid(Self.Caption, Tv1, '坯布仓库');
ReadCxGrid(Self.Caption + '1', Tv1, '坯布仓库');
fsj := 'select distinct(LMName) name from Lbael_Map where LMType=''出库码单'' ';
SInitComBoxBySql(ADOQueryCmd, ComboBox1, true, fsj);
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
Sql.Add('select * from Lbael_Map where LMType=''出库码单''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_Label);
SInitCDSData(ADOQueryTemp, CDS_Label);
end;
procedure TfrmPBOutHZList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
exit;
// SelExportData(Tv1, ADOQueryMain, '');
end;
procedure TfrmPBOutHZList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
end;
end;
procedure TfrmPBOutHZList.MPRTCodeNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmPBOutHZList.GetLotDataPT();
var
FPCode, FColor, FBaoNo, FHZ, fPrintFile, FPlanNo, PCodeColor, JSKHConNo: string;
i, ii, j, z, bb, hh: Integer;
XJ: Double;
begin
if CDS_Main.IsEmpty then
Exit;
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.Add('select defStr0=Cast('''' as varchar(20)), defstr1=Cast(0 as decimal(18,2)),defstr2=Cast(0 as decimal(18,2))');
sql.add(',defstr3=Cast(0 as decimal(18,2)),defstr4=Cast(0 as decimal(18,2)),defstr5=Cast(0 as decimal(18,2))');
sql.add(',defstr6=Cast(0 as decimal(18,2)),defstr7=Cast(0 as decimal(18,2)),defstr8=Cast(0 as decimal(18,2))');
sql.add(',defstr9=Cast(0 as decimal(18,2)),defstr10=Cast(0 as decimal(18,2))');
sql.Add(',DefJ1=Cast(0 as int),DefJ2=Cast(0 as int),DefJ3=Cast(0 as int),DefJ4=Cast(0 as int)');
sql.Add(',DefJ5=Cast(0 as int),DefJ6=Cast(0 as int),DefJ7=Cast(0 as int),DefJ8=Cast(0 as int)');
sql.Add(',DefJ9=Cast(0 as int),DefJ10=Cast(0 as int)');
Open;
end;
SCreateCDS(ADOQueryPrint, CDS_JuanPRT);
SInitCDSData(ADOQueryPrint, CDS_JuanPRT);
if CDS_JuanPRT.IsEmpty = False then
begin
CDS_JuanPRT.Delete;
end;
with CDS_JuanPRT do
begin
for z := 1 to 10 do
begin
Append;
FieldByName('defStr0').Value := IntToStr(z);
Post;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select A.KGQty,JQty=1 ');
sql.Add(' from CK_PBCP_CR A ');
sql.Add(' where 1=1 ');
sql.Add(' and A.CRFlag=''出库'' ');
SQL.Add(' and CKOrdNo=''' + Trim(CDS_Main.fieldbyname('CKOrdNo').AsString) + '''');
Open;
end;
ii := ADOQueryTemp.RecordCount;
ii := ii div 100;
ii := ii + 1;
bb := ii;
i := 1;
j := 1;
hh := 0;
with ADOQueryTemp do
begin
First;
while not Eof do
begin
if i < 11 then
begin
CDS_JuanPRT.Locate('defstr0', IntToStr(i + hh * 10), []);
with CDS_JuanPRT do
begin
Edit;
FieldByName('defstr' + Trim(inttostr(j))).Value := ADOQueryTemp.fieldbyname('KGQty').Value;
FieldByName('DefJ' + Trim(inttostr(j))).Value := 1;
Post;
end;
i := i + 1;
end
else
begin
j := j + 1;
if j < 11 then
begin
CDS_JuanPRT.Locate('defstr0', IntToStr(1 + hh * 10), []);
with CDS_JuanPRT do
begin
Edit;
FieldByName('defstr' + Trim(inttostr(j))).Value := ADOQueryTemp.fieldbyname('KGQty').Value;
FieldByName('DefJ' + Trim(inttostr(j))).Value := 1;
Post;
end;
i := 2;
end
else
begin
if bb = ii then
begin
hh := 1;
end
else
begin
hh := hh + 1;
end;
if hh < ii then
begin
with CDS_JuanPRT do
begin
for z := 1 + hh * 10 to 10 + hh * 10 do
begin
Append;
FieldByName('defStr0').Value := IntToStr(z);
Post;
end;
end;
bb := -1;
CDS_JuanPRT.Locate('defstr0', Trim(IntToStr(1 + hh * 10)), []);
with CDS_JuanPRT do
begin
Edit;
FieldByName('defstr1').Value := ADOQueryTemp.fieldbyname('KGQty').Value;
FieldByName('DefJ' + Trim(inttostr(j - (10)))).Value := 1;
Post;
end;
i := 2;
j := 1;
end;
end;
end;
Next;
end;
end;
CDS_JuanPRT.DisableControls;
with CDS_JuanPRT do
begin
First;
while not Eof do
begin
CDS_JuanPRT.Edit;
if (CDS_JuanPRT.FieldByName('defstr0').AsInteger mod 10) <> 0 then
CDS_JuanPRT.FieldByName('defstr0').Value := IntToStr(CDS_JuanPRT.FieldByName('defstr0').AsInteger mod 10)
else
CDS_JuanPRT.FieldByName('defstr0').Value := '10';
CDS_JuanPRT.Post;
Next;
end;
end;
CDS_JuanPRT.EnableControls;
end;
procedure TfrmPBOutHZList.GetLotData();
var
XHLie, XHHang: Integer;
FHZ: string;
begin
if CDS_Main.IsEmpty then
Exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select AA.* ');
sql.Add('from(select gangno=B.CarNo,B.MJXH,MJMaoZ=A.KgQty,A.MainId,C.C_Color,C.BatchNoHZ');
sql.Add(' ,GQty=(select sum(MJMaoZ) from CK_PBCP_CR CR inner join WFB_MJJY_PB XH on CR.MJID=XH.MJID ');
sql.add(' where CR.CKOrdNo=A.CKOrdNo and XH.CarNo=B.CarNo and XH.MainId=B.MainId ) ');
sql.Add(' ,GPS=(select count(*) from CK_PBCP_CR CR inner join WFB_MJJY_PB XH on CR.MJID=XH.MJID ');
sql.add(' where CR.CKOrdNo=A.CKOrdNo and XH.CarNo=B.CarNo and XH.MainId=B.MainId) ');
sql.add(' from CK_PBCP_CR A');
sql.Add(' inner join WFB_MJJY_PB B on A.MJID=B.MJID ');
sql.Add(' inner join Cloth_Sub C on B.SubId=C.SubId');
sql.Add(' where A.CKOrdNo=''' + Trim(CDS_Main.fieldbyname('CKOrdNo').AsString) + '''');
sql.Add(' )AA order by MainId,Cast(GangNo as int),MJXH');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_Juan);
SInitCDSData(ADOQueryTemp, CDS_Juan);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select');
sql.Add(' PCode=Cast('''' as varchar(20)),ColorNo=Cast('''' as varchar(20)),');
sql.Add(' GangNo=Cast('''' as varchar(20)),MainId=Cast('''' as varchar(20)),');
sql.Add(' LenQty0=Cast(0.00 as decimal(18,1)),LenQty1=Cast(0.00 as decimal(18,1)),');
sql.Add(' LenQty2=Cast(0.00 as decimal(18,1)),LenQty3=Cast(0.00 as decimal(18,1)),');
sql.Add(' LenQty4=Cast(0.00 as decimal(18,1)),LenQty5=Cast(0.00 as decimal(18,1)),');
sql.Add(' LenQty6=Cast(0.00 as decimal(18,1)),LenQty7=Cast(0.00 as decimal(18,1)),');
sql.Add(' LenQty8=Cast(0.00 as decimal(18,1)),LenQty9=Cast(0.00 as decimal(18,1)),');
sql.Add(' LenQty10=Cast(0.00 as decimal(18,1)),LenQty11=Cast(0.00 as decimal(18,1)),');
sql.Add(' MJPS0=Cast(0 as int),MJPS1=Cast(0 as int),');
sql.Add(' MJPS2=Cast(0 as int),MJPS3=Cast(0 as int),');
sql.Add(' MJPS4=Cast(0 as int),MJPS5=Cast(0 as int),');
sql.Add(' MJPS6=Cast(0 as int),MJPS7=Cast(0 as int),');
sql.Add(' MJPS8=Cast(0 as int),MJPS9=Cast(0 as int),');
sql.Add(' MJPS10=Cast(0 as int),MJPS11=Cast(0 as int),');
sql.Add(' JuanQty=Cast(0 as int),GPS=Cast(0 as int),GQty=Cast(0 as decimal(18,1)),');
sql.Add(' GPrice=Cast(0 as decimal(18,2)),GMoney=Cast(0 as decimal(18,2)),');
sql.Add(' PCodeColorNo=cast('''' as varchar(50)),Hang=Cast(0 as int),');
sql.Add(' PCodeColorNoG=cast('''' as varchar(50))');
sql.Add(' ,BatchNoHZ=cast('''' as varchar(50))');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_JuanPRT);
SInitCDSData(ADOQueryTemp, CDS_JuanPRT);
if CDS_JuanPRT.IsEmpty = False then
begin
CDS_JuanPRT.Delete;
end;
CDS_Juan.DisableControls;
with CDS_Juan do
begin
First;
while not Eof do
begin
with CDS_JuanPRT do
begin
if CDS_JuanPRT.IsEmpty then
begin
XHLie := 0;
XHHang := 0;
CDS_JuanPRT.Append;
CDS_JuanPRT.FieldByName('GangNo').Value := CDS_Juan.fieldbyname('GangNo').Value;
CDS_JuanPRT.FieldByName('BatchNoHZ').Value := CDS_Juan.fieldbyname('BatchNoHZ').Value;
CDS_JuanPRT.FieldByName('MainId').Value := CDS_Juan.fieldbyname('MainId').Value;
CDS_JuanPRT.FieldByName('PCodeColorNoG').Value := ' ' + Trim(CDS_Juan.fieldbyname('MainId').AsString) + '#' + Trim(CDS_Juan.fieldbyname('gangno').AsString) + ' ';
CDS_JuanPRT.FieldByName('MJPS' + Inttostr(XHLie)).Value := 1;
CDS_JuanPRT.FieldByName('Hang').Value := XHHang;
CDS_JuanPRT.FieldByName('LenQty' + Trim(IntToStr(XHLie))).Value := CDS_Juan.fieldbyname('MJMaoZ').Value;
CDS_JuanPRT.FieldByName('GPS').Value := CDS_Juan.fieldbyname('GPS').Value;
CDS_JuanPRT.FieldByName('GQty').Value := CDS_Juan.fieldbyname('GQty').Value;
CDS_JuanPRT.Post;
FHZ := Trim(CDS_Juan.fieldbyname('MainId').AsString) + Trim(CDS_Juan.fieldbyname('gangno').AsString);
end
else
begin
if (Trim(CDS_Juan.fieldbyname('MainId').AsString) + Trim(CDS_Juan.fieldbyname('GangNo').AsString)) <> FHZ then
begin
XHLie := 0;
XHHang := 0;
CDS_JuanPRT.Append;
CDS_JuanPRT.FieldByName('GangNo').Value := CDS_Juan.fieldbyname('GangNo').Value;
CDS_JuanPRT.FieldByName('BatchNoHZ').Value := CDS_Juan.fieldbyname('BatchNoHZ').Value;
CDS_JuanPRT.FieldByName('MainId').Value := CDS_Juan.fieldbyname('MainId').Value;
CDS_JuanPRT.FieldByName('PCodeColorNoG').Value := ' ' + Trim(CDS_Juan.fieldbyname('MainId').AsString) + '#' + Trim(CDS_Juan.fieldbyname('gangno').AsString) + ' ';
CDS_JuanPRT.FieldByName('MJPS' + Inttostr(XHLie)).Value := 1;
CDS_JuanPRT.FieldByName('Hang').Value := XHHang;
CDS_JuanPRT.FieldByName('LenQty' + Trim(IntToStr(XHLie))).Value := CDS_Juan.fieldbyname('MJMaoZ').Value;
CDS_JuanPRT.FieldByName('GPS').Value := CDS_Juan.fieldbyname('GPS').Value;
CDS_JuanPRT.FieldByName('GQty').Value := CDS_Juan.fieldbyname('GQty').Value;
CDS_JuanPRT.Post;
FHZ := Trim(CDS_Juan.fieldbyname('MainId').AsString) + Trim(CDS_Juan.fieldbyname('GangNo').AsString);
end
else
begin
XHLie := XHLie + 1;
if XHLie < 10 then
begin
CDS_JuanPRT.Locate('Mainid;GangNo;Hang', VarArrayOf([Trim(CDS_Juan.fieldbyname('Mainid').AsString), Trim(CDS_Juan.fieldbyname('GangNo').AsString), XHHang]), [loPartialKey]);
with CDS_JuanPRT do
begin
Edit;
CDS_JuanPRT.FieldByName('GangNo').Value := CDS_Juan.fieldbyname('GangNo').Value;
CDS_JuanPRT.FieldByName('BatchNoHZ').Value := CDS_Juan.fieldbyname('BatchNoHZ').Value;
CDS_JuanPRT.FieldByName('Mainid').Value := CDS_Juan.fieldbyname('Mainid').Value;
CDS_JuanPRT.FieldByName('PCodeColorNoG').Value := ' ' + Trim(CDS_Juan.fieldbyname('Mainid').AsString) + '#' + Trim(CDS_Juan.fieldbyname('gangno').AsString) + ' ';
CDS_JuanPRT.FieldByName('MJPS' + Inttostr(XHLie)).Value := 1;
CDS_JuanPRT.FieldByName('Hang').Value := XHHang;
CDS_JuanPRT.FieldByName('LenQty' + Trim(IntToStr(XHLie))).Value := CDS_Juan.fieldbyname('MJMaoZ').Value;
CDS_JuanPRT.FieldByName('GPS').Value := CDS_Juan.fieldbyname('GPS').Value;
CDS_JuanPRT.FieldByName('GQty').Value := CDS_Juan.fieldbyname('GQty').Value;
Post;
end;
end
else
begin
XHLie := 0;
XHHang := XHHang + 1;
CDS_JuanPRT.Append;
CDS_JuanPRT.FieldByName('GangNo').Value := CDS_Juan.fieldbyname('GangNo').Value;
CDS_JuanPRT.FieldByName('BatchNoHZ').Value := CDS_Juan.fieldbyname('BatchNoHZ').Value;
CDS_JuanPRT.FieldByName('Mainid').Value := CDS_Juan.fieldbyname('Mainid').Value;
//CDS_JuanPRT.FieldByName('PCodeColorNo').Value:=' '+Trim(CDS_Juan.fieldbyname('PCode').AsString)+'#'
//+Trim(CDS_Juan.fieldbyname('ColorNo').AsString);
CDS_JuanPRT.FieldByName('PCodeColorNoG').Value := ' ' + Trim(CDS_Juan.fieldbyname('Mainid').AsString) + '#' + Trim(CDS_Juan.fieldbyname('gangno').AsString) + ' ';
CDS_JuanPRT.FieldByName('MJPS' + Inttostr(XHLie)).Value := 1;
CDS_JuanPRT.FieldByName('Hang').Value := XHHang;
CDS_JuanPRT.FieldByName('LenQty' + Trim(IntToStr(XHLie))).Value := CDS_Juan.fieldbyname('MJMaoZ').Value;
CDS_JuanPRT.FieldByName('GPS').Value := CDS_Juan.fieldbyname('GPS').Value;
CDS_JuanPRT.FieldByName('GQty').Value := CDS_Juan.fieldbyname('GQty').Value;
CDS_JuanPRT.Post;
end;
end;
end
end;
Next;
end;
end;
CDS_Juan.EnableControls;
end;
procedure TfrmPBOutHZList.orderNoChange(Sender: TObject);
begin
if Length(ConNo.Text) < 4 then
Exit;
TBFind.Click;
end;
function TfrmPBOutHZList.YSData(Order_Main10: TClientDataSet): Boolean;
var
CRID, YFID, Price, PriceUnit, OrderUnit: string;
begin
Result := False;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select Top 1 * from JYOrder_Sub Where Mainid=''' + Trim(Order_Main10.fieldbyname('MainId').AsString) + '''');
//sql.Add(' and PRTPrice>0');
Open;
end;
{Price:=ADOQueryTemp.fieldbyname('PRTPrice').AsString;
if Trim(Price)='' then
begin
Price:='0';
end; }
PriceUnit := Trim(ADOQueryTemp.fieldbyname('PriceUnit').AsString);
OrderUnit := Trim(ADOQueryTemp.fieldbyname('OrderUnit').AsString);
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(Order_Main10.fieldbyname('KHName').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
CRID := ADOQueryTemp.fieldbyname('CRID').AsString;
end
else
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_CRID set CRID=CRID+1');
sql.Add('select * from YF_Money_CRID ');
Open;
end;
CRID := ADOQueryCmd.fieldbyname('CRID').AsString;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from YF_Money_KC where 1<>1');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('CRID').Value := StrToInt(CRID);
FieldByName('FactoryName').Value := Trim(Order_Main10.fieldbyname('KHName').AsString);
FieldByName('ZdyStr1').Value := '应收收';
Post;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR where FactoryName=''' + Trim(Order_Main10.fieldbyname('KHName').AsString) + '''');
sql.Add(' and YFTypeId=''' + Trim(Order_Main10.fieldbyname('Mainid').AsString) + '''');
sql.Add(' and Price=''' + Trim(Order_Main10.fieldbyname('PRTPrice').AsString) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
if GetLSNo(ADOQueryCmd, YFID, 'CS', 'YF_Money_CR', 3, 1) = False then
begin
Application.MessageBox('取坯布应付最大号失败!', '提示', 0);
Exit;
end;
{with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR where 1<>1');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('YFID').Value:=Trim(YFID);
FieldByName('YFTypeId').Value:=Trim(Order_Main10.fieldbyname('MainId').AsString);
FieldByName('CRID').Value:=StrToInt(CRID);
FieldByName('Filler').Value:=Trim(DName);
FieldByName('CRType').Value:='应收款登记';
FieldByName('CRFlag').Value:='应收收';
FieldByName('QtyFlag').Value:=1;
FieldByName('FactoryName').Value:=Trim(Order_Main10.fieldbyname('KHName').AsString);
FieldByName('CRTime').Value:=SGetServerDateTime(ADOQueryTemp);
FieldByName('YFType').Value:='自动生成';
FieldByName('Price').Value:=Price;
//FieldByName('HuiLv').Value:=1;
FieldByName('BZType').Value:=Trim(PriceUnit);
FieldByName('QtyUnit').Value:=Trim(OrderUnit);
FieldByName('YFName').Value:='销售金额';
FieldByName('MainId').Value:=Trim(Order_Main10.fieldbyname('Mainid').AsString);
Post;
end; }
end
else
begin
YFID := Trim(ADOQueryTemp.fieldbyname('YFID').AsString);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(Qty),0) from CK_BanCP_CR A ');
sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where');
SQL.Add(' A.MainId=YF_Money_CR.YFTypeId and A.CRType=''正常出库'' and CPType=''正品'' ');
SQL.Add(' and B.PRTPrice=YF_Money_CR.Price)');
sql.Add(',PS=(select isnull(count(*),0) from CK_BanCP_CR A ');
sql.Add(' inner join JYOrder_Sub B on A.SubId=B.SubId where');
SQL.Add(' A.MainId=YF_Money_CR.YFTypeId and A.CRType=''正常出库'' and CPType=''正品'' ');
SQL.Add(' and B.PRTPrice=YF_Money_CR.Price )');
sql.Add(' where YFTypeId=''' + Trim(Order_Main10.fieldbyname('Mainid').AsString) + '''');
sql.Add(' and Price=' + Order_Main10.fieldbyname('PRTPrice').AsString);
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv');
sql.Add(' where YFID=''' + Trim(YFID) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update YF_Money_KC Set KCMoney=(select isnull(Sum(Money*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
sql.Add(',KCBBMoney=(select isnull(Sum(BBMoney*QtyFlag),0) from YF_Money_CR A where A.CRID=YF_Money_KC.CRID)');
sql.Add(' where CRID=' + CRID);
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR where YFId=''' + Trim(YFID) + '''');
Open;
end;
if ADOQueryTemp.FieldByName('Qty').Value = 0 then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete from YF_Money_CR where YFID=''' + Trim(YFID) + '''');
ExecSQL;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from YF_Money_CR where CRId=' + CRID);
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete from YF_Money_KC where CRId=' + CRID);
ExecSQL;
end;
end;
Result := True;
end;
procedure TfrmPBOutHZList.PrtCodeNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmPBOutHZList.ConNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
if Length(Trim(ConNo.Text)) < 4 then
Exit;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
SQL.Add('select A.*,B.ConNo,C.C_CodeName,C.C_Code,C.C_Color,D.APXH ');
sql.add('from CK_PBCP_CR A ');
Sql.add(' inner join Cloth_Main B on A.MainId=B.MainId');
Sql.add(' inner join Cloth_Sub C on A.MainId=C.MainId');
Sql.add(' inner join WFB_MJJY_PB D on A.MJId=D.MJId');
sql.add('where B.ConNo like :ConNo');
SQL.Add(' and CRFlag=''出库'' ');
Parameters.ParamByName('ConNo').Value := '%' + Trim(ConNo.Text) + '%';
Open;
//ShowMessage(SQL.Text);
end;
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
end;
procedure TfrmPBOutHZList.CheJianChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmPBOutHZList.ToolButton1Click(Sender: TObject);
var
fPrintFile: string;
begin
if CDS_Main.IsEmpty then
EXIT;
ExportFtErpFile(trim(ComboBox1.Text) + '.rmf', ADOQueryTemp);
if CDS_Label.Locate('LMName', trim(ComboBox1.Text), []) then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec ' + trim(CDS_Label.fieldbyname('LMSql').AsString) + ' @CKOrdNo=' + quotedstr(Trim(CDS_Main.fieldbyname('FSID').AsString)));
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_JuanPRT);
SInitCDSData(ADOQueryTemp, CDS_JuanPRT);
end;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ComboBox1.Text) + '.rmf';
if FileExists(fPrintFile) then
begin
// RMVariables['OrdNo'] := Trim(CDS_Main.fieldbyname('OrdNo').AsString)；
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
end;
end;
procedure TfrmPBOutHZList.ToolButton2Click(Sender: TObject);
var
fPrintFile: string;
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete TBSubID where DName=''' + Trim(DCode) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('SELECT * FROM TBSubID where 1=2 ');
open;
end;
CDS_Main.DisableControls;
try
ADOQueryCmd.Connection.BeginTrans;
with CDS_Main do
begin
First;
while not Eof do
begin
if CDS_Main.Fieldbyname('SSel').AsBoolean then
begin
ADOQueryCmd.append;
ADOQueryCmd.fieldbyname('SubId').Value := Trim(CDS_Main.fieldbyname('CKOrdNo').AsString);
ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode);
ADOQueryCmd.post;
end;
Next;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
CDS_Main.EnableControls;
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select D.ConNo orderno,count(B.MJXH) ps,sum(A.KgQty) mz,C.C_Color,C.BatchNoHZ');
// sql.Add(' from CK_PBCP_CR A');
// sql.Add(' inner join WFB_MJJY_PB B on A.MJID=B.MJID');
// sql.Add(' inner join Cloth_Sub C on B.SubId=C.SubId');
// sql.Add(' inner join Cloth_Main D on D.MainId=C.MainId');
// SQL.Add(' where A.CKOrdNo='+quotedstr(Trim(CDS_Main.fieldbyname('CKOrdNo').AsString)));
// SQL.Add(' group by D.ConNo,C.C_Color,C.BatchNoHZ ');
// SQL.Add(' order by D.ConNo,C.C_Color,C.BatchNoHZ');
// Open;
// end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select MAX(A.FHDate) MJDate,A.SHDanWei,A.CRType,A.TruckId,B.PrtCode,B.PrtCodeName,B.prtspec,C.CustomerNoName');
sql.Add(' ,G.ConNo,F.C_Color,F.BatchNoHZ,count(E.MJXH) ps,sum(D.KgQty) mz');
sql.Add(' from FHSQ_Main A inner join JYOrderCon_Sub_PB B on A.ConSubId=B.SubId');
sql.Add(' inner join JYOrderCon_Main_PB C on B.MainId=C.MainId');
sql.Add(' inner join CK_PBCP_CR D on D.CKOrdNo=A.FSId');
sql.Add(' inner join WFB_MJJY_PB E on E.MJID=D.MJID');
sql.Add(' inner join Cloth_Sub F on F.SubId=E.SubId');
sql.Add(' inner join Cloth_Main G on G.MainId=E.MainId');
SQL.Add(' where A.FSId in (SELECT distinct SubId FROM TBSubID where Dname=' + quotedstr(Trim(DCode)) + ')');
SQL.Add(' group by A.SHDanWei,A.CRType,A.TruckId,B.PrtCode,B.PrtCodeName,B.prtspec,C.CustomerNoName,G.ConNo,F.C_Color,F.BatchNoHZ');
SQL.Add(' order by A.SHDanWei,A.CRType,A.TruckId,B.PrtCode,B.PrtCodeName,B.prtspec,C.CustomerNoName,G.ConNo,F.C_Color,F.BatchNoHZ');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_JuanPRT);
SInitCDSData(ADOQueryTemp, CDS_JuanPRT);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\出库码单.rmf';
if FileExists(fPrintFile) then
begin
// RMVariables['ranchang']:=Trim(CDS_Main.fieldbyname('ranchang').AsString);
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
end;
end;
procedure TfrmPBOutHZList.v1Column4PropertiesChange(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxCheckBox(Sender).EditValue;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with CDS_Main do
begin
Edit;
CDS_Main.FieldByName('SSel').value := mvalue;
post;
end;
end;
procedure TfrmPBOutHZList.ConNoChange(Sender: TObject);
begin
TBFind.Click;
end;
end.

406
发货申请(ShipmentRequest.dll)/U_PBSHSMCK.dfm Normal file
View File

@ -0,0 +1,406 @@
object frmPBSHSMCK: TfrmPBSHSMCK
Left = 322
Top = 47
Width = 1109
Height = 648
Caption = #30424#20179#20986#24211
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object cxGrid3: TcxGrid
Left = 505
Top = 0
Width = 588
Height = 610
Align = alClient
TabOrder = 1
object Tv3: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DS_MainSel
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #21367#25968#37327#65306'#'
Kind = skCount
Column = cxGridDBColumn1
end
item
Kind = skSum
Column = v3Column1
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = cxStyle1
Styles.Inactive = cxStyle1
Styles.IncSearch = cxStyle1
Styles.Header = cxStyle1
object cxGridDBColumn1: TcxGridDBColumn
Caption = #26426#21488
DataBinding.FieldName = 'CarNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object v3Column4: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'APBatchNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 119
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'APXH'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object v3Column3: TcxGridDBColumn
end
object v3Column5: TcxGridDBColumn
end
object v3Column1: TcxGridDBColumn
Caption = #20844#26020#25968
DataBinding.FieldName = 'MJMaoZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v3Column2: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'MJID'
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 210
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv3
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 505
Height = 610
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label5: TLabel
Left = 6
Top = 34
Width = 80
Height = 19
Caption = #20986#24211#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 6
Top = 91
Width = 80
Height = 19
Caption = #20986#24211#26102#38388
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 232
Top = 218
Width = 33
Height = 99
Caption = #24050#13#10#20986#13#10#24211
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 454
Top = 243
Width = 49
Height = 48
Caption = #21305
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -48
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 13
Top = 338
Width = 66
Height = 33
Caption = #25195#25551
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 30
Top = 218
Width = 33
Height = 99
Caption = #24635#13#10#21305#13#10#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CKPSQty: TEdit
Tag = 2
Left = 68
Top = 230
Width = 155
Height = 75
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -67
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
ReadOnly = True
TabOrder = 2
end
object CKOrdNo: TEdit
Left = 88
Top = 8
Width = 409
Height = 72
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -64
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object BaoID: TEdit
Left = 86
Top = 325
Width = 411
Height = 72
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -64
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 4
OnKeyPress = BaoIDKeyPress
end
object CRTime: TDateTimePicker
Left = 86
Top = 86
Width = 153
Height = 28
Date = 41337.663190821760000000
Time = 41337.663190821760000000
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 1
end
object Button2: TButton
Left = 293
Top = 416
Width = 100
Height = 76
Caption = #20851#38381
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = Button2Click
end
object Edit1: TEdit
Left = 265
Top = 215
Width = 196
Height = 105
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -96
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
ReadOnly = True
TabOrder = 5
end
object CRType: TEdit
Tag = 2
Left = 512
Top = 239
Width = 154
Height = 28
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
ReadOnly = True
TabOrder = 3
end
object Button1: TButton
Left = 115
Top = 420
Width = 100
Height = 76
Caption = #36873#21333
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = Button1Click
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 752
Top = 336
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 720
Top = 336
end
object DS_MainSel: TDataSource
DataSet = CDS_MainSel
Left = 616
Top = 336
end
object CDS_MainSel: TClientDataSet
Aggregates = <>
Params = <>
Left = 648
Top = 336
end
object cxGridPopupMenu4: TcxGridPopupMenu
Grid = cxGrid3
PopupMenus = <>
Left = 680
Top = 336
end
object cxStyleRepository1: TcxStyleRepository
Left = 792
Top = 336
object cxStyle1: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 640
Top = 408
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 100
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 612
Top = 244
end
object RMDBMX: TRMDBDataSet
Visible = True
DataSet = CDS_JuanPRT
Left = 688
Top = 244
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBMX
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 728
Top = 244
ReportData = {}
end
object CDS_JuanPRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 652
Top = 244
end
end

646
发货申请(ShipmentRequest.dll)/U_PBSHSMCK.pas Normal file
View File

@ -0,0 +1,646 @@
unit U_PBSHSMCK;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit,
RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, RM_e_Xls;
type
TfrmPBSHSMCK = class(TForm)
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_MainSel: TDataSource;
CDS_MainSel: TClientDataSet;
cxGridPopupMenu4: TcxGridPopupMenu;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
v3Column1: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
v3Column2: TcxGridDBColumn;
Panel2: TPanel;
Label5: TLabel;
Label4: TLabel;
CKPSQty: TEdit;
CKOrdNo: TEdit;
BaoID: TEdit;
CRTime: TDateTimePicker;
Button2: TButton;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Label12: TLabel;
CDS_Main: TClientDataSet;
CRType: TEdit;
Button1: TButton;
v3Column4: TcxGridDBColumn;
Label7: TLabel;
RMXLSExport1: TRMXLSExport;
RMDBMX: TRMDBDataSet;
RM1: TRMGridReport;
CDS_JuanPRT: TClientDataSet;
v3Column3: TcxGridDBColumn;
v3Column5: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BaoIDKeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
function YSData(Order_Main10: TClientDataSet): Boolean;
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
FCKOrdNo, FSMStr, JXFlag: string;
procedure TMPanDuan();
public
{ Public declarations }
end;
var
frmPBSHSMCK: TfrmPBSHSMCK;
implementation
uses
U_DataLink, U_RTFun, U_RTFun, MMSystem, U_FHSQListSel, U_PBKCListSel;
{$R *.dfm}
function TfrmPBSHSMCK.YSData(Order_Main10: TClientDataSet): Boolean;
var
CRID, YFID, PriceUnit, OrderUnit, FComTaiTou, FromSubID: string;
fprice, huilv: double;
begin
// Result:=False;
// fprice:=0;
// huilv:=0;
// PriceUnit:='RMB';
// with Order_Main10 do
// begin
// begin
// with ADOQueryTemp do
// begin
// Close;
// SQL.Clear;
// sql.Add('select *,fPrice=dbo.F_Get_Order_Price(MainID,subID) from JYOrder_Sub Where subID='''+Trim(Order_Main10.fieldbyname('subID').AsString)+'''');
// Open;
// end;
// IF not ADOQueryTemp.IsEmpty then
// begin
// PriceUnit:=Trim(ADOQueryTemp.fieldbyname('PriceUnit').AsString);
// OrderUnit:=Trim(ADOQueryTemp.fieldbyname('OrderUnit').AsString);
// fPrice:= ADOQueryTemp.fieldbyname('fPrice').AsFloat;
// huilv:= ADOQueryTemp.fieldbyname('huilv').AsFloat;
// end;
// IF huilv=0 then huilv:=1;
// CRID:='0';
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add(' select * from YF_Money_CR ');
// sql.Add(' where mainID='''+Trim(Order_Main10.fieldbyname('mainID').AsString)+'''');
// sql.Add(' and subID='''+Trim(Order_Main10.fieldbyname('subID').AsString)+'''');
// sql.Add(' and CRTime='''+FormatDateTime('yyyy-MM-dd',CRTime.Date)+'''') ;
// sql.Add(' and YFName=''销售金额'' ');
// Open;
// end;
// if ADOQueryTemp.IsEmpty then
// begin
// if GetLSNo(ADOQueryCmd,YFID,'CS','YF_Money_CR',3,1)=False then
// begin
// Application.MessageBox('取成品应收最大号失败!','提示',0);
// Exit;
// end;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from YF_Money_CR where 1<>1');
// Open;
// end;
// with ADOQueryCmd do
// begin
// Append;
// FieldByName('YFID').Value:=Trim(YFID);
// FieldByName('YFTypeId').Value:=Trim(Order_Main10.fieldbyname('mainID').AsString);
// FieldByName('CRID').Value:=StrToInt(CRID);
// FieldByName('Filler').Value:=Trim(DName);
// FieldByName('CRType').Value:='应收款登记';
// FieldByName('CRFlag').Value:='应收收';
// FieldByName('QtyFlag').Value:=1;
// FieldByName('FactoryName').Value:=Trim(TocustName.Text);
// FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CRTime.Date));
// FieldByName('YFType').Value:='自动生成';
// FieldByName('Price').Value:=fprice;
// FieldByName('HuiLv').Value:=huilv;
// FieldByName('BZType').Value:=Trim(PriceUnit);
// FieldByName('QtyUnit').Value:=Trim(OrderUnit);
// FieldByName('ComTaiTou').Value:=Trim(FComTaiTou);
// FieldByName('YFName').Value:='销售金额';
// FieldByName('MainId').Value:=Trim(Order_Main10.fieldbyname('Mainid').AsString);
// FieldByName('subID').Value:=Trim(Order_Main10.fieldbyname('subID').AsString);
// FieldByName('OrderNO').Value:=Trim(Order_Main10.fieldbyname('OrderNO').AsString);
// FieldByName('P_CodeName').Value:=Trim(Order_Main10.fieldbyname('MprtCodeName').AsString);
// FieldByName('P_Spec').Value:=Trim(Order_Main10.fieldbyname('MprtSpec').AsString);
// FieldByName('P_color').Value:=Trim(Order_Main10.fieldbyname('PRTColor').AsString);
// FieldByName('status').Value:='0';
// Post;
// end;
// end
// else
// begin
// YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString);
// end;
// IF uppercase(OrderUnit)='KG' then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(B.MJQty4),0) from CK_BanCP_CR A,WFB_MJJY B where A.MJID=B.MJID and A.MainID=YF_Money_CR.MainID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(',PS=(select isnull(count(A.mainID),0) from CK_BanCP_CR A where A.maiNID=YF_Money_CR.maiNID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end
// else
// IF (uppercase(OrderUnit)='Y') and (uppercase(Trim(Order_Main10.fieldbyname('QtyUnit').AsString))='M') then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update YF_Money_CR Set Qty=(select cast(isnull(Sum(A.Qty),0)/0.9144 as decimal(18,1)) from CK_BanCP_CR A where A.MainID=YF_Money_CR.MainID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(',PS=(select isnull(count(A.mainID),0) from CK_BanCP_CR A where A.maiNID=YF_Money_CR.maiNID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end
// else
// IF (uppercase(OrderUnit)='M') and (uppercase(Trim(Order_Main10.fieldbyname('QtyUnit').AsString))='Y') then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update YF_Money_CR Set Qty=(select cast(isnull(Sum(A.Qty),0)*0.9144 as decimal(18,1)) from CK_BanCP_CR A where A.MainID=YF_Money_CR.MainID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(',PS=(select isnull(count(A.mainID),0) from CK_BanCP_CR A where A.maiNID=YF_Money_CR.maiNID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end
// else
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(A.Qty),0) from CK_BanCP_CR A where A.MainID=YF_Money_CR.MainID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(',PS=(select isnull(count(A.mainID),0) from CK_BanCP_CR A where A.maiNID=YF_Money_CR.maiNID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from YF_Money_CR where YFId='''+Trim(YFID)+'''');
// Open;
// end;
// if ADOQueryTemp.FieldByName('Qty').Value=0 then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete from YF_Money_CR where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end;
// //Next;
// end;
// end;
// Result:=True;
end;
procedure TfrmPBSHSMCK.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmPBSHSMCK.FormDestroy(Sender: TObject);
begin
frmPBSHSMCK := nil;
end;
procedure TfrmPBSHSMCK.FormShow(Sender: TObject);
begin
BaoID.SetFocus;
ReadCxGrid('扫描出库', Tv3, '坯布仓库');
CRTime.DateTime := SGetServerDate(ADOQueryTemp);
end;
procedure TfrmPBSHSMCK.TMPanDuan();
begin
//判断扫描的是发货申请单，还是布匹条码 ，判断是否已经扫描过发货单 ，或者更改了发货单
JXFlag := '';
FSMStr := Trim(BaoID.Text);
if Copy(FSMStr, 1, 2) = 'SM' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from FHSQ_Main A inner join FHSQ_Sub B on A.FSID=B.FSID where A.FSID=''' + Trim(FSMStr) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
JXFlag := '999';
PlaySound('申请单不存在暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(FSMStr)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
JXFlag := '999';
PlaySound('wav\已对账暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
if Trim(CKOrdNo.Text) <> '' then
begin
FCKOrdNo := Trim(CKOrdNo.Text);
end;
CKOrdNo.Text := Trim(FSMStr);
if FSMStr <> FCKOrdNo then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select B.* ');
sql.Add(' from CK_PBCP_CR A');
sql.Add(' inner join WFB_MJJY_PB B on A.MJID=B.MJID');
sql.Add(' where A.CKOrdNO=''' + Trim(CKOrdNo.Text) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_MainSel);
SInitCDSData(ADOQueryTemp, CDS_MainSel);
if CDS_MainSel.IsEmpty = False then
Edit1.Text := IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2])
else
Edit1.Text := '0';
end;
BaoID.Text := '';
JXFlag := '888';
end
else
begin
if Trim(CKOrdNo.Text) = '' then
begin
JXFlag := '999';
PlaySound('wav\未扫描申请单暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from WFB_MJJY_PB A ');
sql.Add('where exists (select Y.SubId from FHSQ_Sub Y where Y.SubId=A.SubId and Y.FSId=' + quotedstr(Trim(CKOrdNo.Text)) + ')');
sql.Add('and A.MJID=' + quotedstr(Trim(FSMStr)));
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.APID from WFB_MJJY_PB A ');
sql.Add('where A.APID=' + quotedstr(Trim(FSMStr)));
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
JXFlag := '999';
PlaySound('wav\未检验暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end
else
begin
JXFlag := '999';
PlaySound('wav\条码错误暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
end
else
begin
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.CKOrdNo from CK_PBCP_CR A ');
sql.Add('where exists (select Y.SubId from FHSQ_Sub Y where Y.SubId=A.SubId and Y.FSId=' + quotedstr(Trim(CKOrdNo.Text)) + ')');
sql.Add(' and A.MJID=' + quotedstr(Trim(FSMStr)));
sql.Add(' and A.CRFlag=''出库'' ');
Open;
end;
if not ADOQueryTemp.IsEmpty then
begin
if Trim(ADOQueryTemp.fieldbyname('CKOrdNo').AsString) = Trim(CKOrdNo.Text) then
begin
JXFlag := '999';
PlaySound('wav\已扫描.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end
else
begin
JXFlag := '999';
PlaySound('wav\已出库暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.CKOrdNo from CK_PBCP_CR A ');
sql.Add('where exists (select Y.SubId from FHSQ_Sub Y where Y.SubId=A.SubId and Y.FSId=' + quotedstr(Trim(CKOrdNo.Text)) + ')');
sql.Add(' and A.MJID=' + quotedstr(Trim(FSMStr)));
sql.Add(' and A.CRFlag=''入库'' ');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
JXFlag := '999';
PlaySound('wav\未入库暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
if Trim(Edit1.Text) <> '' then
begin
if StrToInt(Edit1.Text) >= StrToInt(CKPSQty.Text) then
begin
JXFlag := '999';
PlaySound('wav\超出发货上限暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
end;
end;
//判断扫描的是发货申请单，还是布匹条码 ，判断是否已经扫描过发货单 ，或者更改了发货单 FHDate
end;
procedure TfrmPBSHSMCK.BaoIDKeyPress(Sender: TObject; var Key: Char);
var
maxno, SMFlag, KYCKFlag, FMainId: string;
FFQty: Integer;
begin
if Key = #13 then
begin
TMPanDuan();
if Trim(JXFlag) = '999' then
begin
BaoID.Text := '';
Exit;
end;
if Trim(JXFlag) = '888' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* ,KHName=CustomerNoName,CKPSQty=A.SQPSHZ ');
sql.Add(' from FHSQ_Main A');
sql.Add(' where FSId=''' + Trim(CKOrdNo.Text) + ''' ');
Open;
end;
SCSHData(ADOQueryTemp, Panel2, 2);
Exit;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add(' select A.*,B.CRID ');
sql.Add(' from WFB_MJJY_PB A');
sql.Add(' inner join CK_PBCP_CR B on A.MJID=B.MJID and B.CRFlag=''入库'' ');
sql.Add(' where A. MJID=''' + Trim(BaoID.Text) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_Main);
SInitCDSData(ADOQueryTemp, CDS_Main);
try
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_PBCp_KC where MJID=''' + Trim(BaoID.Text) + '''');
sql.Add(' and KCKGQty>0');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
KYCKFlag := '不能出库';
end
else
begin
KYCKFlag := '能出库';
end;
if Trim(KYCKFlag) = '能出库' then
begin
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_Do_PBCK @CRFlag=''直接出库'', @CKOrdNo=' + quotedstr(trim(CKOrdNo.Text)) + ', @MJID=' + quotedstr(trim(CDS_Main.fieldbyname('MJID').asstring)) + ', @DName=' + quotedstr(trim(DName)));
ExecSQL;
end;
FMainId := Trim(CDS_Main.fieldbyname('MainID').AsString);
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_Do_FHSQ ''' + Trim(CKOrdNo.Text) + '''');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
with CDS_MainSel do
begin
Append;
FieldByName('Mainid').Value := Self.CDS_Main.fieldbyname('Mainid').Value;
FieldByName('SubID').Value := Self.CDS_Main.fieldbyname('SubID').Value;
FieldByName('MJMaoZ').Value := Self.CDS_Main.fieldbyname('MJMaoZ').Value;
FieldByName('MJId').Value := Self.CDS_Main.fieldbyname('MJId').Value;
FieldByName('APXH').Value := Self.CDS_Main.fieldbyname('APXH').Value;
FieldByName('CarNo').Value := Self.CDS_Main.fieldbyname('CarNo').Value;
FieldByName('APBatchNo').Value := Self.CDS_Main.fieldbyname('APBatchNo').Value;
Post;
end;
if CDS_MainSel.IsEmpty = False then
Edit1.Text := IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2])
else
Edit1.Text := '0';
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select COUNT(*) fhjs from CK_PBCP_CR where CKOrdNo= ''' + Trim(CKOrdNo.Text) + '''');
Open;
end;
if StrToInt(Edit1.Text) <> ADOQueryTemp.FieldByName('fhjs').AsInteger then
begin
PlaySound('数据保存失败暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Application.MessageBox('出库异常,请重新选择申请单！', '提示', 0);
end;
BaoID.Text := '';
PlaySound('正确.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
except
BaoID.Text := '';
PlaySound('数据保存失败暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('出库异常！', '提示', 0);
end;
end;
end;
procedure TfrmPBSHSMCK.Button2Click(Sender: TObject);
begin
Close;
WriteCxGrid('扫描出库', Tv3, '坯布仓库');
end;
procedure TfrmPBSHSMCK.Button1Click(Sender: TObject);
var
MKey: Char;
begin
MKey := #13;
try
frmPBKCListSel := TfrmPBKCListSel.Create(Application);
with frmPBKCListSel do
begin
FCKOrdNo := trim(CKOrdNo.text);
if ShowModal = 1 then
begin
with frmPBKCListSel.CDS_Main do
begin
First;
while not Eof do
begin
if Fieldbyname('ssel').AsBoolean then
begin
BaoID.Text := Trim(Fieldbyname('MJID').AsString);
BaoIDKeyPress(BaoID, MKey);
Sleep(200);
end;
Next;
end;
end;
end;
end;
finally
frmPBKCListSel.Free;
end;
end;
procedure TfrmPBSHSMCK.Button3Click(Sender: TObject);
var
fPrintFile: string;
begin
if Trim(CKOrdNo.Text) = '' then
EXIT;
ExportFtErpFile(trim(ComboBox1.Text) + '.rmf', ADOQueryTemp);
if ComboBox1.Text = '普通码单' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDZZ1 ' + quotedstr(Trim(CKOrdNo.Text)));
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_JuanPRT);
SInitCDSData(ADOQueryTemp, CDS_JuanPRT);
end;
if trim(ComboBox1.Text) = '普通机台码单' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDZZ2 ' + quotedstr(Trim(CKOrdNo.Text)));
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_JuanPRT);
SInitCDSData(ADOQueryTemp, CDS_JuanPRT);
end;
if ComboBox1.Text = '单页机台码单' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_CKMDZZ3 ' + quotedstr(Trim(CKOrdNo.Text)));
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_JuanPRT);
SInitCDSData(ADOQueryTemp, CDS_JuanPRT);
end;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ComboBox1.Text) + '.rmf';
if FileExists(fPrintFile) then
begin
// RMVariables['OrdNo'] := Trim(CDS_Main.fieldbyname('OrdNo').AsString)；
RM1.DefaultCopies := 2;
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
end;
end;
end.

648
发货申请(ShipmentRequest.dll)/U_ProductOrderListSel.dfm Normal file
View File

@ -0,0 +1,648 @@
inherited frmProductOrderListSel: TfrmProductOrderListSel
Left = 183
Top = 23
Caption = #29983#20135#25351#31034#21333
ClientHeight = 750
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
Position = poScreenCenter
WindowState = wsMaximized
OnClose = FormClose
ExplicitWidth = 1556
ExplicitHeight = 789
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = TBFindClick
end
object btn1: TToolButton
Left = 142
Top = 0
Caption = #36873#25321
ImageIndex = 12
OnClick = btn1Click
end
object TBClose: TToolButton
Left = 217
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Width = 1540
Height = 64
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = 16242829
ParentBackground = False
TabOrder = 1
object Label1: TLabel
Left = 519
Top = 15
Width = 52
Height = 12
Caption = #21046#21333#26085#26399
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label3: TLabel
Left = 28
Top = 16
Width = 39
Height = 12
Caption = #35745#21010#21333
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 162
Top = 42
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 28
Top = 42
Width = 39
Height = 12
Caption = #21512#21516#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 162
Top = 16
Width = 52
Height = 12
Caption = #20135#21697#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 613
Top = 119
Width = 26
Height = 12
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 572
Top = 11
Width = 85
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
TabOrder = 0
Visible = False
end
object EndDate: TDateTimePicker
Left = 571
Top = 38
Width = 86
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009100
TabOrder = 3
Visible = False
end
object OrderNoM: TEdit
Tag = 2
Left = 69
Top = 12
Width = 77
Height = 20
TabOrder = 1
OnChange = OrderNoMChange
end
object P_CodeName: TEdit
Tag = 2
Left = 217
Top = 38
Width = 80
Height = 20
TabOrder = 2
OnChange = OrderNoMChange
end
object ConNo: TEdit
Tag = 2
Left = 69
Top = 38
Width = 77
Height = 20
TabOrder = 4
OnChange = OrderNoMChange
end
object P_Code: TEdit
Tag = 2
Left = 217
Top = 12
Width = 80
Height = 20
TabOrder = 5
OnChange = OrderNoMChange
end
object MPRTKZ: TEdit
Tag = 2
Left = 654
Top = 99
Width = 56
Height = 20
TabOrder = 6
OnChange = OrderNoMChange
end
end
object Panel2: TPanel [2]
Left = 0
Top = 102
Width = 1540
Height = 30
Align = alTop
BevelOuter = bvNone
TabOrder = 2
object Panel6: TPanel
Left = 0
Top = 0
Width = 1540
Height = 30
Align = alClient
AutoSize = True
BevelOuter = bvNone
BorderStyle = bsSingle
TabOrder = 0
DesignSize = (
1536
26)
object Label7: TLabel
Left = 64
Top = 7
Width = 78
Height = 12
Hint = '1'
Caption = #27599#39029#35760#24405#26465#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object LBCPAP: TLabel
Left = 654
Top = 7
Width = 85
Height = 12
Alignment = taCenter
Anchors = [akLeft, akTop, akBottom]
AutoSize = False
Caption = #24403#21069#39029'/'#24635#39029#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Layout = tlCenter
end
object BTLP: TButton
Left = 556
Top = 3
Width = 78
Height = 22
Caption = #19978#19968#39029
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = BTLPClick
end
object BTNP: TButton
Left = 756
Top = 3
Width = 78
Height = 22
Caption = #19979#19968#39029
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = BTNPClick
end
object TCBNOR: TComboBox
Tag = 2
Left = 149
Top = 3
Width = 78
Height = 20
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemIndex = 0
ParentFont = False
TabOrder = 2
Text = '500'
OnChange = TCBNORChange
Items.Strings = (
'500'
'1000'
'5000'
'10000')
end
end
end
object cxGrid1: TcxGrid [3]
Left = 0
Top = 132
Width = 1540
Height = 618
Align = alClient
BorderStyle = cxcbsNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = cxGridDBColumn13
end
item
Kind = skSum
end
item
Kind = skCount
end
item
Kind = skSum
Column = cxGridDBColumn16
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn14
end
item
Kind = skSum
Column = cxGridDBColumn15
end
item
Kind = skSum
Column = cxGridDBColumn19
end
item
Format = #26816#39564#31995#25968'=#.##'
Kind = skAverage
end
item
Format = #25442#31639#31995#25968'=#.##'
Kind = skAverage
end
item
Kind = skCount
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn40
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.MultiSelect = True
OptionsSelection.CheckBoxVisibility = [cbvDataRow, cbvColumnHeader]
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
OptionsView.IndicatorWidth = 25
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
Styles.Footer = DataLink_ShipmentRequest.Default
Styles.Header = DataLink_ShipmentRequest.Default
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
object TV1Column1: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 61
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'conNO'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 89
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 86
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'P_Code'
HeaderAlignmentHorz = taCenter
Width = 65
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #20013#25991#21517#31216
DataBinding.FieldName = 'P_CodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
end
object cxGridDBColumn27: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'P_MF'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 51
end
object cxGridDBColumn28: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'P_KZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 56
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 73
end
object cxGridDBColumn37: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'P_KuanNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 67
end
object cxGridDBColumn41: TcxGridDBColumn
Caption = #33457#21495
DataBinding.FieldName = 'PRTHX'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 58
end
object cxGridDBColumn31: TcxGridDBColumn
Caption = #32568#26465#30721
DataBinding.FieldName = 'APID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'GangNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 59
end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'JYGW'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 54
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'JYTare'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 59
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'JYNW'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 53
end
object cxGridDBColumn16: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'JYLen'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 56
end
object cxGridDBColumn18: TcxGridDBColumn
Caption = #22238#20462
DataBinding.FieldName = 'HXFlag'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 48
end
object cxGridDBColumn19: TcxGridDBColumn
Caption = #25187#20998
DataBinding.FieldName = 'KouFenQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 50
end
object cxGridDBColumn20: TcxGridDBColumn
Caption = #21028#23450
DataBinding.FieldName = 'PanDing'
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
VisibleForCustomization = False
Width = 61
end
object cxGridDBColumn40: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'MJYLen'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object cxGridDBColumn21: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'JYType'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 57
end
object TV1Column2: TcxGridDBColumn
Caption = #23458#25143#21517
DataBinding.FieldName = 'Buyername'
HeaderAlignmentHorz = taCenter
Width = 67
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Left = 241
Top = 376
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Left = 129
Top = 377
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 284
Top = 292
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 604
Top = 200
end
object ADOQueryMain: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 604
Top = 228
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 448
Top = 288
end
object DataSource1: TDataSource
DataSet = Order_Main
Left = 236
Top = 296
end
object Order_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 184
Top = 288
end
object PopupMenu1: TPopupMenu
Left = 603
Top = 173
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
end

272
发货申请(ShipmentRequest.dll)/U_ProductOrderListSel.pas Normal file
View File

@ -0,0 +1,272 @@
unit U_ProductOrderListSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ShellAPI, cxCheckBox, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, math, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
U_BaseHelp, dxBarBuiltInMenu, System.ImageList, Vcl.ImgList;
type
TfrmProductOrderListSel = class(TfrmBaseHelp)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Label1: TLabel;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
OrderNoM: TEdit;
Order_Main: TClientDataSet;
Label8: TLabel;
P_CodeName: TEdit;
Label9: TLabel;
ConNo: TEdit;
Label11: TLabel;
P_Code: TEdit;
Label12: TLabel;
MPRTKZ: TEdit;
btn1: TToolButton;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Panel2: TPanel;
Panel6: TPanel;
Label7: TLabel;
LBCPAP: TLabel;
BTLP: TButton;
BTNP: TButton;
TCBNOR: TComboBox;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn27: TcxGridDBColumn;
cxGridDBColumn28: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn37: TcxGridDBColumn;
cxGridDBColumn41: TcxGridDBColumn;
cxGridDBColumn31: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn40: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure OrderNoMChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure BTNPClick(Sender: TObject);
procedure BTLPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject);
private
CurrentPage, RecordsNumber: Integer;
DQdate: TDateTime;
procedure InitGrid();
procedure InitForm();
{ Private declarations }
public
{ Public declarations }
end;
var
frmProductOrderListSel: TfrmProductOrderListSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmProductOrderListSel.FormDestroy(Sender: TObject);
begin
inherited;
frmProductOrderListSel := nil;
end;
procedure TfrmProductOrderListSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmProductOrderListSel.FormCreate(Sender: TObject);
begin
inherited;
cxgrid1.Align := alClient;
DQdate := SGetServerDate(ADOQueryTemp);
end;
procedure TfrmProductOrderListSel.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('指示单列表选择ZY', Tv1, '生产指示单管理');
end;
procedure TfrmProductOrderListSel.InitGrid();
var
WSql: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
if trim(WSql) <> '' then
WSql := ' where ' + WSql;
try
// fwhere := ' where OrdDate>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
// fwhere := fwhere + ' and OrdDate<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add('exec P_Ord_Get_CPKC ');
sql.Add(' @pageIndex=' + inttostr(CurrentPage));
sql.Add(',@pageSize=' + inttostr(RecordsNumber));
sql.Add(',@criteria= ' + quotedstr(WSql));
// ShowMessage(sql.Text);
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber));
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmProductOrderListSel.InitForm();
begin
ReadCxGrid('指示单列表选择ZY', Tv1, '生产指示单管理');
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 90;
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
end;
procedure TfrmProductOrderListSel.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmProductOrderListSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmProductOrderListSel.OrderNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
end;
procedure TfrmProductOrderListSel.FormShow(Sender: TObject);
begin
inherited;
CurrentPage := 1;
RecordsNumber := 500;
InitForm();
TBRafresh.Click;
end;
procedure TfrmProductOrderListSel.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmProductOrderListSel.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmProductOrderListSel.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmProductOrderListSel.btn1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
Exit;
ModalResult := 1;
end;
procedure TfrmProductOrderListSel.N1Click(Sender: TObject);
begin
SelOKNo(Order_Main, True);
end;
procedure TfrmProductOrderListSel.N2Click(Sender: TObject);
begin
SelOKNo(Order_Main, False);
end;
procedure TfrmProductOrderListSel.BTNPClick(Sender: TObject);
begin
if CurrentPage < Order_Main.FieldByName('TotalCount').AsInteger / RecordsNumber then
CurrentPage := CurrentPage + 1;
InitGrid();
end;
procedure TfrmProductOrderListSel.BTLPClick(Sender: TObject);
begin
if CurrentPage > 1 then
CurrentPage := CurrentPage - 1;
InitGrid();
end;
procedure TfrmProductOrderListSel.TCBNORChange(Sender: TObject);
begin
RecordsNumber := StrToInt(TCBNOR.Text);
CurrentPage := 1;
InitGrid();
end;
end.

1017
发货申请(ShipmentRequest.dll)/U_ProductOrderListSel2.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

441
发货申请(ShipmentRequest.dll)/U_ProductOrderListSel2.pas Normal file
View File

@ -0,0 +1,441 @@
unit U_ProductOrderListSel2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxContainer, cxImage,
cxDBEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxTextEdit,
dxSkinWXI, dxScrollbarAnnotations;
type
TfrmProductOrderListSel2 = class(TForm)
ToolBar1: TToolBar;
TBClose: TToolButton;
Panel1: TPanel;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
OrderNo: TEdit;
v1OrderNo: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn;
v1MPRTSpec: TcxGridDBColumn;
Order_Main: TClientDataSet;
RM1: TRMGridReport;
RMDBMain: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
v1MPRTCodeName: TcxGridDBColumn;
v1MPRTMF: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N2: TMenuItem;
v1MPRTKZ: TcxGridDBColumn;
v1OrdDefStr1: TcxGridDBColumn;
ADOQueryPrint: TADOQuery;
CDS_Print: TClientDataSet;
ToolButton3: TToolButton;
v1Column1: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
Label1: TLabel;
MPRTCodeName: TEdit;
PRTColor: TEdit;
Label2: TLabel;
PRTColorNo: TEdit;
Label4: TLabel;
PRTHX: TEdit;
Label5: TLabel;
Panel2: TPanel;
Picture4: TcxDBImage;
ADOQueryImage: TADOQuery;
DSImage: TDataSource;
v1Column4: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
PopupMenu2: TPopupMenu;
N1: TMenuItem;
MenuItem1: TMenuItem;
v1Column10: TcxGridDBColumn;
Label7: TLabel;
MPRTCode: TEdit;
Tv1Column1: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Label6: TLabel;
ConNo: TEdit;
Tv1Column11: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
ORDER_SUB: TClientDataSet;
DataSource2: TDataSource;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn41: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridDBColumn40: TcxGridDBColumn;
cxGridDBColumn21: TcxGridDBColumn;
cxGridDBColumn32: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV2Column1: TcxGridDBColumn;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
TV2Column4: TcxGridDBColumn;
TV2Column5: TcxGridDBColumn;
TV2Column6: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
TV2Column7: TcxGridDBColumn;
hwwcstatus: TComboBox;
Label8: TLabel;
PopupMenu3: TPopupMenu;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
CheckBox1: TCheckBox;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure N1Click(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure TV2Column4PropertiesEditValueChanged(Sender: TObject);
procedure hwwcstatusChange(Sender: TObject);
procedure MenuItem3Click(Sender: TObject);
procedure FormClick(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
private
DQdate: TDateTime;
procedure InitGrid();
procedure Initsub();
procedure InitForm();
procedure InitImage(fsubID: string);
{ Private declarations }
public
FFInt, FCloth: Integer;
FTPID: string;
canshu2: string;
{ Public declarations }
end;
var
frmProductOrderListSel2: TfrmProductOrderListSel2;
implementation
uses
U_DataLink, U_RTFun, U_ProductOrderListSel;
{$R *.dfm}
procedure TfrmProductOrderListSel2.InitImage(fsubID: string);
begin
ADOQueryImage.close;
// IF fwbid='' then exit;
with ADOQueryImage do
begin
close;
sql.Clear;
sql.Add('select * from TP_File A');
sql.Add('inner join JYOrder_Sub B on B.HXFile=A.WBID');
sql.Add('where B.SubID=' + quotedstr(trim(fsubID)));
open;
end;
end;
procedure TfrmProductOrderListSel2.FormDestroy(Sender: TObject);
begin
inherited;
frmProductOrderListSel2 := nil;
end;
procedure TfrmProductOrderListSel2.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmProductOrderListSel2.FormClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmProductOrderListSel2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmProductOrderListSel2.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('指示单列表选择99', Tv1, '生产指示单管理');
WriteCxGrid('指示单列表选择77', Tv2, '生产指示单管理');
Close;
end;
procedure TfrmProductOrderListSel2.InitGrid();
var
FWSql: string;
begin
FWSql := SGetFilters(Panel1, 1, 2);
if FWSql <> '' then
FWSql := ' and ' + FWSql;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close; // and isnull(b.p_hx,'''')<>''''
sql.Clear;
sql.Add('select A.*,DJQTY=(SELECT SUM(isnull(QTY,0))FROM CK_SXPB_CR B WHERE B.CRFlaG=''入库'' and b.ordsubidrk=a.subid ) ');
SQL.Add(',DJBPS=(SELECT SUM(PIQTY)FROM CK_SXPB_CR B WHERE B.CRFlaG=''入库'' and b.ordsubidrk=a.subid )');
sql.Add(',buyname=(SELECT X.buyname FROM SalesContract_Main X where X.ConNo=A.ConNo ) ');
if CheckBox1.Checked then
begin
sql.Add(',hzlfs=( SELECT SUM(isnull(lfs,0)) FROM (SELECT (COUNT(DISTINCT BAOID)*isnull(xg,0))lfs,b.ORDERNO FROM V_Cloth_CP_KC b ');
SQL.Add(' left join ORDER_XG c on b.ORDERNO=c.orderno WHERE B.ORDERNO=A.ORDERNO');
sql.Add(' GROUP BY b.ORDERNO,xg) AA ) ');
sql.Add(',hzzl=( SELECT SUM(isnull(ZL,0)) FROM (SELECT (COUNT(DISTINCT BAOID)*isnull(dbzl,0))zl,b.ORDERNO FROM V_Cloth_CP_KC b ');
SQL.Add(' left join ORDER_XG c on b.ORDERNO=c.orderno WHERE B.ORDERNO=A.ORDERNO ');
sql.Add(' GROUP BY b.ORDERNO,dbzl) AA ) ');
end
else
begin
sql.Add(',hzlfs=( SELECT SUM(isnull(lfs,0)) FROM (SELECT (COUNT(DISTINCT BAOID)*isnull(xg,0))lfs,b.ORDERNO FROM V_Cloth_CP_KC b ');
SQL.Add(' left join ORDER_XG c on b.ORDERNO=c.orderno and b.p_hx=c.p_hx WHERE B.ORDERNO=A.ORDERNO');
sql.Add(' GROUP BY b.P_HX,b.ORDERNO,xg) AA ) ');
sql.Add(',hzzl=( SELECT SUM(isnull(ZL,0)) FROM (SELECT (COUNT(DISTINCT BAOID)*isnull(dbzl,0))zl,b.ORDERNO FROM V_Cloth_CP_KC b ');
SQL.Add(' left join ORDER_XG c on b.ORDERNO=c.orderno and b.p_hx=c.p_hx WHERE B.ORDERNO=A.ORDERNO ');
sql.Add(' GROUP BY b.P_HX,b.ORDERNO,dbzl) AA ) ');
end;
sql.Add(',ZBS=(SELECT COUNT(DISTINCT BAOID) FROM V_Cloth_CP_KC B WHERE b.SUBID=a.subid ) ');
sql.add('from V_Ord_MSJ A ');
sql.add('where 1=1 AND FHSTATUS<>''已发''');
sql.Add('AND ISNULL(DANWEI,''内'')=' + quotedstr(canshu2));
if Trim(FWSql) <> '' then
sql.Add(FWSql);
SQL.Add('ORDER BY FILLTIME DESC');
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmProductOrderListSel2.InitSUB();
begin
try
ADOQueryCmd.DisableControls;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select A.P_HX,jytype,LIFANGQTY=((SELECT TOP 1 XG FROM ORDER_XG D WHERE D.P_HX=A.P_HX AND D.ORDERNO=A.ORDERNO)*(select count (DISTINCT BAOID) from V_Cloth_CP_KC b where b.orderno=a.orderno and b.p_hx=a.P_HX ');
SQL.Add(' AND a.jytype=b.JYType AND ISNULL(BAOID,'''')<>'''')), ');
SQL.ADD('ORDERNO,SQBS=0,BS=(select count (DISTINCT BAOID) from V_Cloth_CP_KC b where b.orderno=a.orderno and b.p_hx=a.P_HX and a.jytype=b.JYType AND ISNULL(BAOID,'''')<>''''),XG=(SELECT TOP 1 XG FROM ORDER_XG D WHERE D.P_HX=A.P_HX AND D.ORDERNO=A.ORDERNO ) ');
SQL.Add(',DBZL=(SELECT TOP 1 DBZL FROM ORDER_XG D WHERE D.P_HX=A.P_HX AND D.ORDERNO=A.ORDERNO)');
SQL.Add(',ZZL=(SELECT TOP 1 DBZL FROM ORDER_XG D WHERE D.P_HX=A.P_HX AND D.ORDERNO=A.ORDERNO)*COUNT(DISTINCT BAOID)');
sql.Add(' ,count(JYID)PS,sum(A.JYGW) JYGW, sum(A.JYTare) JYTare, sum(A.JYNW) JYNW,sum(A.JYLen) JYLen, sum(A.JYYLen) JYYLen ');
sql.Add('from V_Cloth_CP_KC A ');
sql.Add('where mainid= ' + QuotedStr(Trim(Order_main.fieldbyname('mainid').AsString)));
sql.Add('group by A.P_HX,jytype,ORDERNO');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryCmd, Order_SUB);
SInitCDSData(ADOQueryCmd, Order_SUB);
finally
ADOQueryCmd.EnableControls;
end;
end;
procedure TfrmProductOrderListSel2.InitForm();
begin
ReadCxGrid('指示单列表选择99', Tv1, '生产指示单管理');
ReadCxGrid('指示单列表选择77', Tv2, '生产指示单管理');
InitGrid();
// try
// ADOQueryMain.DisableControls;
// with ADOQueryMain do
// begin
// Filtered := False;
// Close;
// sql.Clear;
// sql.Add('select A.* ');
// sql.Add(',buyname=(SELECT X.buyname FROM SalesContract_Main X where X.ConNo=A.ConNo ) ');
// sql.add('from V_Ord_MSJ A ');
// sql.add(' where DATEDIFF(dd,OrdDate,getdate())<60 ');
// if Trim(FTPID) <> '' then
// sql.add(' where A.TPID= ' + QuotedStr(FTPID));
// Open;
// end;
// SCreateCDS(ADOQueryMain, Order_Main);
// SInitCDSData(ADOQueryMain, Order_Main);
// finally
// ADOQueryMain.EnableControls;
// end;
end;
procedure TfrmProductOrderListSel2.FormShow(Sender: TObject);
begin
inherited;
InitForm();
end;
procedure TfrmProductOrderListSel2.hwwcstatusChange(Sender: TObject);
begin
initgrid();
end;
procedure TfrmProductOrderListSel2.ToolButton3Click(Sender: TObject);
begin
// if Order_sub.IsEmpty then
// exit;
ModalResult := 1;
end;
procedure TfrmProductOrderListSel2.Tv1DblClick(Sender: TObject);
begin
ToolButton3.Click;
end;
procedure TfrmProductOrderListSel2.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
if Order_Main.IsEmpty = TRUE then
EXIT;
InitSUB();
end;
procedure TfrmProductOrderListSel2.TV2Column4PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
FSQPrice, Fsqqty, FSQMoney: Double;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
with Order_Sub do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
FSQPrice := FieldByName('XG').AsFloat;
Fsqqty := FieldByName('SQBS').AsFloat;
end;
FSQMoney := FSQPrice * Fsqqty;
with Order_Sub do
begin
Edit;
FieldByName('LIFANGQTY').Value := FSQMoney;
Post;
end;
tv2.Controller.EditingController.ShowEdit();
end;
procedure TfrmProductOrderListSel2.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
ADOQueryImage.Close;
if Order_Main.IsEmpty then
exit;
InitImage(Order_Main.fieldbyname('subID').AsString);
end;
procedure TfrmProductOrderListSel2.N1Click(Sender: TObject);
begin
if Order_SUB.IsEmpty then
Exit;
Order_SUB.DisableControls;
with Order_SUB do
begin
First;
while not Eof do
begin
Edit;
FieldByName('SSel').Value := True;
Post;
Next;
end;
end;
Order_SUB.EnableControls;
end;
procedure TfrmProductOrderListSel2.OrderNoKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmProductOrderListSel2.MenuItem1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
Order_Main.DisableControls;
with Order_Main do
begin
First;
while not Eof do
begin
Edit;
FieldByName('SSel').Value := false;
Post;
Next;
end;
end;
Order_Main.EnableControls;
end;
procedure TfrmProductOrderListSel2.MenuItem3Click(Sender: TObject);
begin
selOKNoFiler(TV2, False);
end;
end.

36
发货申请(ShipmentRequest.dll)/U_SLT.dfm Normal file
View File

@ -0,0 +1,36 @@
object frmSLT: TfrmSLT
Left = 0
Top = 0
Width = 161
Height = 138
TabOrder = 0
object Panel1: TPanel
Left = 0
Top = 121
Width = 161
Height = 17
Align = alClient
BevelOuter = bvNone
Caption = 'Panel1'
Color = clWindow
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
end
object cxImage1: TcxImage
Left = 0
Top = 0
Align = alTop
Style.BorderStyle = ebsOffice11
StyleHot.TextStyle = []
TabOrder = 1
OnClick = cxImage1Click
OnDblClick = cxImage1DblClick
Height = 121
Width = 161
end
end

84
发货申请(ShipmentRequest.dll)/U_SLT.pas Normal file
View File

@ -0,0 +1,84 @@
unit U_SLT;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls,jpeg, cxControls, cxContainer, cxEdit, cxImage,IdFTP,ShellAPI;
type
TfrmSLT = class(TFrame)
cxImage1: TcxImage;
Panel1: TPanel;
procedure cxImage1Click(Sender: TObject);
procedure cxImage1DblClick(Sender: TObject);
private
CYID,FileName:string;
// procedure Sharpen(SrcBmp:TBitmap);
{ Private declarations }
public
procedure Init(fCYID:string;fFileName:string;fPicture:TJpegImage);
{ Public declarations }
end;
implementation
uses
U_DataLink;
{$R *.dfm}
procedure TfrmSLT.Init(fCYID:string;fFileName:string;fPicture:TJpegImage);
begin
CYID:=trim(fCYID);
FileName:=trim(fFileName);
Panel1.Caption:=FileName;
cxImage1.Picture.Assign(fPicture);
end;
procedure TfrmSLT.cxImage1Click(Sender: TObject);
begin
// Fsplcode:=splcode;
// FPatFile:=patfile;
/// frmSample_List.Fsplcode:=splcode;
/// frmSample_List.FPatFile:=patfile;
// showmessage(splcode);
end;
procedure TfrmSLT.cxImage1DblClick(Sender: TObject);
var
IdFTP1: TIdFTP;
FPath,FFName:string;
FInt:integer;
begin
try
IdFTP1:=TIdFTP.Create(self);
IdFTP1.Host :=PicSvr;
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
IdFTP1.Quit;
IdFTP1.Free;
Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
Exit;
end;
FPath:='D:\Right1209\';
if not DirectoryExists(ExtractFileDir(FPath)) then
CreateDir(ExtractFileDir(FPath));
FFName:=Trim(FileName);
FFName:=FPath+FFName;
if FileExists(FFName) then
begin
FInt:=1;
end;
if FInt<>1 then
IdFTP1.Get('YP\'+FileName,FFName);
if IdFTP1.Connected then
begin
IdFTP1.Quit;
IdFTP1.Free;
end;
ShellExecute(Handle, 'open',PChar(FFName),'', '', SW_SHOWNORMAL);
end;
end.

293
发货申请(ShipmentRequest.dll)/U_SMPK.dfm Normal file
View File

@ -0,0 +1,293 @@
object frmSMPK: TfrmSMPK
Left = 322
Top = 47
Width = 1109
Height = 648
Caption = #25195#25551#30424#24211
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object cxGrid3: TcxGrid
Left = 505
Top = 0
Width = 588
Height = 610
Align = alClient
TabOrder = 1
object Tv3: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DS_MainSel
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #21367#25968#37327#65306'#'
Kind = skCount
Column = cxGridDBColumn1
end
item
Kind = skSum
Column = v3Column1
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = cxStyle1
Styles.Inactive = cxStyle1
Styles.IncSearch = cxStyle1
Styles.Header = cxStyle1
object cxGridDBColumn1: TcxGridDBColumn
Caption = #26426#21488
DataBinding.FieldName = 'CarNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object v3Column3: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'KuWei'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 131
end
object v3Column2: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'MJID'
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 210
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'APXH'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object v3Column1: TcxGridDBColumn
Caption = #20844#26020#25968
DataBinding.FieldName = 'MJMaoZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v3Column4: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'APBatchNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 119
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv3
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 505
Height = 610
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label5: TLabel
Left = 142
Top = 14
Width = 194
Height = 97
Caption = #24211#20301
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -96
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 25
Top = 312
Width = 33
Height = 66
Caption = #25195#13#10#25551
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object KuWei: TEdit
Left = 61
Top = 132
Width = 409
Height = 72
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -64
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 0
end
object BaoID: TEdit
Left = 61
Top = 309
Width = 411
Height = 72
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -64
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 2
OnKeyPress = BaoIDKeyPress
end
object Button2: TButton
Left = 189
Top = 424
Width = 100
Height = 76
Caption = #20851#38381
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = Button2Click
end
object CRType: TEdit
Tag = 2
Left = 512
Top = 239
Width = 154
Height = 28
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ParentFont = False
ReadOnly = True
TabOrder = 1
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 752
Top = 336
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 720
Top = 336
end
object DS_MainSel: TDataSource
DataSet = CDS_MainSel
Left = 616
Top = 336
end
object CDS_MainSel: TClientDataSet
Aggregates = <>
Params = <>
Left = 648
Top = 336
end
object cxGridPopupMenu4: TcxGridPopupMenu
Grid = cxGrid3
PopupMenus = <>
Left = 680
Top = 336
end
object cxStyleRepository1: TcxStyleRepository
Left = 792
Top = 336
object cxStyle1: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 640
Top = 408
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 100
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 612
Top = 244
end
object RMDBMX: TRMDBDataSet
Visible = True
DataSet = CDS_JuanPRT
Left = 688
Top = 244
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBMX
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 728
Top = 244
ReportData = {}
end
object CDS_JuanPRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 652
Top = 244
end
end

345
发货申请(ShipmentRequest.dll)/U_SMPK.pas Normal file
View File

@ -0,0 +1,345 @@
unit U_SMPK;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit,
RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, RM_e_Xls;
type
TfrmSMPK = class(TForm)
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_MainSel: TDataSource;
CDS_MainSel: TClientDataSet;
cxGridPopupMenu4: TcxGridPopupMenu;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
v3Column1: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
v3Column2: TcxGridDBColumn;
Panel2: TPanel;
Label5: TLabel;
KuWei: TEdit;
BaoID: TEdit;
Button2: TButton;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
Label12: TLabel;
CDS_Main: TClientDataSet;
CRType: TEdit;
v3Column4: TcxGridDBColumn;
RMXLSExport1: TRMXLSExport;
RMDBMX: TRMDBDataSet;
RM1: TRMGridReport;
CDS_JuanPRT: TClientDataSet;
v3Column3: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BaoIDKeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
function YSData(Order_Main10: TClientDataSet): Boolean;
private
{ Private declarations }
FCKOrdNo, FSMStr, JXFlag: string;
public
{ Public declarations }
end;
var
frmSMPK: TfrmSMPK;
implementation
uses
U_DataLink, U_RTFun, MMSystem, U_FHSQListSel;
{$R *.dfm}
function TfrmSMPK.YSData(Order_Main10: TClientDataSet): Boolean;
var
CRID, YFID, PriceUnit, OrderUnit, FComTaiTou, FromSubID: string;
fprice, huilv: double;
begin
// Result:=False;
// fprice:=0;
// huilv:=0;
// PriceUnit:='RMB';
// with Order_Main10 do
// begin
// begin
// with ADOQueryTemp do
// begin
// Close;
// SQL.Clear;
// sql.Add('select *,fPrice=dbo.F_Get_Order_Price(MainID,subID) from JYOrder_Sub Where subID='''+Trim(Order_Main10.fieldbyname('subID').AsString)+'''');
// Open;
// end;
// IF not ADOQueryTemp.IsEmpty then
// begin
// PriceUnit:=Trim(ADOQueryTemp.fieldbyname('PriceUnit').AsString);
// OrderUnit:=Trim(ADOQueryTemp.fieldbyname('OrderUnit').AsString);
// fPrice:= ADOQueryTemp.fieldbyname('fPrice').AsFloat;
// huilv:= ADOQueryTemp.fieldbyname('huilv').AsFloat;
// end;
// IF huilv=0 then huilv:=1;
// CRID:='0';
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add(' select * from YF_Money_CR ');
// sql.Add(' where mainID='''+Trim(Order_Main10.fieldbyname('mainID').AsString)+'''');
// sql.Add(' and subID='''+Trim(Order_Main10.fieldbyname('subID').AsString)+'''');
// sql.Add(' and CRTime='''+FormatDateTime('yyyy-MM-dd',CRTime.Date)+'''') ;
// sql.Add(' and YFName=''销售金额'' ');
// Open;
// end;
// if ADOQueryTemp.IsEmpty then
// begin
// if GetLSNo(ADOQueryCmd,YFID,'CS','YF_Money_CR',3,1)=False then
// begin
// Application.MessageBox('取成品应收最大号失败!','提示',0);
// Exit;
// end;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from YF_Money_CR where 1<>1');
// Open;
// end;
// with ADOQueryCmd do
// begin
// Append;
// FieldByName('YFID').Value:=Trim(YFID);
// FieldByName('YFTypeId').Value:=Trim(Order_Main10.fieldbyname('mainID').AsString);
// FieldByName('CRID').Value:=StrToInt(CRID);
// FieldByName('Filler').Value:=Trim(DName);
// FieldByName('CRType').Value:='应收款登记';
// FieldByName('CRFlag').Value:='应收收';
// FieldByName('QtyFlag').Value:=1;
// FieldByName('FactoryName').Value:=Trim(TocustName.Text);
// FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CRTime.Date));
// FieldByName('YFType').Value:='自动生成';
// FieldByName('Price').Value:=fprice;
// FieldByName('HuiLv').Value:=huilv;
// FieldByName('BZType').Value:=Trim(PriceUnit);
// FieldByName('QtyUnit').Value:=Trim(OrderUnit);
// FieldByName('ComTaiTou').Value:=Trim(FComTaiTou);
// FieldByName('YFName').Value:='销售金额';
// FieldByName('MainId').Value:=Trim(Order_Main10.fieldbyname('Mainid').AsString);
// FieldByName('subID').Value:=Trim(Order_Main10.fieldbyname('subID').AsString);
// FieldByName('OrderNO').Value:=Trim(Order_Main10.fieldbyname('OrderNO').AsString);
// FieldByName('P_CodeName').Value:=Trim(Order_Main10.fieldbyname('MprtCodeName').AsString);
// FieldByName('P_Spec').Value:=Trim(Order_Main10.fieldbyname('MprtSpec').AsString);
// FieldByName('P_color').Value:=Trim(Order_Main10.fieldbyname('PRTColor').AsString);
// FieldByName('status').Value:='0';
// Post;
// end;
// end
// else
// begin
// YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString);
// end;
// IF uppercase(OrderUnit)='KG' then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(B.MJQty4),0) from CK_BanCP_CR A,WFB_MJJY B where A.MJID=B.MJID and A.MainID=YF_Money_CR.MainID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(',PS=(select isnull(count(A.mainID),0) from CK_BanCP_CR A where A.maiNID=YF_Money_CR.maiNID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end
// else
// IF (uppercase(OrderUnit)='Y') and (uppercase(Trim(Order_Main10.fieldbyname('QtyUnit').AsString))='M') then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update YF_Money_CR Set Qty=(select cast(isnull(Sum(A.Qty),0)/0.9144 as decimal(18,1)) from CK_BanCP_CR A where A.MainID=YF_Money_CR.MainID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(',PS=(select isnull(count(A.mainID),0) from CK_BanCP_CR A where A.maiNID=YF_Money_CR.maiNID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end
// else
// IF (uppercase(OrderUnit)='M') and (uppercase(Trim(Order_Main10.fieldbyname('QtyUnit').AsString))='Y') then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update YF_Money_CR Set Qty=(select cast(isnull(Sum(A.Qty),0)*0.9144 as decimal(18,1)) from CK_BanCP_CR A where A.MainID=YF_Money_CR.MainID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(',PS=(select isnull(count(A.mainID),0) from CK_BanCP_CR A where A.maiNID=YF_Money_CR.maiNID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end
// else
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(A.Qty),0) from CK_BanCP_CR A where A.MainID=YF_Money_CR.MainID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(',PS=(select isnull(count(A.mainID),0) from CK_BanCP_CR A where A.maiNID=YF_Money_CR.maiNID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from YF_Money_CR where YFId='''+Trim(YFID)+'''');
// Open;
// end;
// if ADOQueryTemp.FieldByName('Qty').Value=0 then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete from YF_Money_CR where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end;
// //Next;
// end;
// end;
// Result:=True;
end;
procedure TfrmSMPK.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmSMPK.FormDestroy(Sender: TObject);
begin
frmSMPK := nil;
end;
procedure TfrmSMPK.FormShow(Sender: TObject);
begin
BaoID.SetFocus;
ReadCxGrid('扫描出库', Tv3, '坯布仓库');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.kuwei,B.* ');
sql.Add(' from CK_PBCP_CR A');
sql.Add(' inner join WFB_MJJY_PB B on A.MJID=B.MJID');
sql.Add(' where 1=2');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_MainSel);
end;
procedure TfrmSMPK.BaoIDKeyPress(Sender: TObject; var Key: Char);
var
maxno, SMFlag, KYCKFlag, FMainId: string;
FFQty: Integer;
begin
if Key = #13 then
begin
if trim(KuWei.Text) = '' then
begin
Application.MessageBox('请输入库位!', '提示', 0);
Exit;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add(' select A.*,B.CRID ');
sql.Add(' from WFB_MJJY_PB A');
sql.Add(' inner join CK_PBCP_CR B on A.MJID=B.MJID and B.CRFlag=''入库'' ');
sql.Add(' where A. MJID=''' + Trim(BaoID.Text) + '''');
// showmessage(SQL.Text);
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
PlaySound('wav\扫描错误.wav', 0, SND_FILENAME or SND_ASYNC);
BaoID.Text := '';
Exit;
end
else
begin
SCreateCDS(ADOQueryTemp, CDS_Main);
SInitCDSData(ADOQueryTemp, CDS_Main);
end;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update CK_PBCP_CR set KuWei =' + quotedstr(trim(KuWei.Text)));
sql.Add(' where MJID=''' + Trim(BaoID.Text) + '''');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
with CDS_MainSel do
begin
Append;
FieldByName('Mainid').Value := Self.CDS_Main.fieldbyname('Mainid').Value;
FieldByName('SubID').Value := Self.CDS_Main.fieldbyname('SubID').Value;
FieldByName('MJMaoZ').Value := Self.CDS_Main.fieldbyname('MJMaoZ').Value;
FieldByName('MJId').Value := Self.CDS_Main.fieldbyname('MJId').Value;
FieldByName('APXH').Value := Self.CDS_Main.fieldbyname('APXH').Value;
FieldByName('CarNo').Value := Self.CDS_Main.fieldbyname('CarNo').Value;
FieldByName('KuWei').Value := trim(KuWei.Text);
FieldByName('APBatchNo').Value := Self.CDS_Main.fieldbyname('APBatchNo').Value;
Post;
end;
BaoID.Text := '';
PlaySound('wav\正确.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
except
BaoID.Text := '';
PlaySound('数据保存失败暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('盘库异常！', '提示', 0);
end;
end;
end;
procedure TfrmSMPK.Button2Click(Sender: TObject);
begin
Close;
WriteCxGrid('扫描出库', Tv3, '坯布仓库');
end;
end.

401
发货申请(ShipmentRequest.dll)/U_SQKCHZSelList.dfm Normal file
View File

@ -0,0 +1,401 @@
object frmSQKCHZSelList: TfrmSQKCHZSelList
Left = 261
Top = 86
Width = 1339
Height = 576
Caption = #25104#21697#24211#23384#27719#24635#21015#34920
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1323
Height = 33
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
OnClick = TBFindClick
end
object ToolButton1: TToolButton
Left = 126
Top = 0
Caption = #36873#25321
ImageIndex = 31
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 185
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 33
Width = 1323
Height = 36
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label4: TLabel
Left = 201
Top = 12
Width = 24
Height = 12
Caption = #35268#26684
end
object Label2: TLabel
Left = 816
Top = 36
Width = 12
Height = 12
Caption = #33267
Visible = False
end
object Label5: TLabel
Left = 23
Top = 12
Width = 48
Height = 12
Caption = #35746' '#21333' '#21495
end
object Label7: TLabel
Left = 348
Top = 12
Width = 24
Height = 12
Caption = #31561#32423
end
object Label6: TLabel
Left = 460
Top = 12
Width = 24
Height = 12
Caption = #33394#21035
end
object Label1: TLabel
Left = 569
Top = 12
Width = 24
Height = 12
Caption = #25209#21495
end
object Label3: TLabel
Left = 713
Top = 12
Width = 60
Height = 12
Caption = #24037#21378#20195#21495#8216
end
object C_Spec: TEdit
Tag = 2
Left = 228
Top = 8
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 1
OnChange = C_CodeNameChange
end
object ConNo: TEdit
Tag = 2
Left = 73
Top = 8
Width = 109
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 0
OnChange = C_CodeNameChange
end
object MJStr3: TComboBox
Tag = 2
Left = 486
Top = 8
Width = 68
Height = 20
Style = csDropDownList
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
TabOrder = 3
OnChange = TBFindClick
Items.Strings = (
#27973#33394
#28145#33394
#28418#30333
'')
end
object BatchNoHZ: TEdit
Tag = 2
Left = 596
Top = 8
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 4
OnChange = C_CodeNameChange
end
object GCCode: TEdit
Tag = 2
Left = 762
Top = 8
Width = 100
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 5
OnChange = C_CodeNameChange
end
object ClothType: TComboBox
Tag = 2
Left = 377
Top = 8
Width = 68
Height = 20
Style = csDropDownList
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
ItemHeight = 12
TabOrder = 2
OnChange = TBFindClick
Items.Strings = (
''
#27491#21697
#27425#21697)
end
end
object cxGrid2: TcxGrid
Left = 0
Top = 69
Width = 1323
Height = 469
Align = alClient
TabOrder = 2
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = v1Column6
end
item
Kind = skSum
Column = v2Column5
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
Styles.Header = DataLink_ShipmentRequest.Default
object v2Column3: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'XSConNo'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 77
end
object v1Column9: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'KHName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 90
end
object v1Column1: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'ConNo'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 81
end
object v1Column10: TcxGridDBColumn
Caption = #25209#21495
DataBinding.FieldName = 'BatchNoHZ'
HeaderAlignmentHorz = taCenter
Width = 79
end
object v1Column11: TcxGridDBColumn
Caption = #24037#21378#20195#21495
DataBinding.FieldName = 'GCCode'
HeaderAlignmentHorz = taCenter
Width = 72
end
object v1Column7: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object v2Column1: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_CodeName'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 92
end
object v1Column8: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 136
end
object v1Column5: TcxGridDBColumn
Caption = #33394#21035
DataBinding.FieldName = 'MJStr3'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
object v1Column2: TcxGridDBColumn
Caption = #38376#24133'CM'
DataBinding.FieldName = 'MFQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 83
end
object v1Column4: TcxGridDBColumn
Caption = #20811#37325'GSM'
DataBinding.FieldName = 'KZQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object v1Column3: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'ClothType'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 63
end
object v1Column6: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'JQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 74
end
object v2Column5: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'KCKGQty'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 83
end
object v1Column12: TcxGridDBColumn
Caption = #21305#37325
DataBinding.FieldName = 'PiKgQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 64
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
end
end
object MovePanel2: TMovePanel
Left = 408
Top = 192
Width = 289
Height = 49
BevelInner = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
Visible = False
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 984
Top = 24
end
object ADOQueryMain: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 936
Top = 48
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 880
Top = 24
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 920
Top = 152
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 888
Top = 144
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 896
Top = 128
end
end

210
发货申请(ShipmentRequest.dll)/U_SQKCHZSelList.pas Normal file
View File

@ -0,0 +1,210 @@
unit U_SQKCHZSelList;
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, MovePanel, cxButtonEdit;
type
TfrmSQKCHZSelList = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
cxGridPopupMenu1: TcxGridPopupMenu;
Label4: TLabel;
C_Spec: TEdit;
Label2: TLabel;
CDS_Main: TClientDataSet;
Tv1: TcxGridDBTableView;
cxGrid2Level1: TcxGridLevel;
cxGrid2: TcxGrid;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
Label5: TLabel;
ConNo: TEdit;
v1Column6: TcxGridDBColumn;
Label7: TLabel;
v1Column3: TcxGridDBColumn;
MovePanel2: TMovePanel;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
Label6: TLabel;
MJStr3: TComboBox;
v1Column7: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
ToolButton1: TToolButton;
v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
Label1: TLabel;
BatchNoHZ: TEdit;
Label3: TLabel;
GCCode: TEdit;
ClothType: TComboBox;
v1Column12: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
procedure ConNoMChange(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure C_CodeNameChange(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
procedure ToolButton1Click(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
{ Public declarations }
FCode,FClothType,FSeBie:String;
end;
var
frmSQKCHZSelList: TfrmSQKCHZSelList;
implementation
uses
U_DataLink,U_RTFun,U_ZDYHelp,U_JYMXInfo;
{$R *.dfm}
procedure TfrmSQKCHZSelList.FormDestroy(Sender: TObject);
begin
frmSQKCHZSelList:=nil;
end;
procedure TfrmSQKCHZSelList.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmSQKCHZSelList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered:=False;
Close;
sql.Clear;
sql.Add('select A.* ,C.C_CodeName,C.C_Code,C.MFQty,C.KZQty,C.C_Spec,C.PiKgQty');
sql.Add(' ,D.ConNo,XSConNo=E.ConNo,KHName=E.CustomerNoName,D.ConMainId,D.ConSubId,C.BatchNoHZ,D.GCCode');
sql.Add(' from(');
sql.Add(' select Sum(KCKgQty) KCKgQty,count(*) JQty,PB.MainId,PB.SubId,PB.ClothType '); //,MJStr3=isnull(PB.MJStr3,'''')
sql.Add(' from CK_PBCP_KC KC ');
sql.Add(' inner join WFB_MJJY_PB PB on KC.MJID=PB.MJID ');
sql.Add(' inner join Cloth_Sub CS on PB.SubId=CS.SubId');
sql.Add(' where KC.KCKGQty>0 and CS.C_Code='''+Trim(FCode)+'''');
if Trim(FClothType)<>'' then
begin
sql.Add(' and isnull(PB.Cloth_Type,'''')='''+Trim(FClothType)+'''');
end;
if Trim(FSeBie)<>'' then
begin
sql.Add(' and isnull(PB.MJStr3,'''')='''+Trim(FSeBie)+'''');
end;
sql.Add(' group by PB.MainId,PB.SubId,PB.ClothType'); //,isnull(PB.MJStr3,'''')
sql.Add(' )A');
Sql.add(' inner join Cloth_Sub C on A.MainId=C.MainId');
sql.Add(' inner join Cloth_Main D on A.Mainid=D.Mainid');
sql.Add(' inner join JYOrderCon_Main_PB E on D.ConMainId=E.MainId');
Open;
// ShowMessage(SQL.Text);
end;
SCreateCDS(ADOQueryMain,CDS_Main);
SInitCDSData(ADOQueryMain,CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmSQKCHZSelList.TBRafreshClick(Sender: TObject);
begin
//BegDate.SetFocus;
MovePanel2.Visible:=True;
MovePanel2.Refresh;
InitGrid();
MovePanel2.Visible:=False;
end;
procedure TfrmSQKCHZSelList.ConNoMChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
end;
end;
procedure TfrmSQKCHZSelList.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('发货申请专用',Tv1,'坯布仓库');
Close;
end;
procedure TfrmSQKCHZSelList.FormShow(Sender: TObject);
begin
ReadCxGrid('发货申请专用',Tv1,'坯布仓库');
InitGrid();
end;
procedure TfrmSQKCHZSelList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
SCreateCDS(ADOQueryMain,CDS_Main);
SInitCDSData(ADOQueryMain,CDS_Main);
end;
end;
procedure TfrmSQKCHZSelList.C_CodeNameChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmSQKCHZSelList.Tv1CellDblClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
// try
// frmJYMXInfo:=TfrmJYMXInfo.Create(Application);
// with frmJYMXInfo do
// begin
// FFMainId:=Trim(self.CDS_Main.fieldbyname('MainId').AsString);
// FFClothType:=Trim(self.CDS_Main.fieldbyname('ClothType').AsString);
// if ShowModal=1 then
// begin
//
// end;
// end;
// finally
// frmJYMXInfo.Free;
// end;
end;
procedure TfrmSQKCHZSelList.ToolButton1Click(Sender: TObject);
begin
ModalResult:=1;
end;
end.

550
发货申请(ShipmentRequest.dll)/U_SQSMCK.dfm Normal file
View File

@ -0,0 +1,550 @@
inherited frmSQSMCK: TfrmSQSMCK
Left = 411
Top = 171
Caption = #25104#21697#20986#24211#25195#25551'('#30003#35831')'
ClientHeight = 801
ClientWidth = 1133
Position = poScreenCenter
ExplicitLeft = -129
ExplicitWidth = 1149
ExplicitHeight = 840
PixelsPerInch = 96
TextHeight = 12
object Panel2: TPanel [0]
Left = 0
Top = 0
Width = 1133
Height = 185
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label5: TLabel
Left = 6
Top = 34
Width = 80
Height = 19
Caption = #20986#24211#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 6
Top = 91
Width = 80
Height = 19
Caption = #20986#24211#26102#38388
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 254
Top = 91
Width = 73
Height = 19
Caption = #23458' '#25143
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label12: TLabel
Left = 517
Top = 22
Width = 66
Height = 33
Caption = #25195#25551
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 64
Top = 120
Width = 196
Height = 48
Caption = #25195#25551#36864#22238
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -48
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object BaoID: TEdit
Left = 589
Top = 9
Width = 411
Height = 72
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -64
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
OnKeyPress = BaoIDKeyPress
end
object CRTime: TDateTimePicker
Left = 86
Top = 86
Width = 153
Height = 28
Date = 41337.000000000000000000
Time = 0.663190821760508700
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
end
object KHName: TEdit
Tag = 2
Left = 344
Top = 86
Width = 154
Height = 28
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 1
Visible = False
end
object Button2: TButton
Left = 895
Top = 86
Width = 100
Height = 76
Caption = #20851#38381
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = Button2Click
end
object CRType: TEdit
Tag = 2
Left = 344
Top = 128
Width = 154
Height = 28
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 2
Visible = False
end
object Button1: TButton
Left = 590
Top = 87
Width = 100
Height = 76
Caption = #36873#21333
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = Button1Click
end
object edtIsSMTH: TEdit
Left = 23
Top = 125
Width = 39
Height = 37
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 6
Visible = False
OnClick = edtIsSMTHClick
end
object btn1: TButton
Left = 746
Top = 87
Width = 100
Height = 76
Caption = #24211#23384
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = btn1Click
end
object CKNO: TEdit
Left = 92
Top = 8
Width = 409
Height = 72
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -64
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 8
end
end
object Panel1: TPanel [1]
Left = 0
Top = 185
Width = 1133
Height = 616
Align = alClient
Caption = 'Panel1'
TabOrder = 1
object cxGrid3: TcxGrid
Left = 1
Top = 214
Width = 1131
Height = 401
Align = alClient
TabOrder = 0
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DS_MainSel
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #21367#25968#37327#65306'#'
Kind = skCount
Column = VC_MJXH
end
item
Kind = skSum
Column = v3Column1
end
item
Kind = skCount
Column = VC_MJXH
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = cxStyle1
Styles.IncSearch = cxStyle1
Styles.Header = cxStyle1
Styles.Inactive = cxStyle1
object VC_MJXH: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'jyXH'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object v3Column2: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'jyid'
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 118
end
object Tv3Column2: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'baono'
HeaderAlignmentHorz = taCenter
end
object Tv3Column3: TcxGridDBColumn
Caption = #21253#26465#30721
DataBinding.FieldName = 'baoid'
HeaderAlignmentHorz = taCenter
Width = 92
end
object cv3Column3: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'gangno'
HeaderAlignmentHorz = taCenter
Width = 98
end
object cv3Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'P_Color'
HeaderAlignmentHorz = taCenter
Width = 92
end
object v3Column1: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'JGGW'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object Tv3Column1: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'JYLEN'
HeaderAlignmentHorz = taCenter
Width = 66
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv3
end
end
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1131
Height = 213
Align = alTop
TabOrder = 1
object TV4: TcxGridDBTableView
OnMouseDown = TV4MouseDown
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = ds2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = TV4Column2
end
item
Kind = skSum
Column = VC_SQQTY
end
item
Kind = skSum
Column = cCXFHPS
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = cxStyle1
Styles.IncSearch = cxStyle1
Styles.Header = cxStyle1
Styles.Inactive = cxStyle1
object TV4Column4: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'ZKhname'
HeaderAlignmentHorz = taCenter
Width = 80
end
object cCXCONNO: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'SCConNo'
HeaderAlignmentHorz = taCenter
Width = 98
end
object TV4Column1: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'SPrtCodeName'
HeaderAlignmentHorz = taCenter
Width = 98
end
object cCXCOLOR: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'prtcolor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object cV4Column1: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'gangno'
HeaderAlignmentHorz = taCenter
Width = 91
end
object TV4Column2: TcxGridDBColumn
Caption = #30003#35831#21305#25968
DataBinding.FieldName = 'SQPS'
HeaderAlignmentHorz = taCenter
Width = 113
end
object VC_SQQTY: TcxGridDBColumn
Caption = #30003#35831#25968#37327
DataBinding.FieldName = 'SQQTY'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 111
end
object cCXFHPS: TcxGridDBColumn
Caption = #21457#36135#25968#37327
DataBinding.FieldName = 'fhqty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 106
end
object TV4Column3: TcxGridDBColumn
Caption = #21457#36135#21305#25968
DataBinding.FieldName = 'FHPS'
HeaderAlignmentHorz = taCenter
Width = 123
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV4
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Left = 233
Top = 232
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Left = 113
Top = 225
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 232
Top = 296
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 112
Top = 288
end
object DS_MainSel: TDataSource
DataSet = CDS_MainSel
Left = 832
Top = 664
end
object CDS_MainSel: TClientDataSet
Aggregates = <>
Params = <>
Left = 752
Top = 664
end
object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 744
Top = 312
end
object cxStyleRepository1: TcxStyleRepository
Left = 864
Top = 208
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 792
Top = 316
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 100
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 616
Top = 264
end
object RMDBMX: TRMDBDataSet
Visible = True
DataSet = CDS_JuanPRT
Left = 692
Top = 264
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBMX
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 728
Top = 264
ReportData = {}
end
object CDS_JuanPRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 652
Top = 264
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 824
Top = 252
end
object ds2: TDataSource
DataSet = CDS_1
Left = 896
Top = 312
end
object GPM_2: TcxGridPopupMenu
Grid = cxGrid3
PopupMenus = <>
Left = 688
Top = 664
end
end

626
发货申请(ShipmentRequest.dll)/U_SQSMCK.pas Normal file
View File

@ -0,0 +1,626 @@
unit U_SQSMCK;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit,
RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
type
TfrmSQSMCK = class(TFrmBaseList)
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_MainSel: TDataSource;
CDS_MainSel: TClientDataSet;
GPM_1: TcxGridPopupMenu;
Panel2: TPanel;
Label5: TLabel;
Label4: TLabel;
Label9: TLabel;
BaoID: TEdit;
CRTime: TDateTimePicker;
KHName: TEdit;
Button2: TButton;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
Label12: TLabel;
CDS_Main: TClientDataSet;
CRType: TEdit;
Button1: TButton;
RMXLSExport1: TRMXLSExport;
RMDBMX: TRMDBDataSet;
RM1: TRMGridReport;
CDS_JuanPRT: TClientDataSet;
Label10: TLabel;
edtIsSMTH: TEdit;
btn1: TButton;
CDS_1: TClientDataSet;
ds2: TDataSource;
Panel1: TPanel;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cv3Column3: TcxGridDBColumn;
VC_MJXH: TcxGridDBColumn;
v3Column1: TcxGridDBColumn;
v3Column2: TcxGridDBColumn;
cv3Column4: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxGrid1: TcxGrid;
TV4: TcxGridDBTableView;
cCXCONNO: TcxGridDBColumn;
cV4Column1: TcxGridDBColumn;
cCXCOLOR: TcxGridDBColumn;
VC_SQQTY: TcxGridDBColumn;
cCXFHPS: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
TV4Column1: TcxGridDBColumn;
Tv3Column1: TcxGridDBColumn;
TV4Column2: TcxGridDBColumn;
TV4Column3: TcxGridDBColumn;
CKNO: TEdit;
Tv3Column2: TcxGridDBColumn;
Tv3Column3: TcxGridDBColumn;
GPM_2: TcxGridPopupMenu;
TV4Column4: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BaoIDKeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure edtIsSMTHClick(Sender: TObject);
procedure btn1Click(Sender: TObject);
procedure TV4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
FCKNO, FSMStr, JXFlag, CZZT, fcuowu: string;
procedure InitCKGrid();
procedure InitSQGrid();
function JudgeSQD(): Boolean;
function JudgeBao(): Boolean;
procedure SaveCKBao();
function JudgeJTM(): Boolean;
procedure SaveCKJTM();
function JudgeJTMCX(): Boolean;
procedure SaveCKJTMCX();
public
canshu2: string;
{ Public declarations }
end;
var
frmSQSMCK: TfrmSQSMCK;
implementation
uses
U_DataLink, U_RTFun, MMSystem, U_FHSQListSel, U_CKProductBCPKCListSel;
procedure TfrmSQSMCK.SaveCKJTMCX();
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update CK_Cloth_CR Set CRFlag=''待出库'',CRType='''',CRTime=NULL,CRNote='''',CKNO='''' ');
sql.Add(' where CK_Cloth_CR.JYID=' + Quotedstr(Trim(FSMStr)));
sql.Add(' and CRFlag=''出库''');
sql.Add(' UPdate CK_Cloth_KC Set Valid=''Y'' ');
sql.Add(' where CK_Cloth_KC.JYID=' + Quotedstr(Trim(FSMStr)));
sql.Add(' and Valid=''N'' ');
sql.Add(' Update JY_Cloth Set JYCRType=''已入库'' ');
sql.Add(' where JY_Cloth.JYID=' + Quotedstr(Trim(FSMStr)));
SQL.Add(' and JY_Cloth.JYCRType=''已出库'' ');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(''));
sql.Add(',' + quotedstr(trim('出库扫描撤销')));
sql.Add(',' + quotedstr('卷条码：' + trim(FSMStr) + ' 出库单号：' + trim(FCKNO)));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('撤销出库失败！', '提示信息', 0);
end;
end;
procedure TfrmSQSMCK.TV4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
inherited;
// InitCKGrid();
end;
function TfrmSQSMCK.JudgeJTMCX(): Boolean;
begin
try
if Trim(CKNO.Text) = '' then
raise Exception.Create('出库单号不能为空!');
if CDS_MainSel.IsEmpty then
raise Exception.Create('无可撤销的数据!');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('SELECT RKNO,CKNO FROM CK_Cloth_CR where CRFlag=''出库'' and JYID=' + quotedstr(FSMStr));
Open;
end;
if ADOQueryTemp.IsEmpty then
raise Exception.Create('无可撤销的数据!');
Result := True;
except
Result := false;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmSQSMCK.SaveCKJTM();
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_Cloth_CR Set ');
sql.add(' CRTime=' + quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime)) + ',CRType=''扫描出库'',CRFlag=''出库'' ');
sql.add(',CKNO=' + Quotedstr(CKNO.Text));
sql.Add(' where CK_Cloth_CR.JYID=' + Quotedstr(Trim(FSMStr)));
sql.Add('and CK_Cloth_CR.CRFlag=''待出库'' ');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_Cloth_KC Set ');
sql.add(' Valid=''N'' ');
sql.Add(' where CK_Cloth_KC.JYID=' + Quotedstr(Trim(FSMStr)));
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE JY_Cloth Set JYCRType=''已出库'' ');
sql.Add(' where JY_Cloth.JYID=' + Quotedstr(Trim(FSMStr)));
SQL.Add(' and JY_Cloth.JYCRType=''已入库'' ');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('出库失败！', '提示信息', 0);
end;
end;
{$R *.dfm}
function TfrmSQSMCK.JudgeJTM(): Boolean;
begin
try
if Trim(CKNO.Text) = '' then
raise Exception.Create('未扫描申请单暂停发货!');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select JYID from JY_Cloth where JYID=' + quotedstr(trim(FSMStr)));
// ShowMessage(SQL.Text);
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
raise Exception.Create('条码错误暂停发货');
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JY_Cloth A inner join FHSQ_Sub B on A.Subid=B.Subid ');
sql.Add('where A.JYID=' + quotedstr(trim(FSMStr)));
sql.Add('and B.FSID=' + quotedstr(trim(CKNO.Text)));
Open;
end;
if ADOQueryTemp.IsEmpty then
raise Exception.Create('条码错误暂停发货!');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select RKNO from CK_Cloth_CR where CRFlag=''入库'' and JYID=' + quotedstr(trim(FSMStr)));
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
raise Exception.Create('未入库暂停发货');
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('SELECT RKNO,CKNO FROM CK_Cloth_CR where CRFlag=''出库'' and JYID=' + quotedstr(trim(FSMStr)));
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
if Trim(ADOQueryTemp.fieldbyname('CKNO').AsString) = Trim(CKNO.Text) then
begin
raise Exception.Create('已扫描');
end
else
begin
raise Exception.Create('已出库暂停发货');
end;
end;
Result := True;
except
Result := false;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
// PlaySound('wav\'+Exception(ExceptObject).Message+'.wav', 0, SND_FILENAME or SND_ASYNC);
end;
end;
function TfrmSQSMCK.JudgeBao(): Boolean;
begin
try
if Trim(CKNO.Text) = '' then
raise Exception.Create('未扫描申请单暂停发货!');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JY_Cloth A ');
sql.Add('where Baoid=' + quotedstr(trim(FSMStr)));
Open;
end;
if ADOQueryTemp.IsEmpty then
raise Exception.Create('条码错误暂停发货!');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from JY_Cloth A inner join FHSQ_Sub B on A.Subid=B.Subid ');
sql.Add('where A.Baoid=' + quotedstr(trim(FSMStr)));
sql.Add('and B.FSID=' + quotedstr(trim(CKNO.Text)));
Open;
end;
if ADOQueryTemp.IsEmpty then
raise Exception.Create('条码错误暂停发货!');
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('SELECT RKNO,CKNO FROM CK_Cloth_CR where CRFlag=''出库'' and Baoid=' + quotedstr(trim(FSMStr)));
Open;
end;
if not ADOQueryTemp.IsEmpty then
raise Exception.Create('已扫描!');
Result := True;
except
Result := false;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
end;
end;
procedure TfrmSQSMCK.SaveCKBao();
begin
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_Cloth_KC Set ');
sql.add(' Valid=''N'' ');
sql.Add(' where exists(select JYID from CK_Cloth_CR X where CK_Cloth_KC.JYID=X.JYID and X.CRFlag=''入库'' and X.Baoid=' + Quotedstr(FSMStr) + ') ');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_Cloth_CR Set ');
sql.add(' CRTime=getdate(),CRType=''扫描出库'',CRFlag=''出库'' ');
sql.add(',CKNO=' + Quotedstr(CKNO.Text));
sql.Add(' where exists(select JYID from CK_Cloth_CR X where CK_Cloth_CR.JYID=X.JYID and X.CRFlag=''入库'' and X.Baoid=' + Quotedstr(FSMStr) + ') ');
sql.Add('and CK_Cloth_CR.CRFlag=''待出库'' ');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE JY_Cloth Set JYCRType=''已出库'' ');
sql.Add(' where exists (select JYID from CK_Cloth_CR X where JY_Cloth.JYID=X.JYID and X.CRFlag=''入库'' and X.Baoid=' + Quotedstr(FSMStr) + ') ');
SQL.Add(' and JY_Cloth.JYCRType=''已入库'' ');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('出库失败！', '提示信息', 0);
end;
end;
function TfrmSQSMCK.JudgeSQD(): Boolean;
begin
Result := false;
try
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from FHSQ_Main A inner join FHSQ_Sub B on A.FSID=B.FSID where A.FSID=''' + Trim(FSMStr) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty then
raise Exception.Create('申请单不存在暂停发货!');
if Trim(CKNO.Text) <> '' then
begin
FCKNO := Trim(CKNO.Text);
end;
CKNO.Text := Trim(FSMStr);
if FSMStr <> FCKNO then
begin
InitCKGrid();
InitSQGrid();
end;
Result := True;
except
Result := false;
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
// PlaySound('未扫描申请单暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
end;
end;
procedure TfrmSQSMCK.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmSQSMCK.FormDestroy(Sender: TObject);
begin
inherited;
frmSQSMCK := nil;
end;
procedure TfrmSQSMCK.FormShow(Sender: TObject);
begin
inherited;
BaoID.SetFocus;
ReadCxGrid('扫描出库Tv4', Tv4, '发货申请');
ReadCxGrid('扫描出库Tv3', Tv3, '发货申请');
CRTime.DateTime := SGetServerDate(ADOQueryTemp);
canshu2 := self.fParameters2;
end;
procedure TfrmSQSMCK.BaoIDKeyPress(Sender: TObject; var Key: Char);
var
maxno, SMFlag, KYCKFlag, FMainId, ff: string;
FFQty: Integer;
begin
if Key = #13 then
begin
FSMStr := TRIM(BaoID.Text);
if Copy(FSMStr, 1, 2) = 'SM' then
begin
if not JudgeSQD() then
exit;
end
else
begin
if Trim(edtIsSMTH.Text) = '' then
begin
if Copy(FSMStr, 1, 2) = 'BI' then
begin
if not JudgeBao() then
exit;
SaveCKBao();
PlaySound('wav/正确.wav', 0, SND_FILENAME or SND_ASYNC);
end
else
begin
if not JudgeJTM() then
exit;
SaveCKJTM();
PlaySound('wav/正确.wav', 0, SND_FILENAME or SND_ASYNC);
end;
end
else
begin
if JudgeJTMCX() then //检测卷条码
SaveCKJTMCX();
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_FH_UP_FHQty ''' + Trim(CKNO.Text) + '''');
ExecSQL;
end;
InitSQGrid();
InitCKGrid();
end;
BaoID.Text := '';
end;
end;
procedure TfrmSQSMCK.Button2Click(Sender: TObject);
begin
WriteCxGrid('扫描出库Tv4', Tv4, '发货申请');
WriteCxGrid('扫描出库Tv3', Tv3, '发货申请');
Close;
end;
procedure TfrmSQSMCK.Button1Click(Sender: TObject);
var
MKey: Char;
begin
MKey := #13;
try
frmFHSQListSel := TfrmFHSQListSel.Create(self);
with frmFHSQListSel do
begin
canshu2 := self.canshu2;
if ShowModal = 1 then
begin
BaoID.Text := Trim(Order_Main.fieldbyname('FSID').AsString);
BaoIDKeyPress(BaoID, MKey);
end;
end;
finally
frmFHSQListSel.Free;
end;
end;
procedure TfrmSQSMCK.edtIsSMTHClick(Sender: TObject);
begin
if Trim(edtIsSMTH.Text) = '' then
edtIsSMTH.Text := '√'
else
edtIsSMTH.Text := '';
end;
procedure TfrmSQSMCK.btn1Click(Sender: TObject);
var
MKey: Char;
begin
MKey := #13;
CZZT := '选择库存';
fcuowu := '1';
try
frmCKProductBCPKCListSel := TfrmCKProductBCPKCListSel.Create(Application);
with frmCKProductBCPKCListSel do
begin
// CustomerNoName.text := trim(Self.KHName.text);
if ShowModal = 1 then
begin
with frmCKProductBCPKCListSel.CDS_Main do
begin
First;
while not Eof do
begin
if Fieldbyname('ssel').AsBoolean then
begin
Self.BaoID.Text := Trim(Fieldbyname('JYID').AsString);
BaoIDKeyPress(Self.BaoID, MKey);
if fcuowu = '错误' then
begin
Break;
end;
Sleep(200);
end;
Next;
end;
end;
end;
end;
finally
frmCKProductBCPKCListSel.Free;
end;
InitCKGrid();
end;
procedure TfrmSQSMCK.InitSQGrid();
begin
if CKNO.Text <> '' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('SELECT b.*,A.ConNo FROM FHSQ_Sub B');
sql.Add('inner join FHSQ_Main A ON A.FSId=B.FSId ');
sql.Add('WHERE B.FSId=''' + Trim(CKNO.Text) + '''');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1);
end;
end;
procedure TfrmSQSMCK.InitCKGrid();
begin
if CKNO.Text <> '' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select *');
sql.Add(' from CK_Cloth_CR A');
sql.Add(' where A.CKNo=''' + Trim(CKNO.Text) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_MainSel);
SInitCDSData(ADOQueryTemp, CDS_MainSel);
end;
end;
end.

676
发货申请(ShipmentRequest.dll)/U_SQSMCKXH.dfm Normal file
View File

@ -0,0 +1,676 @@
object frmSQSMCKXH: TfrmSQSMCKXH
Left = 295
Top = 124
Caption = #25104#21697#20986#24211#25195#25551'('#30003#35831')'
ClientHeight = 801
ClientWidth = 1105
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object cxGrid3: TcxGrid
Left = 505
Top = 0
Width = 600
Height = 801
Align = alClient
TabOrder = 1
ExplicitHeight = 802
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DS_MainSel
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Format = #21367#25968#37327#65306'#'
Kind = skCount
Column = cxGridDBColumn4
end
item
Kind = skSum
Column = v3Column1
end
item
Kind = skCount
Column = cxGridDBColumn4
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = cxStyle1
Styles.IncSearch = cxStyle1
Styles.Header = cxStyle1
Styles.Inactive = cxStyle1
object cv3Column3: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'mjstr4'
HeaderAlignmentHorz = taCenter
Width = 98
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'MJXH'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object v3Column1: TcxGridDBColumn
Caption = #20844#26020#25968
DataBinding.FieldName = 'MJMaoZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 79
end
object v3Column2: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'MJID'
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 118
end
object cv3Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'prtcolor'
HeaderAlignmentHorz = taCenter
Width = 92
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv3
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 505
Height = 801
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
ExplicitHeight = 802
object Label5: TLabel
Left = 6
Top = 34
Width = 80
Height = 19
Caption = #20986#24211#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 6
Top = 91
Width = 80
Height = 19
Caption = #20986#24211#26102#38388
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 254
Top = 91
Width = 73
Height = 19
Caption = #23458' '#25143
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 6
Top = 123
Width = 80
Height = 19
Caption = #20135#21697#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 6
Top = 156
Width = 80
Height = 19
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 223
Top = 218
Width = 25
Height = 96
Caption = #24050#13#10#20986#13#10#37325#13#10#37327
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 454
Top = 243
Width = 50
Height = 48
Caption = 'KG'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -48
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 13
Top = 412
Width = 66
Height = 33
Caption = #25195#25551
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 5
Top = 190
Width = 84
Height = 19
Caption = #25209' '#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label10: TLabel
Left = 128
Top = 331
Width = 196
Height = 48
Caption = #25195#25551#36864#22238
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -48
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object lbl2: TLabel
Left = 10
Top = 222
Width = 33
Height = 99
Caption = #24635#13#10#37325#13#10#37327
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CKPSQty: TEdit
Tag = 2
Left = 51
Top = 230
Width = 155
Height = 61
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -53
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 6
end
object CKOrdNo: TEdit
Left = 88
Top = 8
Width = 409
Height = 72
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -64
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object BaoID: TEdit
Left = 86
Top = 399
Width = 411
Height = 72
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -64
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 8
OnKeyPress = BaoIDKeyPress
end
object CRTime: TDateTimePicker
Left = 86
Top = 86
Width = 153
Height = 28
Date = 41337.000000000000000000
Time = 0.663190821760508700
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
end
object KHName: TEdit
Tag = 2
Left = 344
Top = 86
Width = 154
Height = 28
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 2
end
object Button2: TButton
Left = 353
Top = 476
Width = 100
Height = 76
Caption = #20851#38381
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
OnClick = Button2Click
end
object PrtCode: TEdit
Tag = 2
Left = 86
Top = 119
Width = 154
Height = 28
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 3
end
object PrtCodeName: TEdit
Tag = 2
Left = 86
Top = 152
Width = 411
Height = 28
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 4
end
object Edit1: TEdit
Left = 256
Top = 215
Width = 196
Height = 105
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -96
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 9
end
object CRType: TEdit
Tag = 2
Left = 512
Top = 239
Width = 154
Height = 28
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 7
end
object Button1: TButton
Left = 51
Top = 476
Width = 100
Height = 76
Caption = #36873#21333
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
OnClick = Button1Click
end
object BatchNo: TEdit
Tag = 2
Left = 85
Top = 186
Width = 411
Height = 28
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 5
Visible = False
end
object ComboBox1: TComboBox
Left = 159
Top = 562
Width = 320
Height = 64
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -56
Font.Name = #23435#20307
Font.Style = []
ItemIndex = 0
ParentFont = False
TabOrder = 12
Text = #20844#26020#30721#21333
Visible = False
Items.Strings = (
#20844#26020#30721#21333
#25442#31639#30721#21333
#20844#26020#19982#25442#31639#30721#21333
'')
end
object Button3: TButton
Left = 49
Top = 556
Width = 100
Height = 76
Caption = #25171#21360
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13
Visible = False
OnClick = Button3Click
end
object edtIsSMTH: TEdit
Left = 87
Top = 336
Width = 39
Height = 37
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 14
OnClick = edtIsSMTHClick
end
object btn1: TButton
Left = 204
Top = 474
Width = 100
Height = 76
Caption = #24211#23384
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 15
OnClick = btn1Click
end
end
object cxGrid1: TcxGrid
Left = 529
Top = 408
Width = 504
Height = 213
TabOrder = 2
object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = ds2
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
Column = cCXSQPS
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
Styles.Content = cxStyle1
Styles.IncSearch = cxStyle1
Styles.Header = cxStyle1
Styles.Inactive = cxStyle1
object cCXCONNO: TcxGridDBColumn
Caption = #35746#21333#21495
DataBinding.FieldName = 'conno'
HeaderAlignmentHorz = taCenter
Width = 98
end
object cV4Column1: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'gangno'
HeaderAlignmentHorz = taCenter
Width = 91
end
object cCXCOLOR: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'prtcolor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
end
object cCXSQPS: TcxGridDBColumn
Caption = #30003#35831#25968#37327
DataBinding.FieldName = 'sqqty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 111
end
object cCXFHPS: TcxGridDBColumn
Caption = #21457#36135#25968#37327
DataBinding.FieldName = 'fhqty'
PropertiesClassName = 'TcxTextEditProperties'
Properties.ReadOnly = True
HeaderAlignmentHorz = taCenter
Width = 94
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV4
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 752
Top = 336
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 720
Top = 336
end
object DS_MainSel: TDataSource
DataSet = CDS_MainSel
Left = 616
Top = 336
end
object CDS_MainSel: TClientDataSet
Aggregates = <>
Params = <>
Left = 648
Top = 336
end
object cxGridPopupMenu4: TcxGridPopupMenu
Grid = cxGrid3
PopupMenus = <>
Left = 680
Top = 336
end
object cxStyleRepository1: TcxStyleRepository
Left = 792
Top = 336
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svFont]
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
end
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 576
Top = 336
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 100
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 612
Top = 244
end
object RMDBMX: TRMDBDataSet
Visible = True
DataSet = CDS_JuanPRT
Left = 688
Top = 244
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
DefaultCollate = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDBMX
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 728
Top = 244
ReportData = {}
end
object CDS_JuanPRT: TClientDataSet
Aggregates = <>
Params = <>
Left = 652
Top = 244
end
object ds1: TClientDataSet
Aggregates = <>
Params = <>
Left = 864
Top = 316
end
object ds2: TDataSource
DataSet = ds1
Left = 864
Top = 344
end
end

927
发货申请(ShipmentRequest.dll)/U_SQSMCKXH.pas Normal file
View File

@ -0,0 +1,927 @@
unit U_SQSMCKXH;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit,
RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, RM_e_Xls,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu;
type
TfrmSQSMCKXH = class(TForm)
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_MainSel: TDataSource;
CDS_MainSel: TClientDataSet;
cxGridPopupMenu4: TcxGridPopupMenu;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cxGridDBColumn4: TcxGridDBColumn;
v3Column1: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
v3Column2: TcxGridDBColumn;
Panel2: TPanel;
Label5: TLabel;
Label4: TLabel;
Label9: TLabel;
CKPSQty: TEdit;
CKOrdNo: TEdit;
BaoID: TEdit;
CRTime: TDateTimePicker;
KHName: TEdit;
Button2: TButton;
Label6: TLabel;
PrtCode: TEdit;
Label8: TLabel;
PrtCodeName: TEdit;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Label12: TLabel;
CDS_Main: TClientDataSet;
CRType: TEdit;
Button1: TButton;
Label1: TLabel;
BatchNo: TEdit;
ComboBox1: TComboBox;
Button3: TButton;
RMXLSExport1: TRMXLSExport;
RMDBMX: TRMDBDataSet;
RM1: TRMGridReport;
CDS_JuanPRT: TClientDataSet;
Label10: TLabel;
edtIsSMTH: TEdit;
cv3Column3: TcxGridDBColumn;
btn1: TButton;
lbl2: TLabel;
cxGrid1: TcxGrid;
TV4: TcxGridDBTableView;
cCXCONNO: TcxGridDBColumn;
cCXCOLOR: TcxGridDBColumn;
cCXSQPS: TcxGridDBColumn;
cCXFHPS: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
ds1: TClientDataSet;
ds2: TDataSource;
cv3Column4: TcxGridDBColumn;
cV4Column1: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BaoIDKeyPress(Sender: TObject; var Key: Char);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
function YSData(Order_Main10: TClientDataSet): Boolean;
procedure Button3Click(Sender: TObject);
procedure edtIsSMTHClick(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
{ Private declarations }
FCKOrdNo, FSMStr, JXFlag, CZZT, fcuowu: string;
procedure TMPanDuan();
procedure InitCKGrid();
public
{ Public declarations }
end;
var
frmSQSMCKXH: TfrmSQSMCKXH;
implementation
uses
U_DataLink, U_RTFun, MMSystem, U_FHSQListSel, U_CKProductBCPKCListSel;
{$R *.dfm}
function TfrmSQSMCKXH.YSData(Order_Main10: TClientDataSet): Boolean;
var
CRID, YFID, PriceUnit, OrderUnit, FComTaiTou, FromSubID: string;
fprice, huilv: double;
begin
// Result:=False;
// fprice:=0;
// huilv:=0;
// PriceUnit:='RMB';
// with Order_Main10 do
// begin
// begin
// with ADOQueryTemp do
// begin
// Close;
// SQL.Clear;
// sql.Add('select *,fPrice=dbo.F_Get_Order_Price(MainID,subID) from JYOrder_Sub Where subID='''+Trim(Order_Main10.fieldbyname('subID').AsString)+'''');
// Open;
// end;
// IF not ADOQueryTemp.IsEmpty then
// begin
// PriceUnit:=Trim(ADOQueryTemp.fieldbyname('PriceUnit').AsString);
// OrderUnit:=Trim(ADOQueryTemp.fieldbyname('OrderUnit').AsString);
// fPrice:= ADOQueryTemp.fieldbyname('fPrice').AsFloat;
// huilv:= ADOQueryTemp.fieldbyname('huilv').AsFloat;
// end;
// IF huilv=0 then huilv:=1;
// CRID:='0';
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add(' select * from YF_Money_CR ');
// sql.Add(' where mainID='''+Trim(Order_Main10.fieldbyname('mainID').AsString)+'''');
// sql.Add(' and subID='''+Trim(Order_Main10.fieldbyname('subID').AsString)+'''');
// sql.Add(' and CRTime='''+FormatDateTime('yyyy-MM-dd',CRTime.Date)+'''') ;
// sql.Add(' and YFName=''销售金额'' ');
// Open;
// end;
// if ADOQueryTemp.IsEmpty then
// begin
// if GetLSNo(ADOQueryCmd,YFID,'CS','YF_Money_CR',3,1)=False then
// begin
// Application.MessageBox('取成品应收最大号失败!','提示',0);
// Exit;
// end;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from YF_Money_CR where 1<>1');
// Open;
// end;
// with ADOQueryCmd do
// begin
// Append;
// FieldByName('YFID').Value:=Trim(YFID);
// FieldByName('YFTypeId').Value:=Trim(Order_Main10.fieldbyname('mainID').AsString);
// FieldByName('CRID').Value:=StrToInt(CRID);
// FieldByName('Filler').Value:=Trim(DName);
// FieldByName('CRType').Value:='应收款登记';
// FieldByName('CRFlag').Value:='应收收';
// FieldByName('QtyFlag').Value:=1;
// FieldByName('FactoryName').Value:=Trim(TocustName.Text);
// FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',CRTime.Date));
// FieldByName('YFType').Value:='自动生成';
// FieldByName('Price').Value:=fprice;
// FieldByName('HuiLv').Value:=huilv;
// FieldByName('BZType').Value:=Trim(PriceUnit);
// FieldByName('QtyUnit').Value:=Trim(OrderUnit);
// FieldByName('ComTaiTou').Value:=Trim(FComTaiTou);
// FieldByName('YFName').Value:='销售金额';
// FieldByName('MainId').Value:=Trim(Order_Main10.fieldbyname('Mainid').AsString);
// FieldByName('subID').Value:=Trim(Order_Main10.fieldbyname('subID').AsString);
// FieldByName('OrderNO').Value:=Trim(Order_Main10.fieldbyname('OrderNO').AsString);
// FieldByName('P_CodeName').Value:=Trim(Order_Main10.fieldbyname('MprtCodeName').AsString);
// FieldByName('P_Spec').Value:=Trim(Order_Main10.fieldbyname('MprtSpec').AsString);
// FieldByName('P_color').Value:=Trim(Order_Main10.fieldbyname('PRTColor').AsString);
// FieldByName('status').Value:='0';
// Post;
// end;
// end
// else
// begin
// YFID:=Trim(ADOQueryTemp.fieldbyname('YFID').AsString);
// end;
// IF uppercase(OrderUnit)='KG' then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(B.MJQty4),0) from CK_BanCP_CR A,WFB_MJJY B where A.MJID=B.MJID and A.MainID=YF_Money_CR.MainID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(',PS=(select isnull(count(A.mainID),0) from CK_BanCP_CR A where A.maiNID=YF_Money_CR.maiNID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end
// else
// IF (uppercase(OrderUnit)='Y') and (uppercase(Trim(Order_Main10.fieldbyname('QtyUnit').AsString))='M') then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update YF_Money_CR Set Qty=(select cast(isnull(Sum(A.Qty),0)/0.9144 as decimal(18,1)) from CK_BanCP_CR A where A.MainID=YF_Money_CR.MainID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(',PS=(select isnull(count(A.mainID),0) from CK_BanCP_CR A where A.maiNID=YF_Money_CR.maiNID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end
// else
// IF (uppercase(OrderUnit)='M') and (uppercase(Trim(Order_Main10.fieldbyname('QtyUnit').AsString))='Y') then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update YF_Money_CR Set Qty=(select cast(isnull(Sum(A.Qty),0)*0.9144 as decimal(18,1)) from CK_BanCP_CR A where A.MainID=YF_Money_CR.MainID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(',PS=(select isnull(count(A.mainID),0) from CK_BanCP_CR A where A.maiNID=YF_Money_CR.maiNID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end
// else
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('update YF_Money_CR Set Qty=(select isnull(Sum(A.Qty),0) from CK_BanCP_CR A where A.MainID=YF_Money_CR.MainID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(',PS=(select isnull(count(A.mainID),0) from CK_BanCP_CR A where A.maiNID=YF_Money_CR.maiNID and A.subID=YF_Money_CR.subID and A.CRtime=YF_Money_CR.CRTime and A.CRType=''销售出库'') ');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end;
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('Update YF_Money_CR Set Money=Price*Qty,BBMoney=Price*Qty*HuiLv');
// sql.Add(' where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add('select * from YF_Money_CR where YFId='''+Trim(YFID)+'''');
// Open;
// end;
// if ADOQueryTemp.FieldByName('Qty').Value=0 then
// begin
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete from YF_Money_CR where YFID='''+Trim(YFID)+'''');
// ExecSQL;
// end;
// end;
// //Next;
// end;
// end;
// Result:=True;
end;
procedure TfrmSQSMCKXH.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmSQSMCKXH.FormDestroy(Sender: TObject);
begin
frmSQSMCKXH := nil;
end;
procedure TfrmSQSMCKXH.FormShow(Sender: TObject);
begin
BaoID.SetFocus;
ReadCxGrid('扫描出库', Tv3, '坯布仓库');
CRTime.DateTime := SGetServerDate(ADOQueryTemp);
end;
procedure TfrmSQSMCKXH.TMPanDuan();
begin
//判断扫描的是发货申请单，还是布匹条码 ，判断是否已经扫描过发货单 ，或者更改了发货单
JXFlag := '';
if Copy(FSMStr, 1, 2) = 'SM' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from FHSQ_Main A inner join FHSQ_Sub B on A.FSID=B.FSID where A.FSID=''' + Trim(FSMStr) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
JXFlag := '999';
PlaySound('申请单不存在暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from FHSQ_Main');
sql.Add('where FSID=' + quotedstr(trim(FSMStr)));
Open;
end;
if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
begin
JXFlag := '999';
PlaySound('wav\已对账暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
if Trim(CKOrdNo.Text) <> '' then
begin
FCKOrdNo := Trim(CKOrdNo.Text);
end;
CKOrdNo.Text := Trim(FSMStr);
if FSMStr <> FCKOrdNo then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select B.*');
sql.Add(' from CK_BanCP_CR A');
sql.Add(' inner join WFB_MJJY B on A.MJID=B.MJID');
sql.Add(' where A.CKOrdNO=''' + Trim(CKOrdNo.Text) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_MainSel);
SInitCDSData(ADOQueryTemp, CDS_MainSel);
if CDS_MainSel.IsEmpty = False then
Edit1.Text := floatToStr(Tv3.DataController.Summary.FooterSummaryValues[3])
// Edit1.Text := floatToStr(Format('%.2f', Tv3.DataController.Summary.FooterSummaryValues[3]))
else
Edit1.Text := '0';
end;
BaoID.Text := '';
JXFlag := '888';
end
else
begin
if Trim(CKOrdNo.Text) = '' then
begin
JXFlag := '999';
PlaySound('wav\未扫描申请单暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from WFB_MJJY A ');
sql.Add('where exists (select Y.SubId from FHSQ_Sub Y where Y.SubId=A.SubId and Y.FSId=' + quotedstr(Trim(CKOrdNo.Text)) + ')');
sql.Add('and A.MJID=' + quotedstr(Trim(FSMStr)));
// ShowMessage(SQL.Text);
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.APID from WFB_MJJY A ');
sql.Add('where A.MJID=' + quotedstr(Trim(FSMStr)));
// ShowMessage(SQL.Text);
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
JXFlag := '999';
PlaySound('wav\未检验暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end
else
begin
JXFlag := '999';
Application.MessageBox('请检查指示单是否正确!', '提示', 0);
PlaySound('wav\条码错误暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
end;
// else
// begin
//// if Trim(BatchNo.Text) <> '' then
//// begin
//// if FormatTitle(Trim(ADOQueryTemp.fieldbyname('APBatchNo').AsString)) <> FormatTitle(Trim(BatchNo.Text)) then
//// begin
//// JXFlag := '999';
//// PlaySound('批号不同暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
//// Exit;
//// end;
//// end;
//// if ((ADOQueryTemp.fieldbyname('MJMaoZ').AsFloat < 5) or (ADOQueryTemp.fieldbyname('MJMaoZ').AsFloat > 50)) then
//// begin
//// JXFlag := '999';
//// PlaySound('重量异常暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
//// Application.MessageBox('重量异常暂停发货!', '提示', 0);
//// Exit;
//// end;
//
// end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.CKOrdNo from CK_BanCP_CR A ');
sql.Add('where exists (select Y.SubId from FHSQ_Sub Y where Y.SubId=A.SubId and Y.FSId=' + quotedstr(Trim(CKOrdNo.Text)) + ')');
sql.Add(' and A.MJID=' + quotedstr(Trim(FSMStr)));
sql.Add(' and A.CRFlag=''出库'' ');
Open;
end;
if not ADOQueryTemp.IsEmpty then
begin
if Trim(ADOQueryTemp.fieldbyname('CKOrdNo').AsString) = Trim(CKOrdNo.Text) then
begin
JXFlag := '999';
PlaySound('wav\已扫描.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end
else
begin
JXFlag := '999';
PlaySound('wav\已出库暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.CKOrdNo from CK_BanCP_CR A ');
sql.Add('where exists (select Y.SubId from FHSQ_Sub Y where Y.SubId=A.SubId and Y.FSId=' + quotedstr(Trim(CKOrdNo.Text)) + ')');
sql.Add(' and A.MJID=' + quotedstr(Trim(FSMStr)));
sql.Add(' and A.CRFlag=''入库'' ');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
JXFlag := '999';
PlaySound('wav\未入库暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
if Trim(Edit1.Text) <> '' then
begin
if StrToFloat(Edit1.Text) >= StrToFloat(CKPSQty.Text) then
begin
JXFlag := '999';
PlaySound('wav\超出发货上限暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Exit;
end;
end;
// 判断每个颜色有没有超
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
//
// sql.Add(' select * from FHSQ_Sub A where isnull(SQQty,0)+isnull(fdfw,0)<isnull(FHQty,0) ');
//
// sql.Add(' and A.FSID=' + quotedstr(Trim(FSMStr)));
//
// Open;
// end;
// if ADOQueryTemp.IsEmpty = False then
// begin
// JXFlag := '999';
// PlaySound('wav\超出发货上限暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
// Exit;
// end;
end;
//判断扫描的是发货申请单，还是布匹条码 ，判断是否已经扫描过发货单 ，或者更改了发货单 FHDate
end;
procedure TfrmSQSMCKXH.BaoIDKeyPress(Sender: TObject; var Key: Char);
var
maxno, SMFlag, KYCKFlag, FMainId, ff: string;
FFQty: Integer;
begin
if Key = #13 then
begin
FSMStr := Trim(BaoID.Text);
if edtIsSMTH.Text = '' then
begin
TMPanDuan();
if Trim(JXFlag) = '999' then
begin
BaoID.Text := '';
fcuowu := '错误';
Exit;
end;
if Trim(JXFlag) = '888' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.* ,KHName=CustomerNoName,CKPSQty=A.SQQTYHZ '); //0720
sql.Add(' from FHSQ_Main A');
sql.Add(' where FSId=''' + Trim(CKOrdNo.Text) + ''' ');
Open;
end;
SCSHData(ADOQueryTemp, Panel2, 2);
InitCKGrid();
Exit;
end;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add(' select A.*,B.CRID ,C.PRTColor ');
sql.Add(' from WFB_MJJY A');
sql.Add(' inner join CK_BanCP_CR B on A.MJID=B.MJID and B.CRFlag=''入库'' ');
SQL.Add(' inner join JYOrder_Sub C ON A.SUBID=C.SubId');
sql.Add(' where A. MJID=''' + Trim(BaoID.Text) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_Main);
SInitCDSData(ADOQueryTemp, CDS_Main);
try
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from CK_BanCP_KC where MJID=''' + Trim(BaoID.Text) + '''');
sql.Add(' and KCKGQty>0');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
KYCKFlag := '不能出库';
end
else
begin
KYCKFlag := '能出库';
end;
if Trim(KYCKFlag) = '能出库' then
begin
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_BanCP_CR Set ');
sql.add(' CRTime=getdate(),CRType=''扫描出库'',CRFlag=''出库'' ');
sql.add(',CKOrdNo=' + quotedstr(Trim(CKOrdNo.Text)));
sql.add(',filler=' + quotedstr(DName));
sql.Add(' where MJID=' + quotedstr(Trim(FSMStr)));
sql.Add('and CK_BanCP_CR.CRFlag=''待出库'' ');
// ShowMessage(SQL.Text);
ExecSQL;
end;
//更新kcvalid状态
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_BanCP_KC Set ');
sql.add(' KCValid=''N'' ');
sql.Add(' where MJID=' + quotedstr(Trim(FSMStr)));
ExecSQL;
end;
//更新出入库状态
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE WFB_MJJY Set MJStr2=''已出库'' ');
sql.Add(' where MJID=' + quotedstr(Trim(FSMStr)));
SQL.Add(' and WFB_MJJY.MJStr2=''已入库'' ');
ExecSQL;
end;
FMainId := Trim(CDS_Main.fieldbyname('MainID').AsString);
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_Do_FHSQ ''' + Trim(CKOrdNo.Text) + '''');
ExecSQL;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select * from FHSQ_Sub A where isnull(SQQty,0)*(1+0.01*isnull(fdfw,0))<isnull(FHQty,0) ');
sql.Add(' and A.FSID=' + quotedstr(Trim(FSMStr)));
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
BaoID.Text := '';
PlaySound('wav\超出发货上限暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
ADOQueryCmd.Connection.RollbackTrans;
Exit;
end;
ADOQueryCmd.Connection.CommitTrans;
with CDS_MainSel do
begin
Append;
FieldByName('Mainid').Value := Self.CDS_Main.fieldbyname('Mainid').Value;
FieldByName('SubID').Value := Self.CDS_Main.fieldbyname('SubID').Value;
FieldByName('MJMaoZ').Value := Self.CDS_Main.fieldbyname('MJMaoZ').Value;
FieldByName('MJId').Value := Self.CDS_Main.fieldbyname('MJId').Value;
FieldByName('MJXH').Value := Self.CDS_Main.fieldbyname('MJXH').Value;
FieldByName('mjstr4').Value := Self.CDS_Main.fieldbyname('mjstr4').Value;
FieldByName('prtcolor').Value := Self.CDS_Main.fieldbyname('prtcolor').Value;
// FieldByName('CarNo').Value := Self.CDS_Main.fieldbyname('CarNo').Value;
// FieldByName('APBatchNo').Value := Self.CDS_Main.fieldbyname('APBatchNo').Value;
Post;
end;
BaoID.Text := '';
PlaySound('正确.wav', 0, SND_FILENAME or SND_ASYNC);
end;
except
BaoID.Text := '';
PlaySound('数据保存失败暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('出库异常！', '提示', 0);
end;
end
else
begin
if not CDS_MainSel.Locate('MJID', FSMStr, []) then
Exit;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_BanCP_CR Set ');
sql.add(' CRTime=null,CRType=null,CRFlag=''待出库'' ');
sql.add(',CKOrdNo=''''');
sql.add(',filler=''''');
sql.Add(' where MJID=' + quotedstr(Trim(FSMStr)));
sql.Add('and CK_BanCP_CR.CRFlag=''出库'' ');
// ShowMessage(SQL.Text);
ExecSQL;
end;
//更新出入库状态
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE WFB_MJJY Set MJStr2=''已入库'' ');
sql.Add(' where MJID=' + quotedstr(Trim(FSMStr)));
SQL.Add(' and WFB_MJJY.MJStr2=''已出库'' ');
sql.Add(' UPdate CK_BanCP_KC Set KCValid=''Y'' ');
sql.Add(' where CK_BanCP_KC.MJID=' + Quotedstr(Trim(FSMStr)));
sql.Add(' and KCValid=''N'' ');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(''));
sql.Add(',' + quotedstr(trim('出库扫描撤销')));
sql.Add(',' + quotedstr('卷条码：' + trim(FSMStr) + ' 出库单号：' + trim(CKOrdNo.Text)));
sql.Add(',' + quotedstr(trim('成功')));
sql.Add(')');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_Do_FHSQ ''' + Trim(CKOrdNo.Text) + '''');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('撤销出库失败！', '提示信息', 0);
end;
CDS_MainSel.Locate('MJID', FSMStr, []);
CDS_MainSel.Delete;
BaoID.Text := '';
PlaySound('正确.wav', 0, SND_FILENAME or SND_ASYNC);
end;
end;
//判断发货匹数 CDS_MainSel
// if CDS_MainSel.IsEmpty = False then
// Edit1.Text := IntToStr(Tv3.DataController.Summary.FooterSummaryValues[2])
// else
// Edit1.Text := '0';
if CDS_MainSel.IsEmpty = False then
Edit1.Text := floatToStr(Tv3.DataController.Summary.FooterSummaryValues[3])
else
Edit1.Text := '0';
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add(' select COUNT(*) fhjs from CK_BanCP_CR where CKOrdNo= ''' + Trim(CKOrdNo.Text) + '''');
// Open;
// end;
// ff := Format('%.2f', [StrToFloat(Edit1.Text)]);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select sum(KGQTY) FMJMaoZ from CK_BanCP_CR where CKOrdNo= ''' + Trim(CKOrdNo.Text) + '''');
Open;
end;
// if StrToFloat(Edit1.Text) <> ADOQueryTemp.FieldByName('FMJMaoZ').AsFloat then //asfloat
if Tv3.DataController.Summary.FooterSummaryValues[3] <> ADOQueryTemp.FieldByName('FMJMaoZ').AsFloat then
begin
PlaySound('数据保存失败暂停发货.wav', 0, SND_FILENAME or SND_ASYNC);
Application.MessageBox('出库异常,请重新选择申请单！', '提示', 0);
end;
end;
procedure TfrmSQSMCKXH.Button2Click(Sender: TObject);
begin
Close;
WriteCxGrid('扫描出库', Tv3, '坯布仓库');
end;
procedure TfrmSQSMCKXH.Button1Click(Sender: TObject);
var
MKey: Char;
begin
MKey := #13;
try
frmFHSQListSel := TfrmFHSQListSel.Create(self);
with frmFHSQListSel do
begin
if ShowModal = 1 then
begin
BaoID.Text := Trim(Order_Main.fieldbyname('FSID').AsString);
BaoIDKeyPress(BaoID, MKey);
end;
end;
finally
frmFHSQListSel.Free;
end;
end;
procedure TfrmSQSMCKXH.Button3Click(Sender: TObject);
var
fPrintFile: string;
begin
if Trim(CKOrdNo.Text) = '' then
EXIT;
ExportFtErpFile(trim(ComboBox1.Text) + '.rmf', ADOQueryTemp);
if ComboBox1.Text = '公斤码单' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_RKMDGangNo2 ' + quotedstr(Trim(CKOrdNo.Text)));
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_JuanPRT);
SInitCDSData(ADOQueryTemp, CDS_JuanPRT);
end;
if trim(ComboBox1.Text) = '换算码单' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_RKMDGangNo2 ' + quotedstr(Trim(CKOrdNo.Text)));
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_JuanPRT);
SInitCDSData(ADOQueryTemp, CDS_JuanPRT);
end;
if ComboBox1.Text = '公斤与换算码单' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.add('exec P_Print_RKMDGangNo5 ' + quotedstr(Trim(CKOrdNo.Text)));
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_JuanPRT);
SInitCDSData(ADOQueryTemp, CDS_JuanPRT);
end;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ComboBox1.Text) + '.rmf';
if FileExists(fPrintFile) then
begin
// RMVariables['OrdNo'] := Trim(CDS_Main.fieldbyname('OrdNo').AsString)；
RM1.DefaultCopies := 2;
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
end;
end;
procedure TfrmSQSMCKXH.edtIsSMTHClick(Sender: TObject);
begin
if Trim(edtIsSMTH.Text) = '' then
edtIsSMTH.Text := '√'
else
edtIsSMTH.Text := '';
end;
procedure TfrmSQSMCKXH.btn1Click(Sender: TObject);
var
MKey: Char;
begin
MKey := #13;
CZZT := '选择库存';
fcuowu := '1';
try
frmCKProductBCPKCListSel := TfrmCKProductBCPKCListSel.Create(Application);
with frmCKProductBCPKCListSel do
begin
// CustomerNoName.text := trim(Self.KHName.text);
if ShowModal = 1 then
begin
with frmCKProductBCPKCListSel.CDS_Main do
begin
First;
while not Eof do
begin
if Fieldbyname('ssel').AsBoolean then
begin
BaoID.Text := Trim(Fieldbyname('MJID').AsString);
BaoIDKeyPress(BaoID, MKey);
if fcuowu = '错误' then
begin
Break;
end;
Sleep(200);
end;
Next;
end;
end;
end;
end;
finally
frmCKProductBCPKCListSel.Free;
end;
InitCKGrid();
end;
procedure TfrmSQSMCKXH.InitCKGrid();
begin
if CKOrdNo.Text <> '' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select A.MAINID,A.SUBID, B.MJMaoZ,B.MJStr4,B.MJXH,B.MJID,C.PRTColor');
sql.Add(' from CK_BanCP_CR A');
sql.Add(' inner join WFB_MJJY B on A.MJID=B.MJID');
SQL.Add(' inner join JYOrder_Sub C ON B.SUBID=C.SubId');
sql.Add(' where A.CKOrdNO=''' + Trim(CKOrdNo.Text) + '''');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_MainSel);
SInitCDSData(ADOQueryTemp, CDS_MainSel);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('SELECT b.*,A.ConNo FROM FHSQ_Sub B');
sql.Add('inner join FHSQ_Main A ON A.FSId=B.FSId ');
sql.Add('WHERE B.FSId=''' + Trim(CKOrdNo.Text) + '''');
// ShowMessage(SQL.Text);
Open;
end;
SCreateCDS(ADOQueryTemp, DS1);
SInitCDSData(ADOQueryTemp, DS1);
end;
end;
end.

1344
发货申请(ShipmentRequest.dll)/U_SXKCCK.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

1248
发货申请(ShipmentRequest.dll)/U_SXKCCK.pas Normal file
View File

File diff suppressed because it is too large Load Diff

1294
发货申请(ShipmentRequest.dll)/U_SXKCCK220314.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

662
发货申请(ShipmentRequest.dll)/U_SXKCCK220314.pas Normal file
View File

@ -0,0 +1,662 @@
unit U_SXKCCK220314;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit,
RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, RM_e_Xls,
cxCalendar;
type
TfrmSXKCCK220314 = class(TForm)
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_MainSel: TDataSource;
cxGridPopupMenu4: TcxGridPopupMenu;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
CDS_YanSe: TClientDataSet;
RMXLSExport1: TRMXLSExport;
RMDBMX: TRMDBDataSet;
RM1: TRMGridReport;
DS_YanSe: TDataSource;
Panel1: TPanel;
Panel3: TPanel;
Label5: TLabel;
CKOrdNo: TEdit;
cxGrid5: TcxGrid;
TV5: TcxGridDBTableView;
v1Column12: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column13: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column18: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column16: TcxGridDBColumn;
cxGrid5Level1: TcxGridLevel;
Button2: TButton;
Button1: TButton;
KHName: TEdit;
Label9: TLabel;
Panel2: TPanel;
Button3: TButton;
Button4: TButton;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
cxGridLevel2: TcxGridLevel;
Panel4: TPanel;
V1Column15: TcxGridDBColumn;
V1Column17: TcxGridDBColumn;
V1Column19: TcxGridDBColumn;
V1Column20: TcxGridDBColumn;
V1Column21: TcxGridDBColumn;
V1Column22: TcxGridDBColumn;
V1Column23: TcxGridDBColumn;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxGrid3: TcxGrid;
TV3: TcxGridDBTableView;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
Panel6: TPanel;
Panel5: TPanel;
Panel7: TPanel;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;
Edit3: TEdit;
Label3: TLabel;
Edit4: TEdit;
Label4: TLabel;
Label6: TLabel;
Edit6: TEdit;
Label7: TLabel;
Edit7: TEdit;
Label8: TLabel;
Edit8: TEdit;
Label10: TLabel;
Edit9: TEdit;
Label11: TLabel;
Edit10: TEdit;
Label12: TLabel;
Edit11: TEdit;
Label13: TLabel;
Edit12: TEdit;
Label14: TLabel;
CPType: TComboBox;
Edit5: TEdit;
Label15: TLabel;
Edit13: TEdit;
Label16: TLabel;
Button5: TButton;
btnCX: TButton;
Panel8: TPanel;
Label17: TLabel;
CDS_MainSel: TClientDataSet;
CDS_GangHao: TClientDataSet;
CDS_TuoTuan: TClientDataSet;
DS_GangHao: TDataSource;
DS_TuoTuan: TDataSource;
V1Column10: TcxGridDBColumn;
V2Column2: TcxGridDBColumn;
V3Column1: TcxGridDBColumn;
V3Column2: TcxGridDBColumn;
V2Column4: TcxGridDBColumn;
V2Column7: TcxGridDBColumn;
V1Column11: TcxGridDBColumn;
V2Column8: TcxGridDBColumn;
V3Column3: TcxGridDBColumn;
CDS_YanSeSel: TClientDataSet;
CDS_GangHaoSel: TClientDataSet;
CDS_TuoTuanSel: TClientDataSet;
cxGridPopupMenu1: TcxGridPopupMenu;
cxGridPopupMenu2: TcxGridPopupMenu;
cxGridPopupMenu3: TcxGridPopupMenu;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure btnCXClick(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure V1Column10PropertiesEditValueChanged(Sender: TObject);
procedure V2Column2PropertiesEditValueChanged(Sender: TObject);
procedure V3Column1PropertiesEditValueChanged(Sender: TObject);
private
{ Private declarations }
fsjYS,fsjGH,fsjTP:String;
procedure InitKC();
procedure initMXKC();
public
{ Public declarations }
end;
var
frmSXKCCK220314: TfrmSXKCCK220314;
implementation
uses
U_DataLink, U_RTFun, U_RTFun, MMSystem, U_FHSQListSel, U_CKProductBCPKCListSel;
{$R *.dfm}
procedure TfrmSXKCCK220314.InitKC();
var
fwhere, Pwhere: string;
begin
Pwhere := SGetFilters(Panel1, 1, 2);
if trim(Pwhere) <> '' then
fwhere := fwhere + ' where ' + trim(Pwhere);
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' Select AA.* ');
sql.Add(' ,B.OrderNo,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' ,C.PRTColor,C.PRTEColor,C.PRTHX,C.PrtKuanNo,C.PRTColorNo ');
sql.Add(' from(select A.MainId,A.Subid,QtyY=sum(Cast(A.Qty*1.0936 as decimal(18,1))),QtyM=sum(Qty),QtyKg=Sum(KgQty),PS=Count(*) ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' where A.CRFlag=''入库'' and D.KCValid=''Y'' ');
sql.Add(' and exists(select SubId from FHSQ_Sub X where X.SubId=A.SubId and X.FSId=' + QUOTEDSTR(CKOrdNo.Text) + ') ');
sql.Add(' Group by A.MainId,A.Subid) AA ');
sql.Add(' inner join JYOrder_Main B on AA.MainId=B.MainId ');
sql.Add(' inner join JYOrder_Sub C on AA.SubId=C.SubId ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_YanSe);
SInitCDSData(ADOQueryTemp, CDS_YanSe);
SelOKNo(CDS_YanSe,True);
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' Select AA.* ');
sql.Add(' ,B.OrderNo,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' ,C.PRTColor,C.PRTEColor,C.PRTHX,C.PrtKuanNo,C.PRTColorNo ');
sql.Add(' from(select A.MainId,A.Subid,A.APID,A.GangHao,QtyY=sum(Cast(A.Qty*1.0936 as decimal(18,1))),QtyM=sum(Qty),QtyKg=Sum(KgQty),PS=Count(*) ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' where A.CRFlag=''入库'' and D.KCValid=''Y'' ');
sql.Add(' and exists(select SubId from FHSQ_Sub X where X.SubId=A.SubId and X.FSId=' + QUOTEDSTR(CKOrdNo.Text) + ') ');
sql.Add(' Group by A.MainId,A.Subid,A.APID,A.GangHao) AA ');
sql.Add(' inner join JYOrder_Main B on AA.MainId=B.MainId ');
sql.Add(' inner join JYOrder_Sub C on AA.SubId=C.SubId ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_GangHao);
SInitCDSData(ADOQueryTemp, CDS_GangHao);
SelOKNo(CDS_GangHao,True);
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' Select AA.* ');
sql.Add(' ,B.OrderNo,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' from(select A.MainId,A.RKOrdID,QtyY=sum(Cast(A.Qty*1.0936 as decimal(18,1))),QtyM=sum(Qty),QtyKg=Sum(KgQty),PS=Count(*) ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' where A.CRFlag=''入库'' and D.KCValid=''Y'' ');
sql.Add(' and exists(select SubId from FHSQ_Sub X where X.SubId=A.SubId and X.FSId=' + QUOTEDSTR(CKOrdNo.Text) + ') ');
sql.Add(' Group by A.MainId,A.RKOrdID) AA ');
sql.Add(' inner join JYOrder_Main B on AA.MainId=B.MainId ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_TuoTuan);
SInitCDSData(ADOQueryTemp, CDS_TuoTuan);
SelOKNo(CDS_TuoTuan,True);
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.*,QtyY=Cast(A.Qty*1.0936 as decimal(18,1)) ');
sql.Add(' ,B.OrderNo,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' ,C.PRTColor,C.PRTEColor,C.PRTHX,C.PrtKuanNo ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' inner join JYOrder_Main B on A.MainId=B.MainId ');
sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId ');
sql.Add(' where A.CRFlag=''入库'' and D.KCValid=''Y'' ');
sql.Add(' and exists(select SubId from FHSQ_Sub X where X.SubId=A.SubId and X.FSId=' + QUOTEDSTR(CKOrdNo.Text) + ') ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_MainSel);
SInitCDSData(ADOQueryTemp, CDS_MainSel);
SelOKNo(CDS_MainSel,True);
end;
procedure TfrmSXKCCK220314.initMXKC();
var
fsj:string;
begin
fsj:='';
with CDS_YanSeSel do
begin
First;
while not eof do
begin
if Trim(fsj)='' then
begin
fsj:=fsj+''''+Trim(fieldbyname('SubId').AsString)+'''';
end else
fsj:=fsj+','+''''+Trim(fieldbyname('SubId').AsString)+'''';
Next;
end;
end;
fsjYS:=fsj;
fsj:='';
with CDS_GangHaoSel do
begin
First;
while not eof do
begin
if Trim(fsj)='' then
begin
fsj:=fsj+''''+Trim(fieldbyname('APId').AsString)+'''';
end else
fsj:=fsj+','+''''+Trim(fieldbyname('APId').AsString)+'''';
Next;
end;
end;
fsjGH:=fsj;
fsj:='';
with CDS_TuoTuanSel do
begin
First;
while not eof do
begin
if Trim(fsj)='' then
begin
fsj:=fsj+''''+Trim(fieldbyname('RKOrdID').AsString)+'''';
end else
fsj:=fsj+','+''''+Trim(fieldbyname('RKOrdID').AsString)+'''';
Next;
end;
end;
fsjTP:=fsj;
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.*,QtyY=Cast(A.Qty*1.0936 as decimal(18,1)) ');
sql.Add(' ,B.OrderNo,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' ,C.PRTColor,C.PRTEColor,C.PRTHX,C.PrtKuanNo ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' inner join JYOrder_Main B on A.MainId=B.MainId ');
sql.Add(' inner join JYOrder_Sub C on A.SubId=C.SubId ');
sql.Add(' where A.CRFlag=''入库'' and D.KCValid=''Y'' ');
sql.Add(' and exists(select SubId from FHSQ_Sub X where X.SubId=A.SubId and X.FSId=' + QUOTEDSTR(CKOrdNo.Text) + ') ');
if Trim(fsjYS)<>'' then
begin
sql.Add(' and A.Subid in('+Trim(fsjYS)+')');
end;
if Trim(fsjGH)<>'' then
begin
sql.Add(' and A.APid in('+Trim(fsjGH)+')');
end;
if Trim(fsjTP)<>'' then
begin
sql.Add(' and A.RKOrdID in('+Trim(fsjTP)+')');
end;
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_MainSel);
SInitCDSData(ADOQueryTemp, CDS_MainSel);
SelOKNo(CDS_MainSel,True);
end;
procedure TfrmSXKCCK220314.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmSXKCCK220314.FormDestroy(Sender: TObject);
begin
frmSXKCCK220314 := nil;
end;
procedure TfrmSXKCCK220314.FormShow(Sender: TObject);
begin
ReadCxGrid('扫描出库1', Tv1, '成品仓库');
ReadCxGrid('扫描出库2', Tv2, '成品仓库');
ReadCxGrid('扫描出库3', Tv3, '成品仓库');
ReadCxGrid('扫描出库5', Tv5, '成品仓库');
end;
procedure TfrmSXKCCK220314.Button2Click(Sender: TObject);
begin
Close;
WriteCxGrid('扫描出库1', Tv1, '成品仓库');
WriteCxGrid('扫描出库2', Tv2, '成品仓库');
WriteCxGrid('扫描出库3', Tv3, '成品仓库');
WriteCxGrid('扫描出库5', Tv5, '成品仓库');
end;
procedure TfrmSXKCCK220314.Button1Click(Sender: TObject);
var
MKey: Char;
begin
try
frmFHSQListSel := TfrmFHSQListSel.Create(self);
with frmFHSQListSel do
begin
if ShowModal = 1 then
begin
self.CKOrdNo.Text := Trim(Order_Main.fieldbyname('FSID').AsString);
end;
end;
finally
frmFHSQListSel.Free;
end;
btnCX.Click;
end;
procedure TfrmSXKCCK220314.btnCXClick(Sender: TObject);
begin
if Trim(CKOrdNo.Text) = '' then
Exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select SubId from FHSQ_Sub where FSId=' + QUOTEDSTR(CKOrdNo.Text));
Open;
end;
SCreateCDS(ADOQueryTemp,CDS_YanSeSel);
SInitCDSData(ADOQueryTemp,CDS_YanSeSel);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select APId from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' where A.CRFlag=''入库'' and D.KCValid=''Y'' ');
sql.Add(' and exists(select SubId from FHSQ_Sub X where X.SubId=A.SubId and X.FSId=' + QUOTEDSTR(CKOrdNo.Text) + ') ');
sql.Add(' Group by APID ');
Open;
end;
SCreateCDS(ADOQueryTemp,CDS_GangHaoSel);
SInitCDSData(ADOQueryTemp,CDS_GangHaoSel);
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.RKOrdID ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' where A.CRFlag=''入库'' and D.KCValid=''Y'' ');
sql.Add(' and exists(select SubId from FHSQ_Sub X where X.SubId=A.SubId and X.FSId=' + QUOTEDSTR(CKOrdNo.Text) + ') ');
sql.Add(' Group by A.RKOrdID ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_TuoTuanSel);
SInitCDSData(ADOQueryTemp, CDS_TuoTuanSel);
InitKC();
end;
procedure TfrmSXKCCK220314.Button5Click(Sender: TObject);
var
SqlMJID: string;
begin
CDS_MainSel.DisableControls;
with CDS_MainSel do
begin
First;
SqlMJID := '';
while not Eof do
begin
if Trim(SqlMJID) = '' then
SqlMJID := QuotedStr(Trim(CDS_MainSel.fieldbyname('MJID').AsString))
else
SqlMJID := SqlMJID + ',' + QuotedStr(Trim(CDS_MainSel.fieldbyname('MJID').AsString));
Next;
end;
SqlMJID := 'MJID IN (' + SqlMJID + ')'
end;
CDS_MainSel.EnableControls;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_BanCP_CR Set ');
sql.add(' CRTime=getdate(),CRType=''扫描出库'',CRFlag=''出库'' ');
sql.add(',CKOrdNo=' + quotedstr(Trim(CKOrdNo.Text)));
sql.add(',filler=' + quotedstr(DName));
sql.Add(' where ' + SqlMJID);
sql.Add('and CK_BanCP_CR.CRFlag=''待出库'' ');
ExecSQL;
end;
//更新kcvalid状态
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE CK_BanCP_KC Set ');
sql.add(' KCValid=''N'' ');
sql.Add(' where ' + SqlMJID);
ExecSQL;
end;
//更新出入库状态
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('UPDATE WFB_MJJY Set MJStr2=''已出库'' ');
sql.Add(' where ' + SqlMJID);
SQL.Add(' and WFB_MJJY.MJStr2=''已入库'' ');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('exec P_Do_FHSQ ''' + Trim(CKOrdNo.Text) + '''');
ExecSQL;
end;
end;
procedure TfrmSXKCCK220314.V1Column10PropertiesEditValueChanged(Sender: TObject);
var
mvalue:Boolean;
fsj:string;
begin
mvalue:=TcxCheckBox(Sender).EditingValue;
with CDS_YanSe do
begin
Edit;
FieldByName('SSel').Value:=mvalue;
end;
if mvalue=True then
begin
with CDS_YanSeSel do
begin
Append;
FieldByName('SubId').Value:=Trim(CDS_YanSe.fieldbyname('SubId').AsString);
Post;
end;
end else
begin
CDS_YanSeSel.Locate('SubId',Trim(CDS_YanSe.fieldbyname('SubId').AsString),[]);
CDS_YanSeSel.Delete;
end;
fsj:='';
with CDS_YanSeSel do
begin
First;
while not eof do
begin
if Trim(fsj)='' then
begin
fsj:=fsj+''''+Trim(fieldbyname('SubId').AsString)+'''';
end else
fsj:=fsj+','+''''+Trim(fieldbyname('SubId').AsString)+'''';
Next;
end;
end;
with ADOQueryTemp do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' Select AA.* ');
sql.Add(' ,B.OrderNo,B.MPRTCode,B.MPRTCodeName,B.MPRTMF,B.MPRTKZ ');
sql.Add(' ,C.PRTColor,C.PRTEColor,C.PRTHX,C.PrtKuanNo,C.PRTColorNo ');
sql.Add(' from(select A.MainId,A.Subid,A.GangHao,A.APID,QtyY=sum(Cast(A.Qty*1.0936 as decimal(18,1))),QtyM=sum(Qty),QtyKg=Sum(KgQty),PS=Count(*) ');
sql.Add(' from CK_BanCP_CR A inner join CK_BanCP_KC D on A.MJID=D.MJID ');
sql.Add(' where A.CRFlag=''入库'' and D.KCValid=''Y'' ');
sql.Add(' and exists(select SubId from FHSQ_Sub X where X.SubId=A.SubId and X.FSId=' + QUOTEDSTR(CKOrdNo.Text) + ') ');
if Trim(fsj)<>'' then
begin
sql.Add(' and A.Subid in('+Trim(fsj)+')');
end else
begin
sql.Add(' and 1=2');
end;
sql.Add(' Group by A.MainId,A.Subid,A.GangHao,A.APID) AA ');
sql.Add(' inner join JYOrder_Main B on AA.MainId=B.MainId ');
sql.Add(' inner join JYOrder_Sub C on AA.SubId=C.SubId ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_GangHao);
SInitCDSData(ADOQueryTemp, CDS_GangHao);
SelOKNo(CDS_GangHao,True);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select APId=Cast(Null as varchar(20))');
Open;
end;
SCreateCDS(ADOQueryTemp,CDS_GangHaoSel);
SInitCDSData(ADOQueryTemp,CDS_GangHaoSel);
if CDS_GangHaoSel.IsEmpty=False then
begin
CDS_GangHaoSel.Delete;
end;
CDS_GangHao.DisableControls;
with CDS_GangHao do
begin
First;
while not Eof do
begin
if FieldByName('SSel').AsBoolean=True then
begin
with CDS_GangHaoSel do
begin
Append;
CDS_GangHaoSel.FieldByName('APID').Value:=CDS_GangHao.FieldByName('APID').Value;
Post;
end;
end;
Next;
end;
end;
CDS_GangHao.EnableControls;
initMXKC();
end;
procedure TfrmSXKCCK220314.V2Column2PropertiesEditValueChanged(Sender: TObject);
var
mvalue:Boolean;
begin
mvalue:=TcxCheckBox(Sender).EditingValue;
with CDS_GangHao do
begin
Edit;
FieldByName('SSel').Value:=mvalue;
end;
if mvalue=True then
begin
with CDS_GangHaoSel do
begin
Append;
FieldByName('APId').Value:=Trim(CDS_GangHao.fieldbyname('APId').AsString);
Post;
end;
end else
begin
CDS_GangHaoSel.Locate('APId',Trim(CDS_GangHao.fieldbyname('APId').AsString),[]);
CDS_GangHaoSel.Delete;
end;
initMXKC();
end;
procedure TfrmSXKCCK220314.V3Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue:Boolean;
begin
mvalue:=TcxCheckBox(Sender).EditingValue;
with CDS_TuoTuan do
begin
Edit;
FieldByName('SSel').Value:=mvalue;
end;
if mvalue=True then
begin
with CDS_TuoTuanSel do
begin
Append;
FieldByName('RKOrdID').Value:=Trim(CDS_TuoTuan.fieldbyname('RKOrdID').AsString);
Post;
end;
end else
begin
CDS_TuoTuanSel.Locate('RKOrdID',Trim(CDS_TuoTuan.fieldbyname('RKOrdID').AsString),[]);
CDS_TuoTuanSel.Delete;
end;
initMXKC();
end;
end.

311
发货申请(ShipmentRequest.dll)/U_SYDept.dfm Normal file
View File

@ -0,0 +1,311 @@
object frmSYDept: TfrmSYDept
Left = 73
Top = 128
Width = 1004
Height = 509
Caption = #32452#32455#32467#26500
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 988
Height = 33
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_DDMD.ThreeImgList
Flat = True
Images = DataLink_DDMD.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBAdd: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #26032#22686#23376#31867
ImageIndex = 12
OnClick = TBAddClick
end
object ToolButton1: TToolButton
Left = 150
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 5
OnClick = ToolButton1Click
end
object TBDel: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 13
OnClick = TBDelClick
end
object ToolButton2: TToolButton
Left = 276
Top = 0
AutoSize = True
Caption = #32452#32455#20998#37197
ImageIndex = 22
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 363
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object cxDBTreeList1: TcxDBTreeList
Left = 0
Top = 33
Width = 249
Height = 437
Align = alLeft
Bands = <
item
end>
BufferedPaint = False
DataController.DataSource = DataSource1
DataController.ParentField = 'DPParent'
DataController.KeyField = 'DPID'
OptionsSelection.CellSelect = False
OptionsView.CellAutoHeight = True
OptionsView.Headers = False
RootValue = -1
Styles.Inactive = DataLink_DDMD.Red
Styles.Selection = DataLink_DDMD.Red
Styles.IncSearch = DataLink_DDMD.Red
TabOrder = 1
OnClick = cxDBTreeList1Click
OnDblClick = cxDBTreeList1DblClick
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'DPName'
Width = 210
Position.ColIndex = 1
Position.RowIndex = 0
Position.BandIndex = 0
end
end
object Panel1: TPanel
Left = 249
Top = 33
Width = 315
Height = 437
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
object Label1: TLabel
Left = 41
Top = 40
Width = 48
Height = 12
Caption = #19978#32423#32452#32455
end
object Label2: TLabel
Left = 41
Top = 81
Width = 48
Height = 12
Caption = #32452#32455#21517#31216
end
object Label3: TLabel
Left = 41
Top = 121
Width = 48
Height = 12
Caption = #32452#32455#32534#30721
end
object Label4: TLabel
Left = 24
Top = 16
Width = 60
Height = 14
Caption = #32452#32455#32467#26500
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 41
Top = 159
Width = 48
Height = 12
Caption = #39034' '#24207' '#21495
end
object DPTopName: TEdit
Left = 104
Top = 37
Width = 169
Height = 20
ReadOnly = True
TabOrder = 0
end
object DPName: TEdit
Left = 104
Top = 77
Width = 169
Height = 20
TabOrder = 1
OnKeyPress = DPNameKeyPress
end
object DPNo: TEdit
Left = 104
Top = 117
Width = 169
Height = 20
TabOrder = 2
end
object DPOrder: TEdit
Left = 104
Top = 155
Width = 169
Height = 20
TabOrder = 3
end
end
object cxGrid4: TcxGrid
Left = 564
Top = 33
Width = 424
Height = 437
Align = alClient
TabOrder = 3
object Tv4: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
NavigatorButtons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False
DataController.DataSource = DSUser
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_DDMD.SHuangSe
Styles.IncSearch = DataLink_DDMD.SHuangSe
Styles.Selection = DataLink_DDMD.SHuangSe
object cxGridDBColumn1: TcxGridDBColumn
Caption = #21592#24037#32534#21495
DataBinding.FieldName = 'UserId'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DDMD.Default
Width = 84
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #30331#24405#21517#31216
DataBinding.FieldName = 'UserName'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DDMD.Default
Width = 87
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #21592#24037#32452#32455
DataBinding.FieldName = 'dept'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_DDMD.Default
Width = 74
end
object v4Column1: TcxGridDBColumn
Caption = #31995#32479#21517#31216
DataBinding.FieldName = 'MoneyUserName'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
Properties.OnEditValueChanged = v4Column1PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_DDMD.Default
Width = 91
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv4
end
end
object DataSource1: TDataSource
DataSet = CDS_Tree
Left = 147
Top = 219
end
object ADOQueryTree: TADOQuery
Connection = DataLink_DDMD.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 117
Top = 145
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_DDMD.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 528
Top = 215
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DDMD.ADOLink
Parameters = <>
Left = 520
Top = 258
end
object CDS_Tree: TClientDataSet
Aggregates = <>
Params = <>
Left = 96
Top = 256
end
object CDS_User: TClientDataSet
Aggregates = <>
Params = <>
Left = 680
Top = 272
end
object DSUser: TDataSource
DataSet = CDS_User
Left = 675
Top = 211
end
end

353
发货申请(ShipmentRequest.dll)/U_SYDept.pas Normal file
View File

@ -0,0 +1,353 @@
unit U_SYDept;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
StdCtrls, ExtCtrls, DBClient, cxFilter, cxData, cxDataStorage, cxEdit,
cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid, cxTextEdit;
type
TfrmSYDept = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBAdd: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
cxDBTreeList1: TcxDBTreeList;
cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
DataSource1: TDataSource;
ADOQueryTree: TADOQuery;
ToolButton1: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DPTopName: TEdit;
DPName: TEdit;
DPNo: TEdit;
CDS_Tree: TClientDataSet;
cxGrid4: TcxGrid;
Tv4: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
Label4: TLabel;
ToolButton2: TToolButton;
CDS_User: TClientDataSet;
DSUser: TDataSource;
Label5: TLabel;
DPOrder: TEdit;
v4Column1: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure cxDBTreeList1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure DPNameKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxDBTreeList1DblClick(Sender: TObject);
procedure v4Column1PropertiesEditValueChanged(Sender: TObject);
private
{ Private declarations }
PState:Integer;
FCPID,FTopID:String;
procedure InitTree();
public
{ Public declarations }
end;
var
frmSYDept: TfrmSYDept;
implementation
uses
U_DataLink,U_RTFun;
{$R *.dfm}
procedure TfrmSYDept.InitTree();
var
i:Integer;
begin
try
ADOQueryTree.DisableControls;
with ADOQueryTree do
begin
Close;
SQL.Clear;
SQL.Add('select * from SY_Dept order by DPlevel,DPOrder,DPName');
Open;
end;
SCreateCDS(ADOQueryTree,CDS_Tree);
SInitCDSData(ADOQueryTree,CDS_Tree);
//cxDBTreeList1.Items[0].Expand(false);
cxDBTreeList1.Items[0].Expand(True);
finally
ADOQueryTree.EnableControls;
end;
//cxDBTreeList1.Items[1].Expand(False);
end;
procedure TfrmSYDept.FormDestroy(Sender: TObject);
begin
frmSYDept:=nil;
end;
procedure TfrmSYDept.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmSYDept.TBRafreshClick(Sender: TObject);
begin
InitTree();
end;
procedure TfrmSYDept.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmSYDept.TBAddClick(Sender: TObject);
begin
PState:=11;
DPTopName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
//FTopID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
FCPID:='';
DPName.Text:='';
DPNo.Text:='';
DPName.SetFocus;
end;
procedure TfrmSYDept.cxDBTreeList1Click(Sender: TObject);
begin
PState:=22;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPParent').AsString)+'''');
Open;
end;
FCPID:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
DPTopName.Text:=Trim(ADOQueryTemp.fieldbyname('DPName').AsString);
DPName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
DPNo.Text:=Trim(CDS_Tree.fieldbyname('DPNo').AsString);
DPOrder.Text:=Trim(CDS_Tree.fieldbyname('DPOrder').AsString);
end;
procedure TfrmSYDept.ToolButton1Click(Sender: TObject);
var
maxId:String;
FInt:Integer;
begin
if Trim(DPName.Text)='' then
begin
Application.MessageBox('本级名称不能为空！','提示',0);
Exit;
end;
{if Trim(DPNo.Text)='' then
begin
Application.MessageBox('类别编码不能为空！','提示',0);
Exit;
end;}
if Trim(DPOrder.Text)='' then
begin
DPOrder.Text:='99';
end;
if TryStrToInt(Trim(DPOrder.Text),FInt)=False then
begin
Application.MessageBox('顺序号非法数字!','提示',0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
if PState=11 then
begin
if GetLSNo(ADOQueryCmd,maxId,'DP','SY_Dept',3,1)=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('区最大号失败！','提示',0);
Exit;
end;
end else
begin
maxId:=Trim(FCPID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from SY_Dept where DPID='''+Trim(FCPID)+'''');
Open;
end;
with ADOQueryCmd do
begin
if PState=11 then
begin
Append;
FieldByName('DPID').Value:=Trim(maxId);
FieldByName('DPName').Value:=Trim(DPName.Text);
FieldByName('DPNo').Value:=Trim(DPNo.Text);
FieldByName('DPParent').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
FieldByName('DPLevel').Value:=CDS_Tree.fieldbyname('DPLevel').AsInteger+1;
FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text));
Post;
end else
if PState=22 then
begin
Edit;
FieldByName('DPID').Value:=Trim(maxId);
FieldByName('DPName').Value:=Trim(DPName.Text);
FieldByName('DPNo').Value:=Trim(DPNo.Text);
FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text));
//FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
//FieldByName('CPOrder').Value:=ADOQueryTree.fieldbyname('CPOrder').AsInteger+1;
Post;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('保存成功!','提示',0);
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败!','提示',0);
end;
end;
procedure TfrmSYDept.TBDelClick(Sender: TObject);
begin
if ADOQueryTree.FieldByName('DPLevel').AsInteger=0 then Exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
Open;
if not IsEmpty then
begin
Application.MessageBox('已经定义下级组织不能删除！','提示',0);
Exit;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from SY_User where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
Open;
if not IsEmpty then
begin
Application.MessageBox('该组织已有人员不能删除！','提示',0);
Exit;
end;
end;
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('delete SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
sql.Add('delete SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
ExecSQL;
end;
InitTree();
end;
procedure TfrmSYDept.DPNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
DPNo.SetFocus;
end;
procedure TfrmSYDept.FormShow(Sender: TObject);
begin
InitTree();
end;
procedure TfrmSYDept.ToolButton2Click(Sender: TObject);
begin
if CDS_Tree.IsEmpty=False then
begin
if CDS_User.IsEmpty then Exit;
if Application.MessageBox('确定要进行组织分配吗？','提示',32+4)<>IDYES then Exit;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update SY_User Set DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
sql.Add(' where UserId='''+Trim(CDS_User.fieldbyname('UserId').AsString)+'''');
ExecSQL;
end;
with CDS_User do
begin
Edit;
FieldByName('Dept').Value:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
Post;
end;
end;
end;
procedure TfrmSYDept.cxDBTreeList1DblClick(Sender: TObject);
begin
if CDS_Tree.FieldByName('DPLevel').Value=0 then
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select A.*,Dept=(select DPName from SY_Dept where DPID=A.DPID) ');
SQL.Add(' from SY_User A where UserId not in(''Admin'',''Test'') ');
SQL.Add(' and Valid=''Y'' ');
Open;
end;
SCreateCDS(ADOQueryTemp,CDS_User);
SInitCDSData(ADOQueryTemp,CDS_User);
end else
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('exec P_Select_Dept_User :CYType');
Parameters.ParamByName('CYType').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
Open;
end;
SCreateCDS(ADOQueryTemp,CDS_User);
SInitCDSData(ADOQueryTemp,CDS_User);
end;
end;
procedure TfrmSYDept.v4Column1PropertiesEditValueChanged(Sender: TObject);
var
mvalue:string;
begin
mvalue:=TcxTextEdit(Sender).EditingText;
with CDS_User do
begin
Edit;
FieldByName('MoneyUserName').Value:=Trim(mvalue);
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('Update SY_User Set MoneyUserName='''+Trim(mvalue)+'''');
sql.Add(' where UserId='''+Trim(CDS_User.fieldbyname('UserId').AsString)+'''');
ExecSQL;
end;
end;
end.

296
发货申请(ShipmentRequest.dll)/U_SYDeptUserView.dfm Normal file
View File

@ -0,0 +1,296 @@
object frmSYDeptUserView: TfrmSYDeptUserView
Left = 233
Top = 146
Width = 927
Height = 536
Caption = #32452#32455#32467#26500#20154#21592#21015#34920
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 911
Height = 33
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_CYZZ.ThreeImgList
Flat = True
Images = DataLink_CYZZ.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBAdd: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #26032#22686#23376#31867
ImageIndex = 12
Visible = False
OnClick = TBAddClick
end
object ToolButton1: TToolButton
Left = 150
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 5
Visible = False
OnClick = ToolButton1Click
end
object TBDel: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 13
Visible = False
OnClick = TBDelClick
end
object ToolButton2: TToolButton
Left = 276
Top = 0
Caption = #32452#32455#20998#37197
ImageIndex = 22
Visible = False
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 359
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object cxDBTreeList1: TcxDBTreeList
Left = 0
Top = 33
Width = 249
Height = 464
Align = alLeft
Bands = <
item
end>
BufferedPaint = False
DataController.DataSource = DataSource1
DataController.ParentField = 'DPParent'
DataController.KeyField = 'DPID'
OptionsSelection.CellSelect = False
OptionsView.CellAutoHeight = True
OptionsView.Headers = False
RootValue = -1
Styles.Inactive = DataLink_CYZZ.Red
Styles.Selection = DataLink_CYZZ.Red
Styles.IncSearch = DataLink_CYZZ.Red
TabOrder = 1
OnClick = cxDBTreeList1Click
OnDblClick = cxDBTreeList1DblClick
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'DPName'
Width = 210
Position.ColIndex = 1
Position.RowIndex = 0
Position.BandIndex = 0
end
end
object Panel1: TPanel
Left = 249
Top = 33
Width = 315
Height = 464
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
Visible = False
object Label1: TLabel
Left = 66
Top = 40
Width = 48
Height = 12
Caption = #19978#32423#32452#32455
end
object Label2: TLabel
Left = 66
Top = 81
Width = 48
Height = 12
Caption = #32452#32455#21517#31216
end
object Label3: TLabel
Left = 66
Top = 121
Width = 48
Height = 12
Caption = #32452#32455#32534#30721
end
object Label4: TLabel
Left = 24
Top = 16
Width = 60
Height = 14
Caption = #32452#32455#32467#26500
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 66
Top = 159
Width = 48
Height = 12
Caption = #39034' '#24207' '#21495
end
object DPTopName: TEdit
Left = 129
Top = 37
Width = 121
Height = 20
ReadOnly = True
TabOrder = 0
end
object DPName: TEdit
Left = 129
Top = 77
Width = 121
Height = 20
TabOrder = 1
OnKeyPress = DPNameKeyPress
end
object DPNo: TEdit
Left = 129
Top = 117
Width = 121
Height = 20
TabOrder = 2
end
object DPOrder: TEdit
Left = 129
Top = 155
Width = 121
Height = 20
TabOrder = 3
end
end
object cxGrid4: TcxGrid
Left = 564
Top = 33
Width = 347
Height = 464
Align = alClient
TabOrder = 3
object Tv4: TcxGridDBTableView
OnDblClick = Tv4DblClick
NavigatorButtons.ConfirmDelete = False
NavigatorButtons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False
DataController.DataSource = DSUser
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_CYZZ.SHuangSe
Styles.IncSearch = DataLink_CYZZ.SHuangSe
Styles.Selection = DataLink_CYZZ.SHuangSe
object cxGridDBColumn1: TcxGridDBColumn
Caption = #21592#24037#32534#21495
DataBinding.FieldName = 'UserId'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_CYZZ.Default
Width = 84
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #21592#24037#21517#31216
DataBinding.FieldName = 'UserName'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_CYZZ.Default
Width = 87
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #21592#24037#32452#32455
DataBinding.FieldName = 'dept'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_CYZZ.Default
Width = 74
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv4
end
end
object DataSource1: TDataSource
DataSet = CDS_Tree
Left = 147
Top = 219
end
object ADOQueryTree: TADOQuery
Connection = DataLink_CYZZ.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 117
Top = 145
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_CYZZ.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 520
Top = 111
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_CYZZ.ADOLink
Parameters = <>
Left = 520
Top = 146
end
object CDS_Tree: TClientDataSet
Aggregates = <>
Params = <>
Left = 96
Top = 256
end
object CDS_User: TClientDataSet
Aggregates = <>
Params = <>
Left = 680
Top = 272
end
object DSUser: TDataSource
DataSet = CDS_User
Left = 675
Top = 211
end
end

336
发货申请(ShipmentRequest.dll)/U_SYDeptUserView.pas Normal file
View File

@ -0,0 +1,336 @@
unit U_SYDeptUserView;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
StdCtrls, ExtCtrls, DBClient, cxFilter, cxData, cxDataStorage, cxEdit,
cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid;
type
TfrmSYDeptUserView = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBAdd: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
cxDBTreeList1: TcxDBTreeList;
cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
DataSource1: TDataSource;
ADOQueryTree: TADOQuery;
ToolButton1: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DPTopName: TEdit;
DPName: TEdit;
DPNo: TEdit;
CDS_Tree: TClientDataSet;
cxGrid4: TcxGrid;
Tv4: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
Label4: TLabel;
ToolButton2: TToolButton;
CDS_User: TClientDataSet;
DSUser: TDataSource;
Label5: TLabel;
DPOrder: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure cxDBTreeList1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure DPNameKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxDBTreeList1DblClick(Sender: TObject);
procedure Tv4DblClick(Sender: TObject);
private
{ Private declarations }
PState:Integer;
FCPID,FTopID:String;
procedure InitTree();
public
{ Public declarations }
end;
var
frmSYDeptUserView: TfrmSYDeptUserView;
implementation
uses
U_DataLink,U_RTFun;
{$R *.dfm}
procedure TfrmSYDeptUserView.InitTree();
var
i:Integer;
begin
try
ADOQueryTree.DisableControls;
with ADOQueryTree do
begin
Close;
SQL.Clear;
SQL.Add('select * from SY_Dept order by DPlevel,DPOrder,DPName');
Open;
end;
SCreateCDS(ADOQueryTree,CDS_Tree);
SInitCDSData(ADOQueryTree,CDS_Tree);
//cxDBTreeList1.Items[0].Expand(false);
cxDBTreeList1.Items[0].Expand(True);
finally
ADOQueryTree.EnableControls;
end;
//cxDBTreeList1.Items[1].Expand(False);
end;
procedure TfrmSYDeptUserView.FormDestroy(Sender: TObject);
begin
frmSYDeptUserView:=nil;
end;
procedure TfrmSYDeptUserView.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmSYDeptUserView.TBRafreshClick(Sender: TObject);
begin
InitTree();
end;
procedure TfrmSYDeptUserView.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmSYDeptUserView.TBAddClick(Sender: TObject);
begin
PState:=11;
DPTopName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
//FTopID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
FCPID:='';
DPName.Text:='';
DPNo.Text:='';
DPName.SetFocus;
end;
procedure TfrmSYDeptUserView.cxDBTreeList1Click(Sender: TObject);
begin
PState:=22;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPParent').AsString)+'''');
Open;
end;
FCPID:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
DPTopName.Text:=Trim(ADOQueryTemp.fieldbyname('DPName').AsString);
DPName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
DPNo.Text:=Trim(CDS_Tree.fieldbyname('DPNo').AsString);
DPOrder.Text:=Trim(CDS_Tree.fieldbyname('DPOrder').AsString);
end;
procedure TfrmSYDeptUserView.ToolButton1Click(Sender: TObject);
var
maxId:String;
FInt:Integer;
begin
if Trim(DPName.Text)='' then
begin
Application.MessageBox('本级名称不能为空！','提示',0);
Exit;
end;
{if Trim(DPNo.Text)='' then
begin
Application.MessageBox('类别编码不能为空！','提示',0);
Exit;
end;}
if Trim(DPOrder.Text)='' then
begin
DPOrder.Text:='99';
end;
if TryStrToInt(Trim(DPOrder.Text),FInt)=False then
begin
Application.MessageBox('顺序号非法数字!','提示',0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
if PState=11 then
begin
if GetLSNo(ADOQueryCmd,maxId,'DP','SY_Dept',3,1)=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('区最大号失败！','提示',0);
Exit;
end;
end else
begin
maxId:=Trim(FCPID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from SY_Dept where DPID='''+Trim(FCPID)+'''');
Open;
end;
with ADOQueryCmd do
begin
if PState=11 then
begin
Append;
FieldByName('DPID').Value:=Trim(maxId);
FieldByName('DPName').Value:=Trim(DPName.Text);
FieldByName('DPNo').Value:=Trim(DPNo.Text);
FieldByName('DPParent').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
FieldByName('DPLevel').Value:=CDS_Tree.fieldbyname('DPLevel').AsInteger+1;
FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text));
Post;
end else
if PState=22 then
begin
Edit;
FieldByName('DPID').Value:=Trim(maxId);
FieldByName('DPName').Value:=Trim(DPName.Text);
FieldByName('DPNo').Value:=Trim(DPNo.Text);
FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text));
//FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
//FieldByName('CPOrder').Value:=ADOQueryTree.fieldbyname('CPOrder').AsInteger+1;
Post;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('保存成功!','提示',0);
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败!','提示',0);
end;
end;
procedure TfrmSYDeptUserView.TBDelClick(Sender: TObject);
begin
if ADOQueryTree.FieldByName('DPLevel').AsInteger=0 then Exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
Open;
if not IsEmpty then
begin
Application.MessageBox('已经定义下级组织不能删除！','提示',0);
Exit;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from SY_User where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
Open;
if not IsEmpty then
begin
Application.MessageBox('该组织已有人员不能删除！','提示',0);
Exit;
end;
end;
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('delete SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
sql.Add('delete SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
ExecSQL;
end;
InitTree();
end;
procedure TfrmSYDeptUserView.DPNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
DPNo.SetFocus;
end;
procedure TfrmSYDeptUserView.FormShow(Sender: TObject);
begin
InitTree();
end;
procedure TfrmSYDeptUserView.ToolButton2Click(Sender: TObject);
begin
if CDS_Tree.IsEmpty=False then
begin
if CDS_User.IsEmpty then Exit;
if Application.MessageBox('确定要进行组织分配吗？','提示',32+4)<>IDYES then Exit;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update SY_User Set DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
sql.Add(' where UserId='''+Trim(CDS_User.fieldbyname('UserId').AsString)+'''');
ExecSQL;
end;
with CDS_User do
begin
Edit;
FieldByName('Dept').Value:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
Post;
end;
end;
end;
procedure TfrmSYDeptUserView.cxDBTreeList1DblClick(Sender: TObject);
begin
if CDS_Tree.FieldByName('DPLevel').Value=0 then
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select A.*,Dept=(select DPName from SY_Dept where DPID=A.DPID) ');
SQL.Add(' from SY_User A where UserId not in(''Admin'',''Test'') ');
SQL.Add(' and Valid=''Y'' ');
Open;
end;
SCreateCDS(ADOQueryTemp,CDS_User);
SInitCDSData(ADOQueryTemp,CDS_User);
end else
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('exec P_Select_Dept_User :CYType');
Parameters.ParamByName('CYType').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
Open;
end;
SCreateCDS(ADOQueryTemp,CDS_User);
SInitCDSData(ADOQueryTemp,CDS_User);
end;
end;
procedure TfrmSYDeptUserView.Tv4DblClick(Sender: TObject);
begin
ModalResult:=1;
end;
end.

304
发货申请(ShipmentRequest.dll)/U_SYDeptView.dfm Normal file
View File

@ -0,0 +1,304 @@
object frmSYDeptView: TfrmSYDeptView
Left = 233
Top = 146
Width = 927
Height = 536
Caption = #32452#32455#32467#26500#21015#34920
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 911
Height = 33
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_KangChi.ThreeImgList
Flat = True
Images = DataLink_KangChi.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object ToolButton3: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36873#25321
ImageIndex = 10
OnClick = ToolButton3Click
end
object TBAdd: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #26032#22686#23376#31867
ImageIndex = 12
Visible = False
OnClick = TBAddClick
end
object ToolButton1: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 5
Visible = False
OnClick = ToolButton1Click
end
object TBDel: TToolButton
Left = 276
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 13
Visible = False
OnClick = TBDelClick
end
object ToolButton2: TToolButton
Left = 339
Top = 0
Caption = #32452#32455#20998#37197
ImageIndex = 22
Visible = False
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 422
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object cxDBTreeList1: TcxDBTreeList
Left = 315
Top = 33
Width = 596
Height = 464
Align = alClient
Bands = <
item
end>
BufferedPaint = False
DataController.DataSource = DataSource1
DataController.ParentField = 'DPParent'
DataController.KeyField = 'DPID'
OptionsSelection.CellSelect = False
OptionsView.CellAutoHeight = True
OptionsView.Headers = False
RootValue = -1
Styles.Inactive = DataLink_KangChi.Red
Styles.Selection = DataLink_KangChi.Red
Styles.IncSearch = DataLink_KangChi.Red
TabOrder = 1
OnClick = cxDBTreeList1Click
OnDblClick = cxDBTreeList1DblClick
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'DPName'
Width = 210
Position.ColIndex = 1
Position.RowIndex = 0
Position.BandIndex = 0
end
end
object Panel1: TPanel
Left = 0
Top = 33
Width = 315
Height = 464
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
Visible = False
object Label1: TLabel
Left = 66
Top = 40
Width = 48
Height = 12
Caption = #19978#32423#32452#32455
end
object Label2: TLabel
Left = 66
Top = 81
Width = 48
Height = 12
Caption = #32452#32455#21517#31216
end
object Label3: TLabel
Left = 66
Top = 121
Width = 48
Height = 12
Caption = #32452#32455#32534#30721
end
object Label4: TLabel
Left = 24
Top = 16
Width = 60
Height = 14
Caption = #32452#32455#32467#26500
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 66
Top = 159
Width = 48
Height = 12
Caption = #39034' '#24207' '#21495
end
object DPTopName: TEdit
Left = 129
Top = 37
Width = 121
Height = 20
ReadOnly = True
TabOrder = 0
end
object DPName: TEdit
Left = 129
Top = 77
Width = 121
Height = 20
TabOrder = 1
OnKeyPress = DPNameKeyPress
end
object DPNo: TEdit
Left = 129
Top = 117
Width = 121
Height = 20
TabOrder = 2
end
object DPOrder: TEdit
Left = 129
Top = 155
Width = 121
Height = 20
TabOrder = 3
end
end
object cxGrid4: TcxGrid
Left = 352
Top = 64
Width = 359
Height = 273
TabOrder = 3
Visible = False
object Tv4: TcxGridDBTableView
OnDblClick = Tv4DblClick
NavigatorButtons.ConfirmDelete = False
NavigatorButtons.Delete.Enabled = False
NavigatorButtons.Delete.Visible = False
DataController.DataSource = DSUser
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
Styles.Inactive = DataLink_KangChi.SHuangSe
Styles.IncSearch = DataLink_KangChi.SHuangSe
Styles.Selection = DataLink_KangChi.SHuangSe
object cxGridDBColumn1: TcxGridDBColumn
Caption = #21592#24037#32534#21495
DataBinding.FieldName = 'UserId'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_KangChi.Default
Width = 84
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #21592#24037#21517#31216
DataBinding.FieldName = 'UserName'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_KangChi.Default
Width = 87
end
object cxGridDBColumn8: TcxGridDBColumn
Caption = #21592#24037#32452#32455
DataBinding.FieldName = 'dept'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Styles.Header = DataLink_KangChi.Default
Width = 74
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv4
end
end
object DataSource1: TDataSource
DataSet = CDS_Tree
Left = 147
Top = 219
end
object ADOQueryTree: TADOQuery
Connection = DataLink_KangChi.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 117
Top = 145
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_KangChi.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 520
Top = 111
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_KangChi.ADOLink
Parameters = <>
Left = 520
Top = 146
end
object CDS_Tree: TClientDataSet
Aggregates = <>
Params = <>
Left = 96
Top = 256
end
object CDS_User: TClientDataSet
Aggregates = <>
Params = <>
Left = 680
Top = 272
end
object DSUser: TDataSource
DataSet = CDS_User
Left = 675
Top = 211
end
end

344
发货申请(ShipmentRequest.dll)/U_SYDeptView.pas Normal file
View File

@ -0,0 +1,344 @@
unit U_SYDeptView;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin,
StdCtrls, ExtCtrls, DBClient, cxFilter, cxData, cxDataStorage, cxEdit,
cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid;
type
TfrmSYDeptView = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBAdd: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
cxDBTreeList1: TcxDBTreeList;
cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
DataSource1: TDataSource;
ADOQueryTree: TADOQuery;
ToolButton1: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DPTopName: TEdit;
DPName: TEdit;
DPNo: TEdit;
CDS_Tree: TClientDataSet;
cxGrid4: TcxGrid;
Tv4: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
Label4: TLabel;
ToolButton2: TToolButton;
CDS_User: TClientDataSet;
DSUser: TDataSource;
Label5: TLabel;
DPOrder: TEdit;
ToolButton3: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure cxDBTreeList1Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure TBDelClick(Sender: TObject);
procedure DPNameKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cxDBTreeList1DblClick(Sender: TObject);
procedure Tv4DblClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
{ Private declarations }
PState:Integer;
FCPID,FTopID:String;
procedure InitTree();
public
{ Public declarations }
end;
var
frmSYDeptView: TfrmSYDeptView;
implementation
uses
U_DataLink,U_RTFun;
{$R *.dfm}
procedure TfrmSYDeptView.InitTree();
var
i:Integer;
begin
try
ADOQueryTree.DisableControls;
with ADOQueryTree do
begin
Close;
SQL.Clear;
SQL.Add('select * from SY_Dept order by DPlevel,DPOrder,DPName');
Open;
end;
SCreateCDS(ADOQueryTree,CDS_Tree);
SInitCDSData(ADOQueryTree,CDS_Tree);
//cxDBTreeList1.Items[0].Expand(false);
cxDBTreeList1.Items[0].Expand(True);
finally
ADOQueryTree.EnableControls;
end;
//cxDBTreeList1.Items[1].Expand(False);
end;
procedure TfrmSYDeptView.FormDestroy(Sender: TObject);
begin
frmSYDeptView:=nil;
end;
procedure TfrmSYDeptView.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmSYDeptView.TBRafreshClick(Sender: TObject);
begin
InitTree();
end;
procedure TfrmSYDeptView.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmSYDeptView.TBAddClick(Sender: TObject);
begin
PState:=11;
DPTopName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
//FTopID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
FCPID:='';
DPName.Text:='';
DPNo.Text:='';
DPName.SetFocus;
end;
procedure TfrmSYDeptView.cxDBTreeList1Click(Sender: TObject);
begin
PState:=22;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPParent').AsString)+'''');
Open;
end;
FCPID:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
DPTopName.Text:=Trim(ADOQueryTemp.fieldbyname('DPName').AsString);
DPName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
DPNo.Text:=Trim(CDS_Tree.fieldbyname('DPNo').AsString);
DPOrder.Text:=Trim(CDS_Tree.fieldbyname('DPOrder').AsString);
end;
procedure TfrmSYDeptView.ToolButton1Click(Sender: TObject);
var
maxId:String;
FInt:Integer;
begin
if Trim(DPName.Text)='' then
begin
Application.MessageBox('本级名称不能为空！','提示',0);
Exit;
end;
{if Trim(DPNo.Text)='' then
begin
Application.MessageBox('类别编码不能为空！','提示',0);
Exit;
end;}
if Trim(DPOrder.Text)='' then
begin
DPOrder.Text:='99';
end;
if TryStrToInt(Trim(DPOrder.Text),FInt)=False then
begin
Application.MessageBox('顺序号非法数字!','提示',0);
Exit;
end;
try
ADOQueryCmd.Connection.BeginTrans;
if PState=11 then
begin
if GetLSNo(ADOQueryCmd,maxId,'DP','SY_Dept',3,1)=False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('区最大号失败！','提示',0);
Exit;
end;
end else
begin
maxId:=Trim(FCPID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from SY_Dept where DPID='''+Trim(FCPID)+'''');
Open;
end;
with ADOQueryCmd do
begin
if PState=11 then
begin
Append;
FieldByName('DPID').Value:=Trim(maxId);
FieldByName('DPName').Value:=Trim(DPName.Text);
FieldByName('DPNo').Value:=Trim(DPNo.Text);
FieldByName('DPParent').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
FieldByName('DPLevel').Value:=CDS_Tree.fieldbyname('DPLevel').AsInteger+1;
FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text));
Post;
end else
if PState=22 then
begin
Edit;
FieldByName('DPID').Value:=Trim(maxId);
FieldByName('DPName').Value:=Trim(DPName.Text);
FieldByName('DPNo').Value:=Trim(DPNo.Text);
FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text));
//FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
//FieldByName('CPOrder').Value:=ADOQueryTree.fieldbyname('CPOrder').AsInteger+1;
Post;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
Application.MessageBox('保存成功!','提示',0);
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('保存失败!','提示',0);
end;
end;
procedure TfrmSYDeptView.TBDelClick(Sender: TObject);
begin
if ADOQueryTree.FieldByName('DPLevel').AsInteger=0 then Exit;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
Open;
if not IsEmpty then
begin
Application.MessageBox('已经定义下级组织不能删除！','提示',0);
Exit;
end;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from SY_User where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
Open;
if not IsEmpty then
begin
Application.MessageBox('该组织已有人员不能删除！','提示',0);
Exit;
end;
end;
if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('delete SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
sql.Add('delete SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
ExecSQL;
end;
InitTree();
end;
procedure TfrmSYDeptView.DPNameKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
DPNo.SetFocus;
end;
procedure TfrmSYDeptView.FormShow(Sender: TObject);
begin
InitTree();
end;
procedure TfrmSYDeptView.ToolButton2Click(Sender: TObject);
begin
if CDS_Tree.IsEmpty=False then
begin
if CDS_User.IsEmpty then Exit;
if Application.MessageBox('确定要进行组织分配吗？','提示',32+4)<>IDYES then Exit;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('Update SY_User Set DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
sql.Add(' where UserId='''+Trim(CDS_User.fieldbyname('UserId').AsString)+'''');
ExecSQL;
end;
with CDS_User do
begin
Edit;
FieldByName('Dept').Value:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
Post;
end;
end;
end;
procedure TfrmSYDeptView.cxDBTreeList1DblClick(Sender: TObject);
begin
if CDS_Tree.FieldByName('DPLevel').Value=0 then
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select A.*,Dept=(select DPName from SY_Dept where DPID=A.DPID) ');
SQL.Add(' from SY_User A where UserId not in(''Admin'',''Test'') ');
SQL.Add(' and Valid=''Y'' ');
Open;
end;
SCreateCDS(ADOQueryTemp,CDS_User);
SInitCDSData(ADOQueryTemp,CDS_User);
end else
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('exec P_Select_Dept_User :CYType');
Parameters.ParamByName('CYType').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
Open;
end;
SCreateCDS(ADOQueryTemp,CDS_User);
SInitCDSData(ADOQueryTemp,CDS_User);
end;
ModalResult:=1;
end;
procedure TfrmSYDeptView.Tv4DblClick(Sender: TObject);
begin
ModalResult:=1;
end;
procedure TfrmSYDeptView.ToolButton3Click(Sender: TObject);
begin
ModalResult:=1;
end;
end.

557
发货申请(ShipmentRequest.dll)/U_UserModuleNameList.dfm Normal file
View File

@ -0,0 +1,557 @@
object frmUserModuleNameList: TfrmUserModuleNameList
Left = 97
Top = 61
Width = 1201
Height = 618
Caption = #21592#24037#27169#22359#21015#34920
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1185
Height = 33
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_CYZZ.ThreeImgList
Flat = True
Images = DataLink_CYZZ.ThreeImgList
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 0
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 20
OnClick = TBFindClick
end
object TBExport: TToolButton
Left = 126
Top = 0
AutoSize = True
Caption = #23548#20986
ImageIndex = 16
OnClick = TBExportClick
end
object TBClose: TToolButton
Left = 189
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 33
Width = 1185
Height = 37
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
end
object cxPageControl1: TcxPageControl
Left = 0
Top = 70
Width = 1185
Height = 509
ActivePage = cxTabSheet1
Align = alClient
Style = 8
TabOrder = 2
OnChange = cxPageControl1Change
ClientRectBottom = 509
ClientRectRight = 1185
ClientRectTop = 23
object cxTabSheet1: TcxTabSheet
Caption = #27169#22359#34920
ImageIndex = 0
object cxGrid3: TcxGrid
Left = 0
Top = 37
Width = 1185
Height = 449
Align = alClient
TabOrder = 0
object Tv3: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'DefStr1'
end
item
Format = 'YCLCode'
end
item
Kind = skCount
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
Styles.Inactive = DataLink_CYZZ.SHuangSe
Styles.IncSearch = DataLink_CYZZ.SHuangSe
Styles.Selection = DataLink_CYZZ.SHuangSe
Styles.Header = DataLink_CYZZ.Default
object cxGridDBColumn2: TcxGridDBColumn
Caption = #27169#22359#21517#31216
DataBinding.FieldName = 'FormName'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_CYZZ.FoneRed
Styles.Footer = DataLink_CYZZ.FoneRed
Styles.Header = DataLink_CYZZ.FoneRed
Width = 256
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #20351#29992#24773#20917
DataBinding.FieldName = 'FormNameNote'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_CYZZ.FontBlue
Styles.Footer = DataLink_CYZZ.FontBlue
Styles.Header = DataLink_CYZZ.FontBlue
Width = 917
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv3
end
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 1185
Height = 37
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 20
Top = 12
Width = 48
Height = 12
Caption = #27169#22359#21517#31216
end
object Label4: TLabel
Left = 284
Top = 12
Width = 48
Height = 12
Caption = #20351#29992#24773#20917
end
object FormName: TEdit
Tag = 2
Left = 70
Top = 9
Width = 179
Height = 20
TabOrder = 0
OnChange = UserIdChange
end
object FormNameNote: TEdit
Tag = 2
Left = 334
Top = 9
Width = 179
Height = 20
TabOrder = 1
OnChange = UserIdChange
end
end
end
object cxTabSheet2: TcxTabSheet
Caption = #37096#38376#27169#22359#34920
ImageIndex = 1
object cxGrid2: TcxGrid
Left = 0
Top = 37
Width = 1185
Height = 449
Align = alClient
TabOrder = 0
object Tv2: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'DefStr1'
end
item
Format = 'YCLCode'
end
item
Kind = skCount
Position = spFooter
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
Styles.Inactive = DataLink_CYZZ.SHuangSe
Styles.IncSearch = DataLink_CYZZ.SHuangSe
Styles.Selection = DataLink_CYZZ.SHuangSe
Styles.Header = DataLink_CYZZ.Default
object cxGridDBColumn3: TcxGridDBColumn
Caption = #37096#38376
DataBinding.FieldName = 'DPName'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_CYZZ.FontBlue
Styles.Footer = DataLink_CYZZ.FontBlue
Styles.Header = DataLink_CYZZ.FontBlue
Width = 116
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #27169#22359#21517#31216
DataBinding.FieldName = 'DFormName'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_CYZZ.FoneRed
Styles.Footer = DataLink_CYZZ.FoneRed
Styles.Header = DataLink_CYZZ.FoneRed
Width = 263
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv2
end
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 1185
Height = 37
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label2: TLabel
Left = 242
Top = 12
Width = 48
Height = 12
Caption = #27169#22359#21517#31216
end
object Label5: TLabel
Left = 20
Top = 12
Width = 24
Height = 12
Caption = #37096#38376
end
object DFormName: TEdit
Tag = 2
Left = 292
Top = 9
Width = 179
Height = 20
TabOrder = 0
OnChange = UserIdChange
end
object DPName: TEdit
Tag = 2
Left = 45
Top = 9
Width = 179
Height = 20
TabOrder = 1
OnChange = UserIdChange
end
end
end
object cxTabSheet3: TcxTabSheet
Caption = #21592#24037#27169#22359#34920
ImageIndex = 2
object cxGrid1: TcxGrid
Left = 0
Top = 37
Width = 1185
Height = 449
Align = alClient
TabOrder = 0
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'DefStr1'
end
item
Format = 'YCLCode'
end
item
Kind = skCount
Position = spFooter
Column = v1ShortName
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
Column = v1ShortName
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible
Styles.Inactive = DataLink_CYZZ.SHuangSe
Styles.IncSearch = DataLink_CYZZ.SHuangSe
Styles.Selection = DataLink_CYZZ.SHuangSe
Styles.Header = DataLink_CYZZ.Default
object v1ShortName: TcxGridDBColumn
Caption = #21592#24037#32534#21495
DataBinding.FieldName = 'UserId'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Width = 108
end
object v1UnitName: TcxGridDBColumn
Tag = 2
Caption = #30331#24405#21517#31216
DataBinding.FieldName = 'UserName'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Width = 90
end
object v1Column1: TcxGridDBColumn
Caption = #37096#38376
DataBinding.FieldName = 'UDPName'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_CYZZ.FontBlue
Styles.Footer = DataLink_CYZZ.FontBlue
Styles.Header = DataLink_CYZZ.FontBlue
Width = 106
end
object v1Quantity: TcxGridDBColumn
Caption = #27169#22359#21517#31216
DataBinding.FieldName = 'UFormName'
PropertiesClassName = 'TcxTextEditProperties'
Properties.Alignment.Horz = taCenter
Properties.Alignment.Vert = taVCenter
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_CYZZ.FoneRed
Styles.Footer = DataLink_CYZZ.FoneRed
Styles.Header = DataLink_CYZZ.FoneRed
Width = 241
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 1185
Height = 37
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label3: TLabel
Left = 20
Top = 12
Width = 48
Height = 12
Caption = #21592#24037#32534#21495
end
object Label6: TLabel
Left = 212
Top = 12
Width = 48
Height = 12
Caption = #30331#24405#21517#31216
end
object Label7: TLabel
Left = 412
Top = 12
Width = 24
Height = 12
Caption = #37096#38376
end
object Label8: TLabel
Left = 585
Top = 12
Width = 48
Height = 12
Caption = #27169#22359#21517#31216
end
object UserId: TEdit
Tag = 2
Left = 70
Top = 9
Width = 127
Height = 20
TabOrder = 0
OnChange = UserIdChange
end
object UserName: TEdit
Tag = 2
Left = 262
Top = 9
Width = 127
Height = 20
TabOrder = 1
OnChange = UserIdChange
end
object UDPName: TEdit
Tag = 2
Left = 437
Top = 9
Width = 127
Height = 20
TabOrder = 2
OnChange = UserIdChange
end
object UFormName: TEdit
Tag = 2
Left = 635
Top = 9
Width = 127
Height = 20
TabOrder = 3
OnChange = UserIdChange
end
end
end
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 680
Top = 8
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_CYZZ.ADOLink
Parameters = <>
Left = 432
Top = 200
end
object ADOQueryMain: TADOQuery
Connection = DataLink_CYZZ.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 464
Top = 200
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_CYZZ.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 496
Top = 200
end
object DataSource1: TDataSource
DataSet = CDS_Main
Left = 600
Top = 8
end
object CDS_Main: TClientDataSet
Aggregates = <>
Params = <>
Left = 636
Top = 8
end
object DataSource2: TDataSource
DataSet = ClientDataSet2
Left = 448
Top = 8
end
object ClientDataSet2: TClientDataSet
Aggregates = <>
Params = <>
Left = 476
Top = 8
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid2
PopupMenus = <>
Left = 504
Top = 8
end
object DataSource3: TDataSource
DataSet = ClientDataSet3
Left = 296
end
object ClientDataSet3: TClientDataSet
Aggregates = <>
Params = <>
Left = 332
end
object cxGridPopupMenu3: TcxGridPopupMenu
Grid = cxGrid3
PopupMenus = <>
Left = 368
end
end

221
发货申请(ShipmentRequest.dll)/U_UserModuleNameList.pas Normal file
View File

@ -0,0 +1,221 @@
unit U_UserModuleNameList; //
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, cxCalendar, cxButtonEdit, cxDropDownEdit,
DBClient, Menus, cxSplitter, cxTextEdit, RM_Common, RM_Class,
RM_GridReport, RM_System, RM_Dataset, RM_e_Xls, dxPSGlbl, dxPSUtl,
dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk,
cxPC;
type
TfrmUserModuleNameList = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
TBExport: TToolButton;
Panel1: TPanel;
CDS_Main: TClientDataSet;
DataSource2: TDataSource;
ClientDataSet2: TClientDataSet;
cxGridPopupMenu2: TcxGridPopupMenu;
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
cxTabSheet3: TcxTabSheet;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
v1ShortName: TcxGridDBColumn;
v1UnitName: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Quantity: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
cxGrid3: TcxGrid;
Tv3: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
DataSource3: TDataSource;
ClientDataSet3: TClientDataSet;
cxGridPopupMenu3: TcxGridPopupMenu;
Panel2: TPanel;
Label1: TLabel;
FormName: TEdit;
Panel3: TPanel;
Label2: TLabel;
DFormName: TEdit;
Panel4: TPanel;
Label3: TLabel;
UserId: TEdit;
Label4: TLabel;
FormNameNote: TEdit;
Label5: TLabel;
DPName: TEdit;
Label6: TLabel;
UserName: TEdit;
Label7: TLabel;
UDPName: TEdit;
Label8: TLabel;
UFormName: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure UserIdChange(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cxPageControl1Change(Sender: TObject);
private
canshu1,canshu2:String;
procedure InitGrid();
procedure InitForm();
{ Private declarations }
public
{ Public declarations }
end;
var
frmUserModuleNameList: TfrmUserModuleNameList;
implementation
uses
U_DataLink,U_RTFun;
{$R *.dfm}
procedure TfrmUserModuleNameList.FormDestroy(Sender: TObject);
begin
frmUserModuleNameList:=nil;
end;
procedure TfrmUserModuleNameList.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmUserModuleNameList.FormCreate(Sender: TObject);
begin
canshu1:=Trim(DParameters1);
canshu2:=Trim(DParameters2);
end;
procedure TfrmUserModuleNameList.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('员工模块列表',Tv1,'系统管理');
WriteCxGrid('部门模块列表',Tv2,'系统管理');
WriteCxGrid('模块列表',Tv3,'系统管理');
end;
procedure TfrmUserModuleNameList.InitGrid();
begin
with ADOQueryMain do
begin
Filtered:=False;
Close;
sql.Clear;
if cxPageControl1.ActivePageIndex=0 then
begin
SQL.Add(' exec P_View_ModuleName ');
end else
if cxPageControl1.ActivePageIndex=1 then
begin
SQL.Add(' exec P_View_DeptModuleName ');
end else
if cxPageControl1.ActivePageIndex=2 then
begin
SQL.Add(' exec P_View_UserModuleName ');
end;
Open;
end;
SCreateCDS(ADOQueryMain,CDS_Main);
SInitCDSData(ADOQueryMain,CDS_Main);
end;
procedure TfrmUserModuleNameList.InitForm();
begin
ReadCxGrid('员工模块列表',Tv1,'系统管理');
ReadCxGrid('部门模块列表',Tv2,'系统管理');
ReadCxGrid('模块列表',Tv3,'系统管理');
cxPageControl1.ActivePageIndex:=0;
//InitGrid();
end;
procedure TfrmUserModuleNameList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
if cxPageControl1.ActivePageIndex=0 then
SDofilter(ADOQueryMain,SGetFilters(Panel2,1,2))
else if cxPageControl1.ActivePageIndex=1 then
SDofilter(ADOQueryMain,SGetFilters(Panel3,1,2))
else if cxPageControl1.ActivePageIndex=2 then
SDofilter(ADOQueryMain,SGetFilters(Panel4,1,2));
SCreateCDS(ADOQueryMain,CDS_Main);
SInitCDSData(ADOQueryMain,CDS_Main);
end;
procedure TfrmUserModuleNameList.TBExportClick(Sender: TObject);
begin
if CDS_Main.IsEmpty then Exit;
if cxPageControl1.ActivePageIndex=0 then
TcxGridToExcel('模块列表',cxGrid3)
else if cxPageControl1.ActivePageIndex=1 then
TcxGridToExcel('部门模块列表',cxGrid2)
else if cxPageControl1.ActivePageIndex=2 then
TcxGridToExcel('员工模块列表',cxGrid1);
end;
procedure TfrmUserModuleNameList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmUserModuleNameList.UserIdChange(Sender: TObject);
begin
if ADOQueryMain.Active=False then Exit;
if cxPageControl1.ActivePageIndex=0 then
SDofilter(ADOQueryMain,SGetFilters(Panel2,1,2))
else if cxPageControl1.ActivePageIndex=1 then
SDofilter(ADOQueryMain,SGetFilters(Panel3,1,2))
else if cxPageControl1.ActivePageIndex=2 then
SDofilter(ADOQueryMain,SGetFilters(Panel4,1,2));
SCreateCDS(ADOQueryMain,CDS_Main);
SInitCDSData(ADOQueryMain,CDS_Main);
end;
procedure TfrmUserModuleNameList.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmUserModuleNameList.cxPageControl1Change(Sender: TObject);
begin
InitGrid();
end;
end.

284
发货申请(ShipmentRequest.dll)/U_ZDYHelp.dfm Normal file
View File

@ -0,0 +1,284 @@
object frmZDYHelp: TfrmZDYHelp
Left = 466
Top = 188
Caption = #39033#30446#32500#25252
ClientHeight = 536
ClientWidth = 481
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object cxGrid1: TcxGrid
Left = 0
Top = 82
Width = 481
Height = 454
Align = alClient
TabOrder = 2
ExplicitTop = 73
ExplicitWidth = 449
ExplicitHeight = 416
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = TV1CellDblClick
DataController.DataSource = DataSource1
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
Styles.Footer = DataLink_ShipmentRequest.Default
Styles.Header = DataLink_ShipmentRequest.Default
object V1Code: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'ZDYNo'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 97
end
object V1OrderNo: TcxGridDBColumn
Caption = #39034#24207#21495
DataBinding.FieldName = 'OrderNo'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 49
end
object V1Name: TcxGridDBColumn
Tag = 2
Caption = #21517#31216
DataBinding.FieldName = 'ZDYName'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 326
end
object V1Note: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1NotePropertiesEditValueChanged
HeaderAlignmentHorz = taCenter
Width = 109
end
object V1ZdyFlag: TcxGridDBColumn
Caption = #26631#24535
DataBinding.FieldName = 'ZdyFlag'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1Column1PropertiesEditValueChanged
Visible = False
HeaderAlignmentHorz = taCenter
Width = 57
end
object V1HelpType: TcxGridDBColumn
Caption = #24110#21161#31867#27604
DataBinding.FieldName = 'HelpType'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1HelpTypePropertiesEditValueChanged
Visible = False
HeaderAlignmentHorz = taCenter
Width = 55
end
object V1ZdyStr1: TcxGridDBColumn
DataBinding.FieldName = 'ZdyStr1'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged
Visible = False
HeaderAlignmentHorz = taCenter
Width = 61
end
object V1ZdyStr2: TcxGridDBColumn
DataBinding.FieldName = 'ZdyStr2'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged
Visible = False
HeaderAlignmentHorz = taCenter
Width = 60
end
object V1ZdyStr3: TcxGridDBColumn
DataBinding.FieldName = 'ZdyStr3'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged
Visible = False
HeaderAlignmentHorz = taCenter
Width = 57
end
object V1ZdyStr4: TcxGridDBColumn
DataBinding.FieldName = 'ZdyStr4'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged
Visible = False
HeaderAlignmentHorz = taCenter
Width = 61
end
object V1ZdyStr5: TcxGridDBColumn
DataBinding.FieldName = 'ZdyStr5'
PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged
Visible = False
HeaderAlignmentHorz = taCenter
Width = 61
end
end
object cxGrid1Level1: TcxGridLevel
GridView = TV1
end
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 481
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
DisabledImages = DataLink_ShipmentRequest.ImageList_new32
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_ShipmentRequest.ImageList_new32
List = True
ParentFont = False
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Left = 0
Top = 0
Caption = #36873#25321
ImageIndex = 12
OnClick = ToolButton1Click
end
object TBAdd: TToolButton
Left = 75
Top = 0
Caption = #22686#34892
ImageIndex = 2
OnClick = TBAddClick
end
object TBDel: TToolButton
Left = 150
Top = 0
Caption = #21024#34892
ImageIndex = 6
OnClick = TBDelClick
end
object TBEdit: TToolButton
Left = 225
Top = 0
Caption = #20462#25913
ImageIndex = 3
OnClick = TBEditClick
end
object TBSave: TToolButton
Left = 300
Top = 0
Caption = #20445#23384
ImageIndex = 16
Visible = False
OnClick = TBSaveClick
end
object TBClose: TToolButton
Left = 375
Top = 0
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 38
Width = 481
Height = 44
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = 16242829
ParentBackground = False
TabOrder = 1
ExplicitTop = 32
object Label1: TLabel
Left = 18
Top = 17
Width = 24
Height = 12
Caption = #21517#31216
end
object Label2: TLabel
Left = 240
Top = 11
Width = 120
Height = 24
Caption = #27880#65306#28966#28857#31163#24320#24403#21069#32534#36753#13#10' '#21333#20803#26684#20445#23384#25968#25454#12290
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentFont = False
end
object ZDYName: TEdit
Tag = 2
Left = 53
Top = 12
Width = 169
Height = 20
TabOrder = 0
OnChange = ZDYNameChange
end
end
object ADOQueryMain: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 48
Top = 136
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 80
Top = 144
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_ShipmentRequest.ADOLink
Parameters = <>
Left = 112
Top = 152
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 280
Top = 144
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
Params = <>
Left = 208
Top = 144
end
object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 168
Top = 152
end
end

Some files were not shown because too many files have changed in this diff Show More