0
This commit is contained in:
DESKTOP-E401PHE\Administrator
commit
237de1c308
11
.gitignore
vendored
Normal file
11
.gitignore
vendored
Normal file
|
|
@ -0,0 +1,11 @@
|
||||||
|
**/layout
|
||||||
|
**/report
|
||||||
|
**/实施文件
|
||||||
|
**/image
|
||||||
|
**/doc
|
||||||
|
*.dll
|
||||||
|
*.ddp
|
||||||
|
*.dcu
|
||||||
|
*.~pas
|
||||||
|
*.~dfm
|
||||||
|
*.~ddp
|
||||||
3
发货申请(ShipmentRequest.dll)/Desktop.ini
Normal file
3
发货申请(ShipmentRequest.dll)/Desktop.ini
Normal file
|
|
@ -0,0 +1,3 @@
|
||||||
|
[.ShellClassInfo]
|
||||||
|
IconFile=C:\Program Files (x86)\360\360WangPan\new_desktop_win7.ico
|
||||||
|
IconIndex=0
|
||||||
2
发货申请(ShipmentRequest.dll)/FieldExportSet/库存查询.INI
Normal file
2
发货申请(ShipmentRequest.dll)/FieldExportSet/库存查询.INI
Normal file
|
|
@ -0,0 +1,2 @@
|
||||||
|
[导出设置]
|
||||||
|
导出字段=Begin/选择/计划单号/入库单号/框号/匹数/重量/米数/码数
|
||||||
2
发货申请(ShipmentRequest.dll)/FieldExportSet/托盘库存查询.INI
Normal file
2
发货申请(ShipmentRequest.dll)/FieldExportSet/托盘库存查询.INI
Normal file
|
|
@ -0,0 +1,2 @@
|
||||||
|
[导出设置]
|
||||||
|
导出字段=Begin/选择/计划单号/入库单号/框号/匹数/重量/米数/码数
|
||||||
2
发货申请(ShipmentRequest.dll)/FieldExportSet/明细库存查询.INI
Normal file
2
发货申请(ShipmentRequest.dll)/FieldExportSet/明细库存查询.INI
Normal file
|
|
@ -0,0 +1,2 @@
|
||||||
|
[导出设置]
|
||||||
|
导出字段=Begin/选择/客户款号/入库单号/客户/计划单号/中文名称/颜色/花型/门幅/克重/条码/框号/缸号/卷号/类型/重量/米数/码数/库位
|
||||||
2
发货申请(ShipmentRequest.dll)/FieldExportSet/颜色库存查询.INI
Normal file
2
发货申请(ShipmentRequest.dll)/FieldExportSet/颜色库存查询.INI
Normal file
|
|
@ -0,0 +1,2 @@
|
||||||
|
[导出设置]
|
||||||
|
导出字段=Begin/选择/计划单号/花型/色号/颜色/匹数/重量/米数/码数
|
||||||
4
发货申请(ShipmentRequest.dll)/File.INI
Normal file
4
发货申请(ShipmentRequest.dll)/File.INI
Normal file
|
|
@ -0,0 +1,4 @@
|
||||||
|
[生产车间配置]
|
||||||
|
卷条码机台标志=99
|
||||||
|
成品DLL文件=CYZZ.dll
|
||||||
|
成品DLL调用号=11
|
||||||
7
发货申请(ShipmentRequest.dll)/FileHelp.ini
Normal file
7
发货申请(ShipmentRequest.dll)/FileHelp.ini
Normal 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
7
发货申请(ShipmentRequest.dll)/JCYData.INI
Normal file
|
|
@ -0,0 +1,7 @@
|
||||||
|
[系统配置]
|
||||||
|
串口号=com1
|
||||||
|
波特率=9600
|
||||||
|
校验位=0
|
||||||
|
数据位=8
|
||||||
|
停止位=0
|
||||||
|
频率=100
|
||||||
7
发货申请(ShipmentRequest.dll)/JZCRS323C.INI
Normal file
7
发货申请(ShipmentRequest.dll)/JZCRS323C.INI
Normal file
|
|
@ -0,0 +1,7 @@
|
||||||
|
[系统配置]
|
||||||
|
串口号=com2
|
||||||
|
波特率=1200
|
||||||
|
校验位=0
|
||||||
|
数据位=8
|
||||||
|
停止位=0
|
||||||
|
频率=100
|
||||||
0
发货申请(ShipmentRequest.dll)/JZCRS323CList.txt
Normal file
0
发货申请(ShipmentRequest.dll)/JZCRS323CList.txt
Normal file
20
发货申请(ShipmentRequest.dll)/ProjectGroup1.bpg
Normal file
20
发货申请(ShipmentRequest.dll)/ProjectGroup1.bpg
Normal 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)
|
||||||
|
|
||||||
|
|
||||||
23
发货申请(ShipmentRequest.dll)/ProjectGroup1.~bpg
Normal file
23
发货申请(ShipmentRequest.dll)/ProjectGroup1.~bpg
Normal 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
3
发货申请(ShipmentRequest.dll)/SYSTEMSET.ini
Normal file
|
|
@ -0,0 +1,3 @@
|
||||||
|
[SERVER]
|
||||||
|
服务器地址=172.168.1.246
|
||||||
|
软件名称=欣戈纺织
|
||||||
42
发货申请(ShipmentRequest.dll)/ShipmentRequest.cfg
Normal file
42
发货申请(ShipmentRequest.dll)/ShipmentRequest.cfg
Normal 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
138
发货申请(ShipmentRequest.dll)/ShipmentRequest.dof
Normal 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:\Dp7Repo\项目代码\振永\发货申请(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
|
||||||
47
发货申请(ShipmentRequest.dll)/ShipmentRequest.dpr
Normal file
47
发货申请(ShipmentRequest.dll)/ShipmentRequest.dpr
Normal file
|
|
@ -0,0 +1,47 @@
|
||||||
|
library ShipmentRequest;
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils,
|
||||||
|
classes,
|
||||||
|
forms,
|
||||||
|
WinTypes,
|
||||||
|
WinProcs,
|
||||||
|
U_GetDllForm in 'U_GetDllForm.pas',
|
||||||
|
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.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_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
||||||
|
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
||||||
|
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
||||||
|
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
||||||
|
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew};
|
||||||
|
|
||||||
|
{$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.
|
||||||
|
|
||||||
BIN
发货申请(ShipmentRequest.dll)/ShipmentRequest.res
Normal file
BIN
发货申请(ShipmentRequest.dll)/ShipmentRequest.res
Normal file
Binary file not shown.
47
发货申请(ShipmentRequest.dll)/ShipmentRequest.~dpr
Normal file
47
发货申请(ShipmentRequest.dll)/ShipmentRequest.~dpr
Normal file
|
|
@ -0,0 +1,47 @@
|
||||||
|
library ShipmentRequest;
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils,
|
||||||
|
classes,
|
||||||
|
forms,
|
||||||
|
WinTypes,
|
||||||
|
WinProcs,
|
||||||
|
U_GetDllForm in 'U_GetDllForm.pas',
|
||||||
|
U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.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_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
|
||||||
|
U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
|
||||||
|
U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
|
||||||
|
U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
|
||||||
|
U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew};
|
||||||
|
|
||||||
|
{$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.
|
||||||
|
|
||||||
BIN
发货申请(ShipmentRequest.dll)/Statistics.res
Normal file
BIN
发货申请(ShipmentRequest.dll)/Statistics.res
Normal file
Binary file not shown.
902
发货申请(ShipmentRequest.dll)/U_CKProductBCPKCListSel.dfm
Normal file
902
发货申请(ShipmentRequest.dll)/U_CKProductBCPKCListSel.dfm
Normal file
|
|
@ -0,0 +1,902 @@
|
||||||
|
object frmCKProductBCPKCListSel: TfrmCKProductBCPKCListSel
|
||||||
|
Left = 483
|
||||||
|
Top = 207
|
||||||
|
Width = 1323
|
||||||
|
Height = 610
|
||||||
|
Caption = #25104#21697#24211#23384#21015#34920
|
||||||
|
Color = clBtnFace
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
OldCreateOrder = False
|
||||||
|
WindowState = wsMaximized
|
||||||
|
OnClose = FormClose
|
||||||
|
OnCreate = FormCreate
|
||||||
|
OnDestroy = FormDestroy
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 12
|
||||||
|
object ToolBar1: TToolBar
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1307
|
||||||
|
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 ToolButton1: TToolButton
|
||||||
|
Left = 63
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #30830#35748
|
||||||
|
ImageIndex = 10
|
||||||
|
OnClick = ToolButton1Click
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 126
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid2: TcxGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 125
|
||||||
|
Width = 1307
|
||||||
|
Height = 447
|
||||||
|
Align = alClient
|
||||||
|
PopupMenu = PopupMenu1
|
||||||
|
TabOrder = 3
|
||||||
|
object Tv1: TcxGridDBTableView
|
||||||
|
OnMouseUp = Tv1MouseUp
|
||||||
|
NavigatorButtons.ConfirmDelete = False
|
||||||
|
OnCellDblClick = Tv1CellDblClick
|
||||||
|
DataController.DataSource = DataSource1
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skCount
|
||||||
|
Column = v1Column6
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2Column5
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v2Column6
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = v1Column18
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsData.Deleting = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
OptionsView.Indicator = True
|
||||||
|
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
object v1Column12: TcxGridDBColumn
|
||||||
|
Caption = #36873#25321
|
||||||
|
DataBinding.FieldName = 'SSel'
|
||||||
|
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.NullStyle = nssUnchecked
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 53
|
||||||
|
end
|
||||||
|
object v1Column14: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143
|
||||||
|
DataBinding.FieldName = 'CustomerNoName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 90
|
||||||
|
end
|
||||||
|
object v1Column10: TcxGridDBColumn
|
||||||
|
Caption = #35746#21333#21495
|
||||||
|
DataBinding.FieldName = 'ConNo'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 87
|
||||||
|
end
|
||||||
|
object v1Column1: TcxGridDBColumn
|
||||||
|
Caption = #25351#31034#21333#21495
|
||||||
|
DataBinding.FieldName = 'orderNo'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 74
|
||||||
|
end
|
||||||
|
object v2Column1: TcxGridDBColumn
|
||||||
|
Caption = #20013#25991#21517#31216
|
||||||
|
DataBinding.FieldName = 'MPRTCodeName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 127
|
||||||
|
end
|
||||||
|
object v2Column3: TcxGridDBColumn
|
||||||
|
Caption = #39068#33394
|
||||||
|
DataBinding.FieldName = 'PRTColor'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 77
|
||||||
|
end
|
||||||
|
object v1Column8: TcxGridDBColumn
|
||||||
|
Caption = #38376#24133
|
||||||
|
DataBinding.FieldName = 'MPRTMF'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object v1Column9: TcxGridDBColumn
|
||||||
|
Caption = #20811#37325
|
||||||
|
DataBinding.FieldName = 'MPRTKZ'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 59
|
||||||
|
end
|
||||||
|
object v1Column6: TcxGridDBColumn
|
||||||
|
Caption = #26465#30721
|
||||||
|
DataBinding.FieldName = 'MJID'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 92
|
||||||
|
end
|
||||||
|
object v1Column13: TcxGridDBColumn
|
||||||
|
Caption = #26694#21495
|
||||||
|
DataBinding.FieldName = 'KuangHao'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 63
|
||||||
|
end
|
||||||
|
object v1Column2: TcxGridDBColumn
|
||||||
|
Caption = #32568#21495
|
||||||
|
DataBinding.FieldName = 'GANGHAO'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 62
|
||||||
|
end
|
||||||
|
object v1Column4: TcxGridDBColumn
|
||||||
|
Caption = #21367#21495
|
||||||
|
DataBinding.FieldName = 'MJXH'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 59
|
||||||
|
end
|
||||||
|
object v1Column3: TcxGridDBColumn
|
||||||
|
Caption = #31867#22411
|
||||||
|
DataBinding.FieldName = 'CPType'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 63
|
||||||
|
end
|
||||||
|
object v2Column5: TcxGridDBColumn
|
||||||
|
Caption = #27611#37325
|
||||||
|
DataBinding.FieldName = 'KGQty'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 83
|
||||||
|
end
|
||||||
|
object v1Column18: TcxGridDBColumn
|
||||||
|
Caption = #20928#37325
|
||||||
|
DataBinding.FieldName = 'NETKGQty'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
end
|
||||||
|
object v2Column6: TcxGridDBColumn
|
||||||
|
Caption = #24211#23384#25968#37327
|
||||||
|
DataBinding.FieldName = 'Qty'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 85
|
||||||
|
end
|
||||||
|
object v1Column7: TcxGridDBColumn
|
||||||
|
Caption = #25968#37327#21333#20301
|
||||||
|
DataBinding.FieldName = 'QtyUnit'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 103
|
||||||
|
end
|
||||||
|
object v1Column5: TcxGridDBColumn
|
||||||
|
Caption = #20837#24211#21333#21495
|
||||||
|
DataBinding.FieldName = 'RKOrdID'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 71
|
||||||
|
end
|
||||||
|
object v1Column11: TcxGridDBColumn
|
||||||
|
Caption = #20837#24211#26102#38388
|
||||||
|
DataBinding.FieldName = 'CRTime'
|
||||||
|
PropertiesClassName = 'TcxDateEditProperties'
|
||||||
|
Properties.SaveTime = False
|
||||||
|
Properties.ShowTime = False
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 91
|
||||||
|
end
|
||||||
|
object v1Column16: TcxGridDBColumn
|
||||||
|
Caption = #24211#20301
|
||||||
|
DataBinding.FieldName = 'KuWei'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid2Level1: TcxGridLevel
|
||||||
|
GridView = Tv1
|
||||||
|
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 = 4
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Panel6: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 97
|
||||||
|
Width = 1307
|
||||||
|
Height = 28
|
||||||
|
Align = alTop
|
||||||
|
AutoSize = True
|
||||||
|
BorderStyle = bsSingle
|
||||||
|
TabOrder = 2
|
||||||
|
DesignSize = (
|
||||||
|
1303
|
||||||
|
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
|
||||||
|
ItemHeight = 12
|
||||||
|
ItemIndex = 0
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
Text = '500'
|
||||||
|
OnChange = TCBNORChange
|
||||||
|
Items.Strings = (
|
||||||
|
'500'
|
||||||
|
'1000'
|
||||||
|
'5000'
|
||||||
|
'10000'
|
||||||
|
'30000')
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 33
|
||||||
|
Width = 1307
|
||||||
|
Height = 64
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Color = clSkyBlue
|
||||||
|
TabOrder = 1
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 193
|
||||||
|
Top = 12
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #20013#25991#21517#31216
|
||||||
|
end
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 1172
|
||||||
|
Top = 68
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #26597#35810#26102#38388
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 1200
|
||||||
|
Top = 96
|
||||||
|
Width = 12
|
||||||
|
Height = 12
|
||||||
|
Caption = #33267
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 22
|
||||||
|
Top = 12
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #25351#31034#21333#21495
|
||||||
|
end
|
||||||
|
object Label6: TLabel
|
||||||
|
Left = 22
|
||||||
|
Top = 36
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #26465' '#30721
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 805
|
||||||
|
Top = 36
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #20811#37325
|
||||||
|
end
|
||||||
|
object Label9: TLabel
|
||||||
|
Left = 805
|
||||||
|
Top = 12
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #38376#24133
|
||||||
|
end
|
||||||
|
object Label7: TLabel
|
||||||
|
Left = 508
|
||||||
|
Top = 36
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #31867#22411
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 358
|
||||||
|
Top = 12
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #39068#33394
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 216
|
||||||
|
Top = 36
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #32568#21495
|
||||||
|
end
|
||||||
|
object Label15: TLabel
|
||||||
|
Left = 649
|
||||||
|
Top = 12
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #24211' '#20301
|
||||||
|
end
|
||||||
|
object Label11: TLabel
|
||||||
|
Left = 649
|
||||||
|
Top = 36
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #35746' '#21333' '#21495
|
||||||
|
end
|
||||||
|
object Label12: TLabel
|
||||||
|
Left = 941
|
||||||
|
Top = 12
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #20837#24211#21333#21495
|
||||||
|
end
|
||||||
|
object Label13: TLabel
|
||||||
|
Left = 358
|
||||||
|
Top = 36
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #26694#21495
|
||||||
|
end
|
||||||
|
object Label14: TLabel
|
||||||
|
Left = 508
|
||||||
|
Top = 12
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #23458#25143
|
||||||
|
end
|
||||||
|
object MPRTCodeName: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 242
|
||||||
|
Top = 8
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 1
|
||||||
|
OnKeyPress = MPRTCodeNameKeyPress
|
||||||
|
end
|
||||||
|
object BegDate: TDateTimePicker
|
||||||
|
Left = 1221
|
||||||
|
Top = 65
|
||||||
|
Width = 87
|
||||||
|
Height = 20
|
||||||
|
Date = 40768.458268587970000000
|
||||||
|
Time = 40768.458268587970000000
|
||||||
|
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 9
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object EndDate: TDateTimePicker
|
||||||
|
Left = 1221
|
||||||
|
Top = 89
|
||||||
|
Width = 87
|
||||||
|
Height = 20
|
||||||
|
Date = 40768.458268587970000000
|
||||||
|
Time = 40768.458268587970000000
|
||||||
|
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 10
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object orderNo: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 72
|
||||||
|
Top = 8
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 0
|
||||||
|
OnKeyPress = MPRTCodeNameKeyPress
|
||||||
|
end
|
||||||
|
object MJID: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 72
|
||||||
|
Top = 32
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 5
|
||||||
|
OnKeyPress = MPRTCodeNameKeyPress
|
||||||
|
end
|
||||||
|
object MPRTKZ: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 831
|
||||||
|
Top = 32
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 6
|
||||||
|
OnKeyPress = MPRTCodeNameKeyPress
|
||||||
|
end
|
||||||
|
object MPRTMF: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 831
|
||||||
|
Top = 8
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 7
|
||||||
|
OnKeyPress = MPRTCodeNameKeyPress
|
||||||
|
end
|
||||||
|
object CPType: TComboBox
|
||||||
|
Tag = 2
|
||||||
|
Left = 535
|
||||||
|
Top = 32
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
Style = csDropDownList
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
ItemHeight = 12
|
||||||
|
TabOrder = 8
|
||||||
|
OnKeyPress = CPTypeKeyPress
|
||||||
|
Items.Strings = (
|
||||||
|
#27491#21697
|
||||||
|
#27425#21697
|
||||||
|
#22810#25340
|
||||||
|
''
|
||||||
|
''
|
||||||
|
'')
|
||||||
|
end
|
||||||
|
object RKplace: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 698
|
||||||
|
Top = 8
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 4
|
||||||
|
OnKeyPress = MPRTCodeNameKeyPress
|
||||||
|
end
|
||||||
|
object PRTColor: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 382
|
||||||
|
Top = 8
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 2
|
||||||
|
OnKeyPress = MPRTCodeNameKeyPress
|
||||||
|
end
|
||||||
|
object GANGHAO: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 243
|
||||||
|
Top = 32
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 3
|
||||||
|
OnKeyPress = MPRTCodeNameKeyPress
|
||||||
|
end
|
||||||
|
object ConNo: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 698
|
||||||
|
Top = 32
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 11
|
||||||
|
OnKeyPress = MPRTCodeNameKeyPress
|
||||||
|
end
|
||||||
|
object RKOrdID: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 992
|
||||||
|
Top = 8
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 12
|
||||||
|
OnKeyPress = MPRTCodeNameKeyPress
|
||||||
|
end
|
||||||
|
object KuangHao: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 382
|
||||||
|
Top = 32
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 13
|
||||||
|
OnKeyPress = MPRTCodeNameKeyPress
|
||||||
|
end
|
||||||
|
object CustomerNoName: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 535
|
||||||
|
Top = 8
|
||||||
|
Width = 90
|
||||||
|
Height = 20
|
||||||
|
ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 14
|
||||||
|
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 = 1148
|
||||||
|
Top = 76
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_ShipmentRequest.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 1052
|
||||||
|
Top = 212
|
||||||
|
end
|
||||||
|
object DataSource1: TDataSource
|
||||||
|
DataSet = CDS_Main
|
||||||
|
Left = 912
|
||||||
|
Top = 200
|
||||||
|
end
|
||||||
|
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid2
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 848
|
||||||
|
Top = 208
|
||||||
|
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
|
||||||
|
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 = 796
|
||||||
|
Top = 204
|
||||||
|
end
|
||||||
|
object ADOQueryPrint: TADOQuery
|
||||||
|
Connection = DataLink_ShipmentRequest.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 1096
|
||||||
|
Top = 180
|
||||||
|
end
|
||||||
|
object RM2: 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 = 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 = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, 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 = 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
|
||||||
295
发货申请(ShipmentRequest.dll)/U_CKProductBCPKCListSel.pas
Normal file
295
发货申请(ShipmentRequest.dll)/U_CKProductBCPKCListSel.pas
Normal file
|
|
@ -0,0 +1,295 @@
|
||||||
|
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;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmCKProductBCPKCListSel = class(TForm)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBRafresh: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
DataSource1: TDataSource;
|
||||||
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||||
|
CDS_Main: TClientDataSet;
|
||||||
|
Tv1: TcxGridDBTableView;
|
||||||
|
cxGrid2Level1: TcxGridLevel;
|
||||||
|
cxGrid2: TcxGrid;
|
||||||
|
v2Column1: TcxGridDBColumn;
|
||||||
|
v2Column3: TcxGridDBColumn;
|
||||||
|
v2Column5: TcxGridDBColumn;
|
||||||
|
v2Column6: TcxGridDBColumn;
|
||||||
|
v1Column1: TcxGridDBColumn;
|
||||||
|
v1Column7: TcxGridDBColumn;
|
||||||
|
v1Column6: TcxGridDBColumn;
|
||||||
|
v1Column8: TcxGridDBColumn;
|
||||||
|
v1Column9: TcxGridDBColumn;
|
||||||
|
v1Column3: TcxGridDBColumn;
|
||||||
|
v1Column2: TcxGridDBColumn;
|
||||||
|
v1Column4: TcxGridDBColumn;
|
||||||
|
MovePanel2: TMovePanel;
|
||||||
|
v1Column11: TcxGridDBColumn;
|
||||||
|
v1Column12: TcxGridDBColumn;
|
||||||
|
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;
|
||||||
|
v1Column16: TcxGridDBColumn;
|
||||||
|
CDS_HZ: TClientDataSet;
|
||||||
|
CDS_PRT: TClientDataSet;
|
||||||
|
RM3: TRMGridReport;
|
||||||
|
RMDBHZ: TRMDBDataSet;
|
||||||
|
RMDBPRT: TRMDBDataSet;
|
||||||
|
Panel6: TPanel;
|
||||||
|
Label31: TLabel;
|
||||||
|
LBCPAP: TLabel;
|
||||||
|
BTLP: TButton;
|
||||||
|
BTNP: TButton;
|
||||||
|
TCBNOR: TComboBox;
|
||||||
|
v1Column18: TcxGridDBColumn;
|
||||||
|
Panel1: TPanel;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
Label6: TLabel;
|
||||||
|
Label8: TLabel;
|
||||||
|
Label9: TLabel;
|
||||||
|
Label7: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label10: TLabel;
|
||||||
|
Label15: TLabel;
|
||||||
|
MPRTCodeName: TEdit;
|
||||||
|
BegDate: TDateTimePicker;
|
||||||
|
EndDate: TDateTimePicker;
|
||||||
|
orderNo: TEdit;
|
||||||
|
MJID: TEdit;
|
||||||
|
MPRTKZ: TEdit;
|
||||||
|
MPRTMF: TEdit;
|
||||||
|
CPType: TComboBox;
|
||||||
|
RKplace: TEdit;
|
||||||
|
PRTColor: TEdit;
|
||||||
|
v1Column5: TcxGridDBColumn;
|
||||||
|
GANGHAO: TEdit;
|
||||||
|
v1Column10: TcxGridDBColumn;
|
||||||
|
Label11: TLabel;
|
||||||
|
ConNo: TEdit;
|
||||||
|
Label12: TLabel;
|
||||||
|
RKOrdID: TEdit;
|
||||||
|
Label13: TLabel;
|
||||||
|
KuangHao: TEdit;
|
||||||
|
v1Column13: TcxGridDBColumn;
|
||||||
|
v1Column14: TcxGridDBColumn;
|
||||||
|
Label14: TLabel;
|
||||||
|
CustomerNoName: TEdit;
|
||||||
|
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 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_Fun, 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
|
||||||
|
fwhere, Pwhere: string;
|
||||||
|
begin
|
||||||
|
MovePanel2.Left := (self.Width - MovePanel2.Width) div 2;
|
||||||
|
MovePanel2.Visible := True;
|
||||||
|
MovePanel2.Refresh;
|
||||||
|
Pwhere := SGetFilters(Panel1, 1, 2);
|
||||||
|
if trim(Pwhere) <> '' then
|
||||||
|
fwhere := fwhere + ' where ' + trim(Pwhere);
|
||||||
|
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Filtered := False;
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('exec P_Page_FinishClothKC ');
|
||||||
|
sql.Add('@pageIndex=' + inttostr(CurrentPage));
|
||||||
|
sql.Add(',@pageSize=' + inttostr(RecordsNumber));
|
||||||
|
sql.Add(',@criteria= ' + quotedstr(fwhere));
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS20(ADOQueryMain, CDS_Main);
|
||||||
|
SInitCDSData20(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
|
||||||
|
SelOKNo(CDS_Main, True);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCKProductBCPKCListSel.N2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelOKNo(CDS_Main, 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.
|
||||||
|
|
||||||
1156
发货申请(ShipmentRequest.dll)/U_CPKCCX.dfm
Normal file
1156
发货申请(ShipmentRequest.dll)/U_CPKCCX.dfm
Normal file
File diff suppressed because it is too large
Load Diff
1097
发货申请(ShipmentRequest.dll)/U_CPKCCX.pas
Normal file
1097
发货申请(ShipmentRequest.dll)/U_CPKCCX.pas
Normal file
File diff suppressed because it is too large
Load Diff
622
发货申请(ShipmentRequest.dll)/U_CPKCHZSel.dfm
Normal file
622
发货申请(ShipmentRequest.dll)/U_CPKCHZSel.dfm
Normal 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
314
发货申请(ShipmentRequest.dll)/U_CPKCHZSel.pas
Normal 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_Fun, 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;
|
||||||
|
SCreateCDS20(ADOQueryMain, CDS_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain, CDS_Main);
|
||||||
|
SInitCDSData20(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
527
发货申请(ShipmentRequest.dll)/U_CPManageFMSel.dfm
Normal 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
471
发货申请(ShipmentRequest.dll)/U_CPManageFMSel.pas
Normal 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_Fun,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;
|
||||||
|
SCreateCDS20(ADOQueryTree20,ADOQueryTree);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp,CDS_CYNO);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||||
|
SInitCDSData20(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
784
发货申请(ShipmentRequest.dll)/U_ClothSCListSel.dfm
Normal 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
794
发货申请(ShipmentRequest.dll)/U_ClothSCListSel.pas
Normal 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_Fun, 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;
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothSCList.InitForm();
|
||||||
|
begin
|
||||||
|
InitButton();
|
||||||
|
ReadCxGrid('坯布生产计划单', Tv1, '坯布生产管理');
|
||||||
|
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7;
|
||||||
|
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothSCList.TBFindClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_PZ);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_SJ);
|
||||||
|
j := 0;
|
||||||
|
k := 1;
|
||||||
|
if ADOQueryTemp.RecordCount < 2 then
|
||||||
|
begin
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_PRT);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, ClientDataSet1);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_PZ);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_SJ);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_PRT);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, ClientDataSet1);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_WJG);
|
||||||
|
SInitCDSData20(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
517
发货申请(ShipmentRequest.dll)/U_ClothSCYWYListSel.dfm
Normal 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
282
发货申请(ShipmentRequest.dll)/U_ClothSCYWYListSel.pas
Normal 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_Fun;
|
||||||
|
|
||||||
|
{$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;
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothSCYWYListSel.InitForm();
|
||||||
|
begin
|
||||||
|
InitButton();
|
||||||
|
ReadCxGrid(Self.Caption, Tv1, '坯布生产管理');
|
||||||
|
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7;
|
||||||
|
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmClothSCYWYListSel.TBFindClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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
872
发货申请(ShipmentRequest.dll)/U_ContractListNXSel.dfm
Normal file
|
|
@ -0,0 +1,872 @@
|
||||||
|
object frmContractListNXSel: TfrmContractListNXSel
|
||||||
|
Left = 223
|
||||||
|
Top = 171
|
||||||
|
Width = 1308
|
||||||
|
Height = 727
|
||||||
|
Align = alClient
|
||||||
|
Caption = #38144#21806#21512#21516
|
||||||
|
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
|
||||||
|
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
|
||||||
|
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 = 75
|
||||||
|
Width = 1292
|
||||||
|
Height = 356
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 2
|
||||||
|
object Tv1: TcxGridDBTableView
|
||||||
|
OnMouseDown = Tv1MouseDown
|
||||||
|
NavigatorButtons.ConfirmDelete = False
|
||||||
|
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.Inactive = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
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
|
||||||
|
Hidden = True
|
||||||
|
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 = 32
|
||||||
|
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.464742650460000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 40675.464742650460000000
|
||||||
|
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.464761099540000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 40675.464761099540000000
|
||||||
|
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
|
||||||
|
ItemHeight = 12
|
||||||
|
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 = 431
|
||||||
|
Width = 1292
|
||||||
|
Height = 8
|
||||||
|
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||||
|
AlignSplitter = salBottom
|
||||||
|
Control = cxGrid2
|
||||||
|
end
|
||||||
|
object cxGrid2: TcxGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 439
|
||||||
|
Width = 1292
|
||||||
|
Height = 250
|
||||||
|
Align = alBottom
|
||||||
|
TabOrder = 4
|
||||||
|
object Tv2: TcxGridDBTableView
|
||||||
|
NavigatorButtons.ConfirmDelete = False
|
||||||
|
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.Inactive = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
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 = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, 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 = 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
|
||||||
343
发货申请(ShipmentRequest.dll)/U_ContractListNXSel.pas
Normal file
343
发货申请(ShipmentRequest.dll)/U_ContractListNXSel.pas
Normal file
|
|
@ -0,0 +1,343 @@
|
||||||
|
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, RM_E_llPDF, cxDropDownEdit, cxTextEdit;
|
||||||
|
|
||||||
|
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_Fun,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;
|
||||||
|
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain,Order_Main);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
procedure TfrmContractListNXSel.InitForm();
|
||||||
|
begin
|
||||||
|
ReadCxGrid('内销合同',Tv1,'生产指示单管理');
|
||||||
|
ReadCxGrid('内销合同11',Tv2,'生产指示单管理');
|
||||||
|
|
||||||
|
EndDate.DateTime:=SGetServerDate10(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));
|
||||||
|
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||||
|
SInitCDSData20(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)+'''');
|
||||||
|
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||||
|
SInitCDSData20(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,'');
|
||||||
|
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp,ClientDataSet2);
|
||||||
|
SInitCDSData20(ADOQueryTemp,ClientDataSet2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmContractListNXSel.Tv2CellDblClick(
|
||||||
|
Sender: TcxCustomGridTableView;
|
||||||
|
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||||||
|
AShift: TShiftState; var AHandled: Boolean);
|
||||||
|
begin
|
||||||
|
ModalResult:=1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
536
发货申请(ShipmentRequest.dll)/U_DCDList_Sel.dfm
Normal file
536
发货申请(ShipmentRequest.dll)/U_DCDList_Sel.dfm
Normal file
|
|
@ -0,0 +1,536 @@
|
||||||
|
object frmDCDList_Sel: TfrmDCDList_Sel
|
||||||
|
Left = 400
|
||||||
|
Top = 255
|
||||||
|
Width = 1121
|
||||||
|
Height = 593
|
||||||
|
Caption = #35746#33329#21333#36873#25321
|
||||||
|
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 = 1105
|
||||||
|
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 ToolButton3: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #36873#25321
|
||||||
|
ImageIndex = 31
|
||||||
|
OnClick = ToolButton3Click
|
||||||
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 63
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21047#26032
|
||||||
|
ImageIndex = 0
|
||||||
|
OnClick = ToolButton1Click
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 126
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 32
|
||||||
|
Width = 1105
|
||||||
|
Height = 77
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Color = clSkyBlue
|
||||||
|
TabOrder = 1
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 23
|
||||||
|
Top = 18
|
||||||
|
Width = 52
|
||||||
|
Height = 12
|
||||||
|
Caption = #26597#35810#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 = 176
|
||||||
|
Top = 45
|
||||||
|
Width = 52
|
||||||
|
Height = 12
|
||||||
|
Caption = #25351#31034#21333#21495
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 176
|
||||||
|
Top = 18
|
||||||
|
Width = 52
|
||||||
|
Height = 12
|
||||||
|
Caption = #35746#33329#21333#21495
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 328
|
||||||
|
Top = 45
|
||||||
|
Width = 39
|
||||||
|
Height = 12
|
||||||
|
Caption = #30446#30340#28207
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 341
|
||||||
|
Top = 18
|
||||||
|
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 BegDate: TDateTimePicker
|
||||||
|
Left = 76
|
||||||
|
Top = 14
|
||||||
|
Width = 85
|
||||||
|
Height = 20
|
||||||
|
Date = 40675.464742650460000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 40675.464742650460000000
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object EndDate: TDateTimePicker
|
||||||
|
Left = 76
|
||||||
|
Top = 40
|
||||||
|
Width = 86
|
||||||
|
Height = 20
|
||||||
|
Date = 40675.464761099540000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 40675.464761099540000000
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object zorderno: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 230
|
||||||
|
Top = 40
|
||||||
|
Width = 83
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 2
|
||||||
|
OnChange = DCNOChange
|
||||||
|
OnKeyPress = DCNOKeyPress
|
||||||
|
end
|
||||||
|
object DCNO: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 231
|
||||||
|
Top = 14
|
||||||
|
Width = 81
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 3
|
||||||
|
OnChange = DCNOChange
|
||||||
|
OnKeyPress = DCNOKeyPress
|
||||||
|
end
|
||||||
|
object TOPlace: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 371
|
||||||
|
Top = 40
|
||||||
|
Width = 83
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 4
|
||||||
|
OnChange = DCNOChange
|
||||||
|
OnKeyPress = DCNOKeyPress
|
||||||
|
end
|
||||||
|
object KHName: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 372
|
||||||
|
Top = 14
|
||||||
|
Width = 81
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 5
|
||||||
|
OnChange = DCNOChange
|
||||||
|
OnKeyPress = DCNOKeyPress
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid1: TcxGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 109
|
||||||
|
Width = 1105
|
||||||
|
Height = 445
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 2
|
||||||
|
object Tv1: TcxGridDBTableView
|
||||||
|
PopupMenu = PopupMenu1
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
DataController.DataSource = DataSource1
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <>
|
||||||
|
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 v1Column14: TcxGridDBColumn
|
||||||
|
Caption = #36873#25321
|
||||||
|
DataBinding.FieldName = 'SSel'
|
||||||
|
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.NullStyle = nssUnchecked
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 44
|
||||||
|
end
|
||||||
|
object v1Column1: TcxGridDBColumn
|
||||||
|
Caption = #35746#33329
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object v1ConNo: TcxGridDBColumn
|
||||||
|
Caption = #25253#20851
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
Width = 73
|
||||||
|
end
|
||||||
|
object v1Column3: TcxGridDBColumn
|
||||||
|
Caption = #35746#33329#21333#32534#21495
|
||||||
|
DataBinding.FieldName = 'DCNO'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 91
|
||||||
|
end
|
||||||
|
object v1Column11: TcxGridDBColumn
|
||||||
|
Caption = #20844#21496
|
||||||
|
DataBinding.FieldName = 'GSNAME'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 71
|
||||||
|
end
|
||||||
|
object v1Column12: TcxGridDBColumn
|
||||||
|
Caption = #20986#36816#26085#26399
|
||||||
|
DataBinding.FieldName = 'CYDATE'
|
||||||
|
PropertiesClassName = 'TcxDateEditProperties'
|
||||||
|
Properties.SaveTime = False
|
||||||
|
Properties.ShowTime = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 67
|
||||||
|
end
|
||||||
|
object v1Column21: TcxGridDBColumn
|
||||||
|
Caption = #21457#31080#21495#30721
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 90
|
||||||
|
end
|
||||||
|
object v1OrdPerson1: TcxGridDBColumn
|
||||||
|
Caption = #25351#31034#21333#21495
|
||||||
|
DataBinding.FieldName = 'ZORDERNO'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
Width = 78
|
||||||
|
end
|
||||||
|
object v1CustomerNoName: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143
|
||||||
|
DataBinding.FieldName = 'KHName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
Width = 76
|
||||||
|
end
|
||||||
|
object v1Column2: TcxGridDBColumn
|
||||||
|
Caption = #35013#36816#28207
|
||||||
|
DataBinding.FieldName = 'FromPlace'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 74
|
||||||
|
end
|
||||||
|
object v1Column10: TcxGridDBColumn
|
||||||
|
Caption = #30446#30340#28207
|
||||||
|
DataBinding.FieldName = 'TOPlace'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 72
|
||||||
|
end
|
||||||
|
object v1Column7: TcxGridDBColumn
|
||||||
|
Caption = #36135#20195
|
||||||
|
DataBinding.FieldName = 'HDName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 91
|
||||||
|
end
|
||||||
|
object v1Column13: TcxGridDBColumn
|
||||||
|
Caption = #33337#20844#21496
|
||||||
|
DataBinding.FieldName = 'ChuanInfo'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object v1Column6: TcxGridDBColumn
|
||||||
|
Caption = #35013#31665#20449#24687
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 92
|
||||||
|
end
|
||||||
|
object v1Column17: TcxGridDBColumn
|
||||||
|
Caption = #24635#25968#37327
|
||||||
|
DataBinding.FieldName = 'ZQTY'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 73
|
||||||
|
end
|
||||||
|
object v1Column18: TcxGridDBColumn
|
||||||
|
Caption = #24635#37329#39069
|
||||||
|
DataBinding.FieldName = 'ZMONEY'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 63
|
||||||
|
end
|
||||||
|
object v1Column19: TcxGridDBColumn
|
||||||
|
Caption = #24635#25910#36141#37329#39069
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 106
|
||||||
|
end
|
||||||
|
object v1Column20: TcxGridDBColumn
|
||||||
|
Caption = #24635#27611#37325
|
||||||
|
DataBinding.FieldName = 'ZMAOZHONG'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 75
|
||||||
|
end
|
||||||
|
object v1Column9: TcxGridDBColumn
|
||||||
|
Caption = #24635#20928#37325
|
||||||
|
DataBinding.FieldName = 'ZJINGZHONG'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 61
|
||||||
|
end
|
||||||
|
object v1Column8: TcxGridDBColumn
|
||||||
|
Caption = #24635#20307#31215
|
||||||
|
DataBinding.FieldName = 'ZTIJI'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 103
|
||||||
|
end
|
||||||
|
object v1FKPayment: TcxGridDBColumn
|
||||||
|
Caption = #24635#20214#25968
|
||||||
|
DataBinding.FieldName = 'ZBZJS'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object v1YJDCDate: TcxGridDBColumn
|
||||||
|
Caption = #22791#22949#26085#26399
|
||||||
|
DataBinding.FieldName = 'BTDATE'
|
||||||
|
PropertiesClassName = 'TcxDateEditProperties'
|
||||||
|
Properties.SaveTime = False
|
||||||
|
Properties.ShowTime = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 87
|
||||||
|
end
|
||||||
|
object v1YJSHDate: TcxGridDBColumn
|
||||||
|
Caption = #36816#36153#25215#20184
|
||||||
|
DataBinding.FieldName = 'YFCF'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Options.Focusing = False
|
||||||
|
Width = 84
|
||||||
|
end
|
||||||
|
object v1EditNote: TcxGridDBColumn
|
||||||
|
Caption = #36816#36755#26041#24335
|
||||||
|
DataBinding.FieldName = 'YSFS'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object v1EditSQTime: TcxGridDBColumn
|
||||||
|
Caption = #21046#21333#26085#26399
|
||||||
|
DataBinding.FieldName = 'FILLTIME'
|
||||||
|
PropertiesClassName = 'TcxDateEditProperties'
|
||||||
|
Properties.SaveTime = False
|
||||||
|
Properties.ShowTime = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object v1LCChuanQ: TcxGridDBColumn
|
||||||
|
Caption = #21046#21333#20154
|
||||||
|
DataBinding.FieldName = 'FILLER'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object v1YiDuanZ: TcxGridDBColumn
|
||||||
|
Caption = #19979#19968#27493#25805#20316#21592
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 83
|
||||||
|
end
|
||||||
|
object v1LCQty: TcxGridDBColumn
|
||||||
|
Caption = #22791#27880
|
||||||
|
DataBinding.FieldName = 'NOTE'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 500
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid1Level1: TcxGridLevel
|
||||||
|
GridView = Tv1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 544
|
||||||
|
Top = 176
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_ShipmentRequest.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 576
|
||||||
|
Top = 280
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_ShipmentRequest.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 552
|
||||||
|
Top = 216
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_ShipmentRequest.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 312
|
||||||
|
Top = 248
|
||||||
|
end
|
||||||
|
object DataSource1: TDataSource
|
||||||
|
DataSet = Order_Main
|
||||||
|
Left = 440
|
||||||
|
Top = 184
|
||||||
|
end
|
||||||
|
object Order_Main: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 464
|
||||||
|
Top = 208
|
||||||
|
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 = 336
|
||||||
|
Top = 200
|
||||||
|
ReportData = {}
|
||||||
|
end
|
||||||
|
object RMDBMain: TRMDBDataSet
|
||||||
|
Visible = True
|
||||||
|
DataSet = CDS_Print
|
||||||
|
Left = 392
|
||||||
|
Top = 200
|
||||||
|
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 = 528
|
||||||
|
Top = 280
|
||||||
|
end
|
||||||
|
object PopupMenu1: TPopupMenu
|
||||||
|
Left = 288
|
||||||
|
Top = 184
|
||||||
|
object N2: TMenuItem
|
||||||
|
Caption = #26377#20379#24212#21830
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ADOQueryPrint: TADOQuery
|
||||||
|
Connection = DataLink_ShipmentRequest.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 360
|
||||||
|
Top = 240
|
||||||
|
end
|
||||||
|
object CDS_Print: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 344
|
||||||
|
Top = 288
|
||||||
|
end
|
||||||
|
end
|
||||||
241
发货申请(ShipmentRequest.dll)/U_DCDList_Sel.pas
Normal file
241
发货申请(ShipmentRequest.dll)/U_DCDList_Sel.pas
Normal file
|
|
@ -0,0 +1,241 @@
|
||||||
|
unit U_DCDList_Sel;
|
||||||
|
|
||||||
|
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, cxLookAndFeels,
|
||||||
|
cxLookAndFeelPainters, cxNavigator;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmDCDList_Sel = class(TForm)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
Panel1: TPanel;
|
||||||
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
DataSource1: TDataSource;
|
||||||
|
Order_Main: TClientDataSet;
|
||||||
|
RM1: TRMGridReport;
|
||||||
|
RMDBMain: TRMDBDataSet;
|
||||||
|
RMXLSExport1: TRMXLSExport;
|
||||||
|
PopupMenu1: TPopupMenu;
|
||||||
|
N2: TMenuItem;
|
||||||
|
ADOQueryPrint: TADOQuery;
|
||||||
|
CDS_Print: TClientDataSet;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
cxGrid1: TcxGrid;
|
||||||
|
Tv1: TcxGridDBTableView;
|
||||||
|
v1Column14: TcxGridDBColumn;
|
||||||
|
v1Column1: TcxGridDBColumn;
|
||||||
|
v1ConNo: TcxGridDBColumn;
|
||||||
|
v1Column3: TcxGridDBColumn;
|
||||||
|
v1Column11: TcxGridDBColumn;
|
||||||
|
v1Column12: TcxGridDBColumn;
|
||||||
|
v1Column21: TcxGridDBColumn;
|
||||||
|
v1OrdPerson1: TcxGridDBColumn;
|
||||||
|
v1CustomerNoName: TcxGridDBColumn;
|
||||||
|
v1Column2: TcxGridDBColumn;
|
||||||
|
v1Column10: TcxGridDBColumn;
|
||||||
|
v1Column7: TcxGridDBColumn;
|
||||||
|
v1Column13: TcxGridDBColumn;
|
||||||
|
v1Column6: TcxGridDBColumn;
|
||||||
|
v1Column17: TcxGridDBColumn;
|
||||||
|
v1Column18: TcxGridDBColumn;
|
||||||
|
v1Column19: TcxGridDBColumn;
|
||||||
|
v1Column20: TcxGridDBColumn;
|
||||||
|
v1Column9: TcxGridDBColumn;
|
||||||
|
v1Column8: TcxGridDBColumn;
|
||||||
|
v1FKPayment: TcxGridDBColumn;
|
||||||
|
v1YJDCDate: TcxGridDBColumn;
|
||||||
|
v1YJSHDate: TcxGridDBColumn;
|
||||||
|
v1EditNote: TcxGridDBColumn;
|
||||||
|
v1EditSQTime: TcxGridDBColumn;
|
||||||
|
v1LCChuanQ: TcxGridDBColumn;
|
||||||
|
v1YiDuanZ: TcxGridDBColumn;
|
||||||
|
v1LCQty: TcxGridDBColumn;
|
||||||
|
cxGrid1Level1: TcxGridLevel;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label4: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
Label3: TLabel;
|
||||||
|
Label5: TLabel;
|
||||||
|
BegDate: TDateTimePicker;
|
||||||
|
EndDate: TDateTimePicker;
|
||||||
|
zorderno: TEdit;
|
||||||
|
DCNO: TEdit;
|
||||||
|
TOPlace: TEdit;
|
||||||
|
KHName: TEdit;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
procedure FormDestroy(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure ToolButton3Click(Sender: TObject);
|
||||||
|
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure ToolButton1Click(Sender: TObject);
|
||||||
|
procedure DCNOChange(Sender: TObject);
|
||||||
|
procedure DCNOKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
private
|
||||||
|
DQdate: TDateTime;
|
||||||
|
procedure InitGrid();
|
||||||
|
procedure InitForm();
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
FFInt, FCloth: Integer;
|
||||||
|
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmDCDList_Sel: TfrmDCDList_Sel;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_Fun;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmDCDList_Sel.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
frmDCDList_Sel := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmDCDList_Sel.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmDCDList_Sel.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cxgrid1.Align := alClient;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmDCDList_Sel.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
WriteCxGrid('指示单列表选择', Tv1, '生产指示单管理');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmDCDList_Sel.InitGrid();
|
||||||
|
begin
|
||||||
|
// if Length(Trim(self.ConNO.Text)) < 3 then
|
||||||
|
// Exit;
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Filtered := False;
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select ');
|
||||||
|
sql.Add('A.*');
|
||||||
|
SQL.Add(',GSNAME=''振永纺织''');
|
||||||
|
SQL.Add(',ZORDERNO=CAST((SELECT STUFF(( SELECT '','' +convert(VARCHAR, FROMORDERNO) FROM JYOrderCon_TT_Sub B WHERE A.TTID=B.TTId FOR XML PATH('''')), 1, 1, '''') )AS VARCHAR)');
|
||||||
|
SQL.Add(',ZQTY=(SELECT SUM(PRTORDERQTY) FROM JYOrderCon_TT_Sub C WHERE A.TTID=C.TTId)');
|
||||||
|
SQL.Add(',ZMONEY=(SELECT SUM(MONEY) FROM JYOrderCon_TT_Sub C WHERE A.TTID=C.TTId)');
|
||||||
|
SQL.Add(',ZMAOZHONG=(SELECT SUM(MAOZHONG) FROM JYOrderCon_TT_Sub C WHERE A.TTID=C.TTId)');
|
||||||
|
SQL.Add(',ZJINGZHONG=(SELECT SUM(JINGZHONG) FROM JYOrderCon_TT_Sub C WHERE A.TTID=C.TTId)');
|
||||||
|
SQL.Add(',ZTIJI=(SELECT SUM(tiji) FROM JYOrderCon_TT_Sub C WHERE A.TTID=C.TTId)');
|
||||||
|
SQL.Add(',ZBZJS=(SELECT SUM(BZJS) FROM JYOrderCon_TT_Sub C WHERE A.TTID=C.TTId)');
|
||||||
|
sql.Add(' from JYOrderCon_TT A ');
|
||||||
|
SQL.Add('where ((FILLTIME>=''' + FormatDateTime('yyyy-MM-dd', BegDate.DateTime) + '''');
|
||||||
|
SQL.Add('and FILLTIME<''' + FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1) + ''') or ChkStatus=''审核不通过'') ');
|
||||||
|
|
||||||
|
if DCNO.Text <> '' then
|
||||||
|
begin
|
||||||
|
SQL.Add('AND dcno like' + quotedstr('%' + trim(DCNO.text) + '%'));
|
||||||
|
end;
|
||||||
|
if KHName.Text <> '' then
|
||||||
|
begin
|
||||||
|
SQL.Add('AND KHName like' + quotedstr('%' + trim(KHName.text) + '%'));
|
||||||
|
end;
|
||||||
|
if zorderno.Text <> '' then
|
||||||
|
begin
|
||||||
|
SQL.Add('AND CAST((SELECT STUFF(( SELECT '','' +convert(VARCHAR, FROMORDERNO) FROM JYOrderCon_TT_Sub B WHERE A.TTID=B.TTId FOR XML PATH('''')), 1, 1, '''') )AS VARCHAR) like' + quotedstr('%' + trim(zorderno.text) + '%'));
|
||||||
|
end;
|
||||||
|
if TOPlace.Text <> '' then
|
||||||
|
begin
|
||||||
|
SQL.Add('AND TOPlace like' + quotedstr('%' + trim(TOPlace.text) + '%'));
|
||||||
|
end;
|
||||||
|
SQL.Add('ORDER BY FILLTIME DESC');
|
||||||
|
// else if cxTabControl1.TabIndex = 1 then
|
||||||
|
// begin
|
||||||
|
// SQL.Add('AND ISNULL(SChkFlag,0)=1 AND ISNULL(ChkStatus,0)=0 ');
|
||||||
|
// end
|
||||||
|
// else if cxTabControl1.TabIndex = 2 then
|
||||||
|
// begin
|
||||||
|
// SQL.Add(' AND ChkStatus=1 ');
|
||||||
|
// end;
|
||||||
|
//ShowMessage(SQL.Text);
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmDCDList_Sel.InitForm();
|
||||||
|
begin
|
||||||
|
BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90;
|
||||||
|
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
|
||||||
|
ReadCxGrid('指示单列表选择', Tv1, '生产指示单管理');
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmDCDList_Sel.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitForm();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmDCDList_Sel.ToolButton3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ModalResult := 1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmDCDList_Sel.OrderNoKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
begin
|
||||||
|
if Key = #13 then
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmDCDList_Sel.ToolButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmDCDList_Sel.DCNOChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
// InitGrid();
|
||||||
|
// if ADOQueryMain.Active then
|
||||||
|
// begin
|
||||||
|
// SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
// SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
// SInitCDSData20(ADOQueryMain, Order_Main);
|
||||||
|
// end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmDCDList_Sel.DCNOKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
begin
|
||||||
|
if Key = #13 then
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
17985
发货申请(ShipmentRequest.dll)/U_DataLink.dfm
Normal file
17985
发货申请(ShipmentRequest.dll)/U_DataLink.dfm
Normal file
File diff suppressed because it is too large
Load Diff
73
发货申请(ShipmentRequest.dll)/U_DataLink.pas
Normal file
73
发货申请(ShipmentRequest.dll)/U_DataLink.pas
Normal file
|
|
@ -0,0 +1,73 @@
|
||||||
|
unit U_DataLink;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
|
||||||
|
Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore,
|
||||||
|
dxSkinsDefaultPainters;
|
||||||
|
|
||||||
|
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;
|
||||||
|
|
||||||
|
type
|
||||||
|
TDataLink_ShipmentRequest = class(TDataModule)
|
||||||
|
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;
|
||||||
|
procedure DataModuleDestroy(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;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TDataLink_ShipmentRequest.DataModuleDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
DataLink_ShipmentRequest := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
587
发货申请(ShipmentRequest.dll)/U_FHSQInPut.dfm
Normal file
587
发货申请(ShipmentRequest.dll)/U_FHSQInPut.dfm
Normal file
|
|
@ -0,0 +1,587 @@
|
||||||
|
object frmFHSQInPut: TfrmFHSQInPut
|
||||||
|
Left = 156
|
||||||
|
Top = 93
|
||||||
|
Width = 1268
|
||||||
|
Height = 683
|
||||||
|
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 = 1252
|
||||||
|
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 = 1252
|
||||||
|
Height = 95
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvNone
|
||||||
|
BevelOuter = bvNone
|
||||||
|
Color = clBtnFace
|
||||||
|
Ctl3D = False
|
||||||
|
ParentColor = False
|
||||||
|
ParentCtl3D = False
|
||||||
|
TabOrder = 1
|
||||||
|
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 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 = 456
|
||||||
|
Top = 42
|
||||||
|
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 Label3: TLabel
|
||||||
|
Left = 245
|
||||||
|
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 = 699
|
||||||
|
Top = 42
|
||||||
|
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
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 699
|
||||||
|
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 = 698
|
||||||
|
Top = 69
|
||||||
|
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 Label6: TLabel
|
||||||
|
Left = 901
|
||||||
|
Top = 13
|
||||||
|
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 = 901
|
||||||
|
Top = 41
|
||||||
|
Width = 65
|
||||||
|
Height = 12
|
||||||
|
Caption = #35746#33329#21333#21495#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
|
||||||
|
ItemHeight = 12
|
||||||
|
ItemIndex = 0
|
||||||
|
TabOrder = 0
|
||||||
|
Text = #38144#21806#20986#24211
|
||||||
|
Items.Strings = (
|
||||||
|
#38144#21806#20986#24211
|
||||||
|
#23492#26679#20986#24211)
|
||||||
|
end
|
||||||
|
object Note: TEdit
|
||||||
|
Tag = 1
|
||||||
|
Left = 96
|
||||||
|
Top = 66
|
||||||
|
Width = 560
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object SHDanWei: TBtnEditC
|
||||||
|
Tag = 1
|
||||||
|
Left = 96
|
||||||
|
Top = 38
|
||||||
|
Width = 138
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 1
|
||||||
|
OnBtnUpClick = SHDanWeiBtnUpClick
|
||||||
|
OnBtnDnClick = SHDanWeiBtnDnClick
|
||||||
|
end
|
||||||
|
object CustomerNoName: TBtnEditA
|
||||||
|
Tag = 1
|
||||||
|
Left = 96
|
||||||
|
Top = 9
|
||||||
|
Width = 139
|
||||||
|
Height = 20
|
||||||
|
ReadOnly = True
|
||||||
|
TabOrder = 3
|
||||||
|
OnBtnClick = CustomerNoNameBtnClick
|
||||||
|
end
|
||||||
|
object DLYDATE: TDateTimePicker
|
||||||
|
Tag = 1
|
||||||
|
Left = 544
|
||||||
|
Top = 38
|
||||||
|
Width = 110
|
||||||
|
Height = 20
|
||||||
|
Date = 40675.464761099540000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 40675.464761099540000000
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object GuiXing: TBtnEditC
|
||||||
|
Tag = 1
|
||||||
|
Left = 309
|
||||||
|
Top = 38
|
||||||
|
Width = 132
|
||||||
|
Height = 20
|
||||||
|
Hint = 'GuiXing/'#26588#22411
|
||||||
|
TabOrder = 5
|
||||||
|
OnBtnUpClick = GuiXingBtnUpClick
|
||||||
|
OnBtnDnClick = GuiXingBtnDnClick
|
||||||
|
end
|
||||||
|
object XSType: TComboBox
|
||||||
|
Tag = 1
|
||||||
|
Left = 520
|
||||||
|
Top = 9
|
||||||
|
Width = 134
|
||||||
|
Height = 20
|
||||||
|
Style = csDropDownList
|
||||||
|
ItemHeight = 12
|
||||||
|
TabOrder = 6
|
||||||
|
Items.Strings = (
|
||||||
|
#20869#38144
|
||||||
|
#22806#38144)
|
||||||
|
end
|
||||||
|
object THDATE: TDateTimePicker
|
||||||
|
Tag = 1
|
||||||
|
Left = 761
|
||||||
|
Top = 38
|
||||||
|
Width = 132
|
||||||
|
Height = 20
|
||||||
|
Date = 40675.464761099540000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 40675.464761099540000000
|
||||||
|
TabOrder = 7
|
||||||
|
end
|
||||||
|
object FKNote: TBtnEditC
|
||||||
|
Tag = 1
|
||||||
|
Left = 761
|
||||||
|
Top = 9
|
||||||
|
Width = 132
|
||||||
|
Height = 20
|
||||||
|
Hint = 'FKNote/'#20184#27454#26465#20214
|
||||||
|
TabOrder = 8
|
||||||
|
OnBtnUpClick = FKNoteBtnUpClick
|
||||||
|
OnBtnDnClick = GuiXingBtnDnClick
|
||||||
|
end
|
||||||
|
object FPNO: TEdit
|
||||||
|
Tag = 1
|
||||||
|
Left = 761
|
||||||
|
Top = 66
|
||||||
|
Width = 132
|
||||||
|
Height = 18
|
||||||
|
TabOrder = 9
|
||||||
|
end
|
||||||
|
object FKDanWei: TBtnEditC
|
||||||
|
Tag = 1
|
||||||
|
Left = 963
|
||||||
|
Top = 9
|
||||||
|
Width = 132
|
||||||
|
Height = 20
|
||||||
|
Hint = 'FKDanWei/'#20184#27454#21333#20301
|
||||||
|
TabOrder = 10
|
||||||
|
OnBtnUpClick = FKDanWeiBtnUpClick
|
||||||
|
OnBtnDnClick = GuiXingBtnDnClick
|
||||||
|
end
|
||||||
|
object DCNO: TBtnEditC
|
||||||
|
Tag = 1
|
||||||
|
Left = 963
|
||||||
|
Top = 37
|
||||||
|
Width = 132
|
||||||
|
Height = 20
|
||||||
|
Hint = 'FKNote/'#20184#27454#26465#20214
|
||||||
|
ReadOnly = True
|
||||||
|
TabOrder = 11
|
||||||
|
OnBtnUpClick = DCNOBtnUpClick
|
||||||
|
OnBtnDnClick = DCNOBtnDnClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ToolBar2: TToolBar
|
||||||
|
Left = 0
|
||||||
|
Top = 124
|
||||||
|
Width = 1252
|
||||||
|
Height = 29
|
||||||
|
ButtonHeight = 30
|
||||||
|
ButtonWidth = 83
|
||||||
|
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 ToolButton3: TToolButton
|
||||||
|
Left = 63
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #22797#21046#22686#34892
|
||||||
|
ImageIndex = 57
|
||||||
|
OnClick = ToolButton3Click
|
||||||
|
end
|
||||||
|
object ToolButton2: TToolButton
|
||||||
|
Left = 150
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21024#34892
|
||||||
|
ImageIndex = 113
|
||||||
|
OnClick = ToolButton2Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid1: TcxGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 153
|
||||||
|
Width = 1252
|
||||||
|
Height = 491
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 3
|
||||||
|
object Tv1: TcxGridDBTableView
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
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 = 156
|
||||||
|
end
|
||||||
|
object v1Column2: TcxGridDBColumn
|
||||||
|
Caption = #35745#21010#21333#21495
|
||||||
|
DataBinding.FieldName = 'SCConNo'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 144
|
||||||
|
end
|
||||||
|
object cv1Column8: TcxGridDBColumn
|
||||||
|
Caption = #35746#21333#25968#37327
|
||||||
|
DataBinding.FieldName = 'orderqty'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 81
|
||||||
|
end
|
||||||
|
object v1Column5: TcxGridDBColumn
|
||||||
|
Caption = #20135#21697#32534#21495
|
||||||
|
DataBinding.FieldName = 'SPrtCode'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v1Column6: TcxGridDBColumn
|
||||||
|
Caption = #20135#21697#21517#31216
|
||||||
|
DataBinding.FieldName = 'SPrtCodeName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 71
|
||||||
|
end
|
||||||
|
object v1Column1: TcxGridDBColumn
|
||||||
|
Caption = #39068#33394
|
||||||
|
DataBinding.FieldName = 'PRTColor'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 83
|
||||||
|
end
|
||||||
|
object Tv1Column2: TcxGridDBColumn
|
||||||
|
Caption = #33521#25991#39068#33394
|
||||||
|
DataBinding.FieldName = 'PRTeColor'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 79
|
||||||
|
end
|
||||||
|
object v1Column7: TcxGridDBColumn
|
||||||
|
Caption = #33457#22411
|
||||||
|
DataBinding.FieldName = 'PRTHX'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 60
|
||||||
|
end
|
||||||
|
object v1Column3: TcxGridDBColumn
|
||||||
|
Caption = #25968#37327#21333#20301
|
||||||
|
DataBinding.FieldName = 'orderUnit'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 81
|
||||||
|
end
|
||||||
|
object cv1Column3: TcxGridDBColumn
|
||||||
|
Caption = #30003#35831#25968#37327
|
||||||
|
DataBinding.FieldName = 'sqqty'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.OnEditValueChanged = v1Column8PropertiesEditValueChanged
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 86
|
||||||
|
end
|
||||||
|
object v1Column8: TcxGridDBColumn
|
||||||
|
Caption = #21333#20215
|
||||||
|
DataBinding.FieldName = 'SQPrice'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.OnEditValueChanged = v1Column8PropertiesEditValueChanged
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
end
|
||||||
|
object v1Column9: TcxGridDBColumn
|
||||||
|
Caption = #37329#39069
|
||||||
|
DataBinding.FieldName = 'SQMoney'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
end
|
||||||
|
object Tv1Column1: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143#27454#21495
|
||||||
|
DataBinding.FieldName = 'SQKHKuanHao'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 123
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid1Level1: TcxGridLevel
|
||||||
|
GridView = Tv1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ADOTemp: TADOQuery
|
||||||
|
Connection = DataLink_ShipmentRequest.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 520
|
||||||
|
Top = 1
|
||||||
|
end
|
||||||
|
object ADOCmd: TADOQuery
|
||||||
|
Connection = DataLink_ShipmentRequest.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 488
|
||||||
|
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 = 460
|
||||||
|
Top = 1
|
||||||
|
end
|
||||||
|
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid1
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 528
|
||||||
|
Top = 268
|
||||||
|
end
|
||||||
|
object cxStyleRepository1: TcxStyleRepository
|
||||||
|
Left = 552
|
||||||
|
PixelsPerInch = 96
|
||||||
|
object dazi1: TcxStyle
|
||||||
|
AssignedValues = [svColor]
|
||||||
|
Color = clRed
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
610
发货申请(ShipmentRequest.dll)/U_FHSQInPut.pas
Normal file
610
发货申请(ShipmentRequest.dll)/U_FHSQInPut.pas
Normal file
|
|
@ -0,0 +1,610 @@
|
||||||
|
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;
|
||||||
|
|
||||||
|
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;
|
||||||
|
v1Column4: TcxGridDBColumn;
|
||||||
|
cxGridPopupMenu2: TcxGridPopupMenu;
|
||||||
|
Label1: TLabel;
|
||||||
|
CRType: TComboBox;
|
||||||
|
Note: TEdit;
|
||||||
|
Label12: TLabel;
|
||||||
|
Label11: TLabel;
|
||||||
|
SHDanWei: TBtnEditC;
|
||||||
|
CustomerNoName: TBtnEditA;
|
||||||
|
v1Column1: TcxGridDBColumn;
|
||||||
|
cv1Column3: TcxGridDBColumn;
|
||||||
|
cxStyleRepository1: TcxStyleRepository;
|
||||||
|
dazi1: TcxStyle;
|
||||||
|
cv1Column8: TcxGridDBColumn;
|
||||||
|
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;
|
||||||
|
Tv1Column1: TcxGridDBColumn;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
Label8: TLabel;
|
||||||
|
DCNO: TBtnEditC;
|
||||||
|
Tv1Column2: 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 ToolButton3Click(Sender: TObject);
|
||||||
|
procedure DCNOBtnUpClick(Sender: TObject);
|
||||||
|
procedure DCNOBtnDnClick(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
|
||||||
|
frmFHSQInPut: TfrmFHSQInPut;
|
||||||
|
newh: hwnd;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_ZDYHelp, U_RTFun, U_SQKCHZSelList, U_ContractListNXSel,
|
||||||
|
U_CPManageFMSel, U_ZdyAttachment, U_ClothSCYWYListSel, U_ProductOrderListSel,
|
||||||
|
U_DCDList_Sel;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmFHSQInPut.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
WriteCxGrid('发货申请录入ZY', Tv1, '发货管理');
|
||||||
|
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;
|
||||||
|
SCreateCDS20(ADOQuery1, Order_Sub);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCSHDataNew(ADOQuery1, ScrollBox1, 1);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQInPut.FormShow(Sender: TObject);
|
||||||
|
var
|
||||||
|
fsj: string;
|
||||||
|
begin
|
||||||
|
readCxGrid('发货申请录入ZY', Tv1, '发货管理');
|
||||||
|
|
||||||
|
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);
|
||||||
|
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 TfrmFHSQInPut.TBSaveClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
Freal: Double;
|
||||||
|
begin
|
||||||
|
ToolBar1.SetFocus;
|
||||||
|
if Trim(XSType.Text) = '' then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('销售类型不能为空！', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
if (Trim(XSType.Text) = '外销') and (Trim(DCNO.Text) = '') and (Trim(CRType.Text) = '销售出库') then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('外销订舱单号不能为空！', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
if Trim(CRType.Text) = '' 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 SaveData() then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('保存成功！', '提示', 0);
|
||||||
|
ModalResult := 1;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQInPut.ToolButton1Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
FQtyUnit, FFSubid: string;
|
||||||
|
begin
|
||||||
|
// if Trim(CustomerNoName.Text) = '' then
|
||||||
|
// begin
|
||||||
|
// Application.MessageBox('客户不能为空!', '提示', 0);
|
||||||
|
// Exit;
|
||||||
|
// end;
|
||||||
|
try
|
||||||
|
frmProductOrderListSel := TfrmProductOrderListSel.Create(Application);
|
||||||
|
with frmProductOrderListSel do
|
||||||
|
begin
|
||||||
|
// frmProductOrderListSel.CustomerNoName.Text := Trim(Self.CustomerNoName.Text);
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
while Order_Main.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
|
||||||
|
begin
|
||||||
|
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('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('PRTEColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTEColor').AsString);
|
||||||
|
|
||||||
|
FieldByName('SPrtCode').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCode').AsString);
|
||||||
|
FieldByName('SPrtCodeName').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString);
|
||||||
|
FieldByName('PRTHX').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString);
|
||||||
|
FieldByName('orderqty').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTOrderQty').AsString);
|
||||||
|
FieldByName('orderUnit').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('orderUnit').AsString);
|
||||||
|
if Trim(FQtyUnit) = 'Kg' then
|
||||||
|
begin
|
||||||
|
FieldByName('sqqty').Value := frmProductOrderListSel.Order_Main.fieldbyname('KCkg').Value;
|
||||||
|
end
|
||||||
|
else if Trim(FQtyUnit) = 'M' then
|
||||||
|
begin
|
||||||
|
FieldByName('sqqty').Value := frmProductOrderListSel.Order_Main.fieldbyname('KCM').Value;
|
||||||
|
end
|
||||||
|
else if Trim(FQtyUnit) = 'Y' then
|
||||||
|
begin
|
||||||
|
FieldByName('sqqty').Value := frmProductOrderListSel.Order_Main.fieldbyname('KCY').Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Order_Main.Delete;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmProductOrderListSel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQInPut.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 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.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.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;
|
||||||
|
|
||||||
|
procedure TfrmFHSQInPut.ToolButton3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
CopyAddRow(Tv1, Order_Sub);
|
||||||
|
with Order_Sub do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('SSId').Value := '';
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQInPut.DCNOBtnUpClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmDCDList_Sel := TfrmDCDList_Sel.Create(Application);
|
||||||
|
with frmDCDList_Sel do
|
||||||
|
begin
|
||||||
|
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
// self.TOCOUNTRY.Text := Trim(Order_Main.fieldbyname('TOCOUNTRY').AsString);
|
||||||
|
self.DCNO.Text := Trim(Order_Main.fieldbyname('DCNO').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmDCDList_Sel.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQInPut.DCNOBtnDnClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
DCNO.Text := '';
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
676
发货申请(ShipmentRequest.dll)/U_FHSQInPut220313.dfm
Normal file
676
发货申请(ShipmentRequest.dll)/U_FHSQInPut220313.dfm
Normal 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
631
发货申请(ShipmentRequest.dll)/U_FHSQInPut220313.pas
Normal 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;
|
||||||
|
|
||||||
|
SCreateCDS20(ADOQuery1, Order_Sub);
|
||||||
|
SInitCDSData20(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);
|
||||||
|
|
||||||
|
SCSHDataNew(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
681
发货申请(ShipmentRequest.dll)/U_FHSQInPutXH.dfm
Normal 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
652
发货申请(ShipmentRequest.dll)/U_FHSQInPutXH.pas
Normal 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;
|
||||||
|
|
||||||
|
SCreateCDS20(ADOQuery1, Order_Sub);
|
||||||
|
SInitCDSData20(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);
|
||||||
|
|
||||||
|
SCSHDataNew(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.
|
||||||
|
|
||||||
1064
发货申请(ShipmentRequest.dll)/U_FHSQList.dfm
Normal file
1064
发货申请(ShipmentRequest.dll)/U_FHSQList.dfm
Normal file
File diff suppressed because it is too large
Load Diff
963
发货申请(ShipmentRequest.dll)/U_FHSQList.pas
Normal file
963
发货申请(ShipmentRequest.dll)/U_FHSQList.pas
Normal file
|
|
@ -0,0 +1,963 @@
|
||||||
|
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,
|
||||||
|
RM_E_llPDF, cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters,
|
||||||
|
cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters,
|
||||||
|
dxSkinscxPCPainter;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmFHSQList = 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;
|
||||||
|
Order_Main: TClientDataSet;
|
||||||
|
RMDBDataSet1: TRMDBDataSet;
|
||||||
|
RMXLSExport1: TRMXLSExport;
|
||||||
|
v1CustomerNoName: TcxGridDBColumn;
|
||||||
|
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;
|
||||||
|
CustomerNoName: TEdit;
|
||||||
|
MPRTCodeName: TEdit;
|
||||||
|
HZSCConNo: 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;
|
||||||
|
RM1: TRMGridReport;
|
||||||
|
v1Column13: TcxGridDBColumn;
|
||||||
|
v1Column17: TcxGridDBColumn;
|
||||||
|
v1Column18: TcxGridDBColumn;
|
||||||
|
v1Column19: TcxGridDBColumn;
|
||||||
|
v2Column1: TcxGridDBColumn;
|
||||||
|
v2Column3: TcxGridDBColumn;
|
||||||
|
v1Column1: TcxGridDBColumn;
|
||||||
|
v1Column7: TcxGridDBColumn;
|
||||||
|
v1Column10: TcxGridDBColumn;
|
||||||
|
v2Column6: TcxGridDBColumn;
|
||||||
|
v1Column26: TcxGridDBColumn;
|
||||||
|
ToolButton2: TToolButton;
|
||||||
|
Panel5: TPanel;
|
||||||
|
Label28: TLabel;
|
||||||
|
Button5: TButton;
|
||||||
|
Button6: TButton;
|
||||||
|
DateTimePicker1: TDateTimePicker;
|
||||||
|
Label11: TLabel;
|
||||||
|
lblFSID: TLabel;
|
||||||
|
v1Column27: TcxGridDBColumn;
|
||||||
|
v1Column2: TcxGridDBColumn;
|
||||||
|
cv2Column4: TcxGridDBColumn;
|
||||||
|
cv2Column6: TcxGridDBColumn;
|
||||||
|
btn1: TToolButton;
|
||||||
|
cv1Column12: TcxGridDBColumn;
|
||||||
|
cv2Column10: TcxGridDBColumn;
|
||||||
|
cv2Column12: TcxGridDBColumn;
|
||||||
|
cv1Column14: TcxGridDBColumn;
|
||||||
|
v2Column2: TcxGridDBColumn;
|
||||||
|
v2Column4: TcxGridDBColumn;
|
||||||
|
v2Column5: TcxGridDBColumn;
|
||||||
|
v2Column7: TcxGridDBColumn;
|
||||||
|
v1Column3: TcxGridDBColumn;
|
||||||
|
v1Column5: TcxGridDBColumn;
|
||||||
|
v1Column6: TcxGridDBColumn;
|
||||||
|
v2Column8: TcxGridDBColumn;
|
||||||
|
v2Column9: TcxGridDBColumn;
|
||||||
|
v1Column9: TcxGridDBColumn;
|
||||||
|
Tv2Column1: TcxGridDBColumn;
|
||||||
|
Tv1Column1: TcxGridDBColumn;
|
||||||
|
Tv2Column2: TcxGridDBColumn;
|
||||||
|
Tv2Column3: TcxGridDBColumn;
|
||||||
|
Label3: TLabel;
|
||||||
|
SQKHKuanHaoHZ: TEdit;
|
||||||
|
Tv2Column4: TcxGridDBColumn;
|
||||||
|
Tv2Column5: TcxGridDBColumn;
|
||||||
|
ToolButton3: TToolButton;
|
||||||
|
Tv1Column2: TcxGridDBColumn;
|
||||||
|
ISHT: TCheckBox;
|
||||||
|
ToolButton4: TToolButton;
|
||||||
|
Tv1Column3: TcxGridDBColumn;
|
||||||
|
Tv2Column6: 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 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 ISHTClick(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_Fun, U_ZDYHelp, U_DCDList_Sel;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmFHSQList.SetStatus();
|
||||||
|
begin
|
||||||
|
tchk.Visible := False;
|
||||||
|
Tnochk.Visible := False;
|
||||||
|
btn1.Visible := false;
|
||||||
|
ToolButton3.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;
|
||||||
|
btn1.Visible := True;
|
||||||
|
end;
|
||||||
|
2:
|
||||||
|
begin
|
||||||
|
ToolButton3.Visible := True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQList.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
//frmFHSQList:=nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQList.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cxgrid1.Align := alClient;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQList.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
WriteCxGrid('发货主表ZY', Tv1, '发货管理');
|
||||||
|
WriteCxGrid('发货子表ZY', Tv2, '发货管理');
|
||||||
|
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(100))');
|
||||||
|
|
||||||
|
Sql.Add(' ,HZSCConNo=CAST((select distinct(SCConNo) + '' '' from FHSQ_Sub X where A.FSID=X.FSID for xml path('''') ) AS VARCHAR(100))');
|
||||||
|
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=''订单'' ');
|
||||||
|
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,'''')<>'''' AND ISNULL(status,''未完成'')=''未完成'' ');
|
||||||
|
end
|
||||||
|
else if cxTabControl1.TabIndex = 2 then
|
||||||
|
begin
|
||||||
|
SQL.Add(' and isnull(A.Chker,'''')<>'''' AND ISNULL(status,''未完成'')<>''未完成'' ');
|
||||||
|
end;
|
||||||
|
if Trim(canshu1) <> '高权限' then
|
||||||
|
begin
|
||||||
|
// sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
|
||||||
|
SQL.Add('and filler in ( select username from SY_User where UType=(select UType from SY_User where UserName=' + quotedstr(Trim(dname)));
|
||||||
|
SQL.Add('))');
|
||||||
|
end;
|
||||||
|
if (canshu2 = '内销') or (canshu2 = '外销') then
|
||||||
|
begin
|
||||||
|
sql.Add(' and isnull(A.XSType,'''')=''' + Trim(canshu2) + '''');
|
||||||
|
end;
|
||||||
|
if ISHT.Checked = True then
|
||||||
|
begin
|
||||||
|
SQL.Add('AND EXISTS (select * from SalesContract_Main X where X.CONNO IN (SELECT SCCONNO FROM FHSQ_SUB F WHERE F.FSID=A.FSID))');
|
||||||
|
end;
|
||||||
|
sql.Add(' order by ChkTime desc ');
|
||||||
|
// ShowMessage(sql.Text);
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQList.InitForm();
|
||||||
|
begin
|
||||||
|
|
||||||
|
ReadCxGrid('发货主表ZY', Tv1, '发货管理');
|
||||||
|
ReadCxGrid('发货子表ZY', Tv2, '发货管理');
|
||||||
|
|
||||||
|
EndDate.DateTime := SGetServerDate10(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));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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 UType=(select UType from SY_User where UserName=' + quotedstr(Trim(dname)));
|
||||||
|
SQL.Add('))');
|
||||||
|
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 YF_MONEY_CR ');
|
||||||
|
sql.Add('where YFID=' + quotedstr(trim('Y' + Order_Main.fieldbyname('FSID').AsString)));
|
||||||
|
SQL.Add('AND STATUS=1');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOQueryTemp.IsEmpty = False then
|
||||||
|
begin
|
||||||
|
application.MessageBox('财务已审核，禁止撤销！', '提示信息');
|
||||||
|
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;
|
||||||
|
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 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_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;
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('SELECT * FROM YF_MONEY_CR ');
|
||||||
|
sql.Add('where YFID=' + quotedstr(trim('Y' + Order_Main.fieldbyname('FSID').AsString)));
|
||||||
|
SQL.Add('AND STATUS=1');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOQueryTemp.IsEmpty = False then
|
||||||
|
begin
|
||||||
|
application.MessageBox('财务已审核，禁止撤销！', '提示信息');
|
||||||
|
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_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 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 := '';
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmFHSQInPut.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQList.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
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.CustomerNoNameChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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)));
|
||||||
|
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,ISHT=cast((case when isnull((select count(CONNO) from SalesContract_Main X where X.CONNO=A.SCCONNO ),0)>0 then 1 else 0 end) as bit) 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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, ClientDataSet2);
|
||||||
|
SInitCDSData20(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)));
|
||||||
|
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 := SGetServerDate10(ADOQueryTemp);
|
||||||
|
Panel5.Left := (self.Width - Panel5.Width) div 2;
|
||||||
|
Panel5.Visible := true;
|
||||||
|
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
|
||||||
|
if Order_Main.FieldByName('crtype').AsString = '销售出库' then
|
||||||
|
begin
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('SELECT * FROM YF_MONEY_CR ');
|
||||||
|
sql.Add('where YFID=' + quotedstr(trim('Y' + Order_Main.fieldbyname('FSID').AsString)));
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOQueryTemp.IsEmpty = True then
|
||||||
|
begin
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.Clear;
|
||||||
|
SQL.Add('EXEC P_Do_SCYSK @FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
|
||||||
|
SQL.Add(',@DNAME=' + QuotedStr(Trim(DName)));
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
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)));
|
||||||
|
// ShowMessage(SQL.Text);
|
||||||
|
execsql;
|
||||||
|
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,ISHT=cast((case when isnull((select count(CONNO) from SalesContract_Main X where X.CONNO=A.SCCONNO ),0)>0 then 1 else 0 end) as bit) from FHSQ_Sub A LEFT JOIN JYOrder_Main B ON A.MainId=B.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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, ClientDataSet2);
|
||||||
|
SInitCDSData20(ADOQueryTemp, ClientDataSet2);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQList.ToolButton3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if Order_Main.IsEmpty then
|
||||||
|
exit;
|
||||||
|
|
||||||
|
try
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('SELECT * FROM YF_MONEY_CR ');
|
||||||
|
sql.Add('where YFID=' + quotedstr(trim('Y' + Order_Main.fieldbyname('FSID').AsString)));
|
||||||
|
// SQL.Add('AND STATUS=1');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOQueryTemp.IsEmpty = False then
|
||||||
|
begin
|
||||||
|
if ADOQueryTemp.fieldbyname('status').AsString = '1' then
|
||||||
|
begin
|
||||||
|
application.MessageBox('财务已审核，禁止撤销！', '提示信息');
|
||||||
|
Exit;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('delete YF_MONEY_CR ');
|
||||||
|
sql.Add('where YFID=' + quotedstr(trim('Y' + Order_Main.fieldbyname('FSID').AsString)));
|
||||||
|
|
||||||
|
sql.Add('delete YF_MONEY_CR_SUB ');
|
||||||
|
sql.Add('where YFID=' + quotedstr(trim('Y' + Order_Main.fieldbyname('FSID').AsString)));
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
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)));
|
||||||
|
// ShowMessage(SQL.Text);
|
||||||
|
execsql;
|
||||||
|
end;
|
||||||
|
Order_Main.Delete;
|
||||||
|
InitSubGrid();
|
||||||
|
application.MessageBox('操作成功！', '提示信息');
|
||||||
|
except
|
||||||
|
application.MessageBox('操作失败！', '提示信息', 0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQList.ISHTClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQList.ToolButton4Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
fDCNO: string;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
frmDCDList_Sel := TfrmDCDList_Sel.Create(Application);
|
||||||
|
with frmDCDList_Sel do
|
||||||
|
begin
|
||||||
|
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
// self.TOCOUNTRY.Text := Trim(Order_Main.fieldbyname('TOCOUNTRY').AsString);
|
||||||
|
fDCNO := Trim(Order_Main.fieldbyname('DCNO').AsString);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmDCDList_Sel.Free;
|
||||||
|
end;
|
||||||
|
|
||||||
|
if fDCNO <> '' then
|
||||||
|
begin
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('Update FHSQ_MAIN ');
|
||||||
|
SQL.Add(' Set DCNO=' + QuotedStr(fDCNO));
|
||||||
|
sql.Add(' 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) + '修改舱号为：' + trim(fDCNO))));
|
||||||
|
sql.Add(',' + quotedstr(trim('成功')));
|
||||||
|
sql.Add(')');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
with Order_Main do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
// CDS_HZ.fieldbyname('KKMONEY').value := Trim(mvalues);
|
||||||
|
|
||||||
|
Order_Main.fieldbyname('DCNO').value := fDCNO;
|
||||||
|
end;
|
||||||
|
tv1.Controller.EditingController.ShowEdit();
|
||||||
|
end;
|
||||||
|
|
||||||
|
// if trim(mvalues) <> '' then
|
||||||
|
// begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
1086
发货申请(ShipmentRequest.dll)/U_FHSQList220313.dfm
Normal file
1086
发货申请(ShipmentRequest.dll)/U_FHSQList220313.dfm
Normal file
File diff suppressed because it is too large
Load Diff
758
发货申请(ShipmentRequest.dll)/U_FHSQList220313.pas
Normal file
758
发货申请(ShipmentRequest.dll)/U_FHSQList220313.pas
Normal 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_Fun, 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;
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQList220313.InitForm();
|
||||||
|
begin
|
||||||
|
|
||||||
|
ReadCxGrid('发货主表', Tv1, '发货管理');
|
||||||
|
ReadCxGrid('发货子表', Tv2, '发货管理');
|
||||||
|
|
||||||
|
EndDate.DateTime := SGetServerDate10(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));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, ClientDataSet2);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, ClientDataSet2);
|
||||||
|
SInitCDSData20(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 := SGetServerDate10(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.
|
||||||
|
|
||||||
759
发货申请(ShipmentRequest.dll)/U_FHSQListSel.dfm
Normal file
759
发货申请(ShipmentRequest.dll)/U_FHSQListSel.dfm
Normal file
|
|
@ -0,0 +1,759 @@
|
||||||
|
object frmFHSQListSel: TfrmFHSQListSel
|
||||||
|
Left = 202
|
||||||
|
Top = 97
|
||||||
|
Width = 1556
|
||||||
|
Height = 819
|
||||||
|
Caption = #21457#36135#30003#35831#36873#25321
|
||||||
|
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 = 1540
|
||||||
|
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 ToolButton2: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #36873#25321
|
||||||
|
ImageIndex = 31
|
||||||
|
OnClick = ToolButton2Click
|
||||||
|
end
|
||||||
|
object TBRafresh: TToolButton
|
||||||
|
Left = 63
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21047#26032
|
||||||
|
ImageIndex = 0
|
||||||
|
OnClick = TBRafreshClick
|
||||||
|
end
|
||||||
|
object TBFind: TToolButton
|
||||||
|
Left = 126
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #36807#28388
|
||||||
|
ImageIndex = 20
|
||||||
|
OnClick = TBFindClick
|
||||||
|
end
|
||||||
|
object ToolButton1: TToolButton
|
||||||
|
Left = 189
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #26597#30475
|
||||||
|
ImageIndex = 58
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 252
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 32
|
||||||
|
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 = 52
|
||||||
|
Height = 12
|
||||||
|
Caption = #35745#21010#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 = 6
|
||||||
|
Height = 12
|
||||||
|
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.464742650460000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 40675.464742650460000000
|
||||||
|
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.464761099540000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 40675.464761099540000000
|
||||||
|
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object CustomerNoName: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 293
|
||||||
|
Top = 11
|
||||||
|
Width = 78
|
||||||
|
Height = 20
|
||||||
|
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 = 20
|
||||||
|
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 = 20
|
||||||
|
TabOrder = 3
|
||||||
|
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 = 4
|
||||||
|
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 = 6
|
||||||
|
OnChange = CustomerNoNameChange
|
||||||
|
end
|
||||||
|
object FSID: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 602
|
||||||
|
Top = 11
|
||||||
|
Width = 77
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 7
|
||||||
|
OnChange = CustomerNoNameChange
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxTabControl1: TcxTabControl
|
||||||
|
Left = 0
|
||||||
|
Top = 75
|
||||||
|
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 = 523
|
||||||
|
Width = 1540
|
||||||
|
Height = 8
|
||||||
|
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||||
|
AlignSplitter = salBottom
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGrid1: TcxGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 117
|
||||||
|
Width = 1540
|
||||||
|
Height = 406
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 4
|
||||||
|
object Tv1: TcxGridDBTableView
|
||||||
|
OnMouseDown = Tv1MouseDown
|
||||||
|
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>
|
||||||
|
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>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsData.Editing = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
OptionsView.GroupFooters = gfAlwaysVisible
|
||||||
|
OptionsView.Indicator = True
|
||||||
|
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
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 = #35745#21010#21333#21495
|
||||||
|
DataBinding.FieldName = 'HZSCConNo'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 341
|
||||||
|
end
|
||||||
|
object v1CustomerNoName: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143
|
||||||
|
DataBinding.FieldName = 'CustomerNoName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Focusing = False
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
Width = 124
|
||||||
|
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
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
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 v1Column7: TcxGridDBColumn
|
||||||
|
Caption = #22791#27880
|
||||||
|
DataBinding.FieldName = 'Note'
|
||||||
|
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
|
||||||
|
end
|
||||||
|
object cxGrid1Level1: TcxGridLevel
|
||||||
|
GridView = Tv1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid2: TcxGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 531
|
||||||
|
Width = 1540
|
||||||
|
Height = 249
|
||||||
|
Align = alBottom
|
||||||
|
TabOrder = 5
|
||||||
|
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>
|
||||||
|
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.Inactive = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
object cv2Column10: TcxGridDBColumn
|
||||||
|
Caption = #35745#21010#21333#21495
|
||||||
|
DataBinding.FieldName = 'SCConNo'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
object v2Column6: TcxGridDBColumn
|
||||||
|
Caption = #25152#23646#23458#25143
|
||||||
|
DataBinding.FieldName = 'SSKHName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 85
|
||||||
|
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 v2Column1: TcxGridDBColumn
|
||||||
|
Caption = #21457#36135#21305#25968
|
||||||
|
DataBinding.FieldName = 'FHPS'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 82
|
||||||
|
end
|
||||||
|
object v2Column3: TcxGridDBColumn
|
||||||
|
Caption = #21457#36135#25968#37327
|
||||||
|
DataBinding.FieldName = 'FHQty'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 83
|
||||||
|
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
|
||||||
|
end
|
||||||
|
object cxGridLevel1: TcxGridLevel
|
||||||
|
GridView = Tv2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxTabControl2: TcxTabControl
|
||||||
|
Left = 0
|
||||||
|
Top = 96
|
||||||
|
Width = 1540
|
||||||
|
Height = 21
|
||||||
|
Align = alTop
|
||||||
|
TabOrder = 6
|
||||||
|
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 cxGridPopupMenu1: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid1
|
||||||
|
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 = 464
|
||||||
|
Top = 504
|
||||||
|
end
|
||||||
|
object ClientDataSet2: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 496
|
||||||
|
Top = 504
|
||||||
|
end
|
||||||
|
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 528
|
||||||
|
Top = 504
|
||||||
|
end
|
||||||
|
end
|
||||||
309
发货申请(ShipmentRequest.dll)/U_FHSQListSel.pas
Normal file
309
发货申请(ShipmentRequest.dll)/U_FHSQListSel.pas
Normal file
|
|
@ -0,0 +1,309 @@
|
||||||
|
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,
|
||||||
|
RM_E_llPDF, cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters,
|
||||||
|
dxBarBuiltInMenu, cxNavigator;
|
||||||
|
|
||||||
|
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;
|
||||||
|
cxGrid1: TcxGrid;
|
||||||
|
Tv1: TcxGridDBTableView;
|
||||||
|
v1Column4: TcxGridDBColumn;
|
||||||
|
v1Column8: TcxGridDBColumn;
|
||||||
|
v1Column2: TcxGridDBColumn;
|
||||||
|
v1CustomerNoName: TcxGridDBColumn;
|
||||||
|
v1Column10: TcxGridDBColumn;
|
||||||
|
v1OrdDate: TcxGridDBColumn;
|
||||||
|
v1Column26: TcxGridDBColumn;
|
||||||
|
v1Column1: TcxGridDBColumn;
|
||||||
|
v1Column13: TcxGridDBColumn;
|
||||||
|
v1Column17: TcxGridDBColumn;
|
||||||
|
v1Column18: TcxGridDBColumn;
|
||||||
|
v1Column19: TcxGridDBColumn;
|
||||||
|
v1Column7: TcxGridDBColumn;
|
||||||
|
v1Column27: TcxGridDBColumn;
|
||||||
|
cv1Column12: TcxGridDBColumn;
|
||||||
|
cv1Column14: TcxGridDBColumn;
|
||||||
|
cxGrid1Level1: TcxGridLevel;
|
||||||
|
cxGrid2: TcxGrid;
|
||||||
|
Tv2: TcxGridDBTableView;
|
||||||
|
cv2Column10: TcxGridDBColumn;
|
||||||
|
v2Column6: TcxGridDBColumn;
|
||||||
|
v2Column4: TcxGridDBColumn;
|
||||||
|
v2Column5: TcxGridDBColumn;
|
||||||
|
v2Column7: TcxGridDBColumn;
|
||||||
|
cv2Column4: TcxGridDBColumn;
|
||||||
|
cv2Column12: TcxGridDBColumn;
|
||||||
|
v2Column2: TcxGridDBColumn;
|
||||||
|
cv2Column6: TcxGridDBColumn;
|
||||||
|
v2Column1: TcxGridDBColumn;
|
||||||
|
v2Column3: TcxGridDBColumn;
|
||||||
|
v2Column8: TcxGridDBColumn;
|
||||||
|
v2Column9: TcxGridDBColumn;
|
||||||
|
Tv2Column1: TcxGridDBColumn;
|
||||||
|
cxGridLevel1: TcxGridLevel;
|
||||||
|
Label3: TLabel;
|
||||||
|
FSID: TEdit;
|
||||||
|
cxTabControl2: TcxTabControl;
|
||||||
|
//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);
|
||||||
|
private
|
||||||
|
procedure InitGrid();
|
||||||
|
procedure InitSubGrid();
|
||||||
|
procedure InitForm();
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
FFInt: Integer;
|
||||||
|
canshu1: string;
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmFHSQListSel: TfrmFHSQListSel;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_Fun, 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 chkstatus=''审核通过'' ');
|
||||||
|
// 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');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQListSel.InitForm();
|
||||||
|
begin
|
||||||
|
ReadCxGrid('发货申请选择ZY', Tv1, '发货申请管理');
|
||||||
|
ReadCxGrid('发货申请选择ZY', Tv2, '发货申请管理');
|
||||||
|
|
||||||
|
EndDate.DateTime := SGetServerDate10(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));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, ClientDataSet2);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, ClientDataSet2);
|
||||||
|
SInitCDSData20(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.cxTabControl2Change(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
1081
发货申请(ShipmentRequest.dll)/U_FHSQListXH.dfm
Normal file
1081
发货申请(ShipmentRequest.dll)/U_FHSQListXH.dfm
Normal file
File diff suppressed because it is too large
Load Diff
752
发货申请(ShipmentRequest.dll)/U_FHSQListXH.pas
Normal file
752
发货申请(ShipmentRequest.dll)/U_FHSQListXH.pas
Normal file
|
|
@ -0,0 +1,752 @@
|
||||||
|
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,
|
||||||
|
RM_E_llPDF, cxDropDownEdit, cxTextEdit;
|
||||||
|
|
||||||
|
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_Fun, 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;
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmFHSQListXH.InitForm();
|
||||||
|
begin
|
||||||
|
|
||||||
|
ReadCxGrid('发货主表', Tv1, '发货管理');
|
||||||
|
ReadCxGrid('发货子表', Tv2, '发货管理');
|
||||||
|
|
||||||
|
EndDate.DateTime := SGetServerDate10(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));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, ClientDataSet2);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, ClientDataSet2);
|
||||||
|
SInitCDSData20(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 := SGetServerDate10(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
188
发货申请(ShipmentRequest.dll)/U_FileUp.dfm
Normal 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
357
发货申请(ShipmentRequest.dll)/U_FileUp.pas
Normal 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.
|
||||||
533
发货申请(ShipmentRequest.dll)/U_GetDllForm.pas
Normal file
533
发货申请(ShipmentRequest.dll)/U_GetDllForm.pas
Normal file
|
|
@ -0,0 +1,533 @@
|
||||||
|
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>>窗口类型； //
|
||||||
|
/////////////////////////////////////////////////////////////////
|
||||||
|
|
||||||
|
var
|
||||||
|
frmFHSQListLR, frmFHSQListGQX, frmFHSQListChk, frmFHSQListChkWX: TfrmFHSQList;
|
||||||
|
frmPBOutHZListGL, frmPBOutHZListCX: TfrmPBOutHZList;
|
||||||
|
frmFHSQListXHLR, frmFHSQListXHGQX, frmFHSQListXHChk: TfrmFHSQListXH;
|
||||||
|
|
||||||
|
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;
|
||||||
|
|
||||||
|
MainApplication := App;
|
||||||
|
DCurHandle := FormH;
|
||||||
|
IsDelphiLanguage := Language;
|
||||||
|
|
||||||
|
Application := TApplication(App);
|
||||||
|
DCurHandle := 0;
|
||||||
|
|
||||||
|
// 123
|
||||||
|
//赋值链接字符串
|
||||||
|
SetLength(server, 255);
|
||||||
|
SetLength(dtbase, 255);
|
||||||
|
SetLength(user, 255);
|
||||||
|
SetLength(pswd, 255);
|
||||||
|
|
||||||
|
server := '47.100.130.130,7781';
|
||||||
|
// server := '.';
|
||||||
|
dtbase := 'zhenyongdata';
|
||||||
|
user := 'zhenyongsa';
|
||||||
|
pswd := 'rightsoft@9101';
|
||||||
|
// pswd := 'rightsoft';
|
||||||
|
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||||
|
DConString := DataBaseStr;
|
||||||
|
// DName:='周高祥';
|
||||||
|
// DParameters1:='高权限';
|
||||||
|
//DParameters3:='1';
|
||||||
|
if not ConnData() then
|
||||||
|
begin
|
||||||
|
result := 0;
|
||||||
|
exit;
|
||||||
|
end;
|
||||||
|
|
||||||
|
// 定义窗口类型 、状态
|
||||||
|
if WinStyle = 0 then
|
||||||
|
begin
|
||||||
|
mstyle := fsMDIChild;
|
||||||
|
mstate := wsMaximized;
|
||||||
|
mborderstyle := bsSizeable;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
mstyle := fsNormal;
|
||||||
|
mstate := wsNormal;
|
||||||
|
mborderstyle := bsSizeable;
|
||||||
|
end;
|
||||||
|
/////////////////////
|
||||||
|
//调用子模块窗口
|
||||||
|
case FormID of
|
||||||
|
111: //发货申请
|
||||||
|
begin
|
||||||
|
bFound := FALSE;
|
||||||
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
||||||
|
begin
|
||||||
|
if App.MainForm.MDIChildren[i].Caption = '发货申请录入' then
|
||||||
|
begin
|
||||||
|
BringWindowToTop(frmFHSQListLR.Handle);
|
||||||
|
bFound := TRUE;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if not bFound then
|
||||||
|
begin
|
||||||
|
frmFHSQListLR := TfrmFHSQList.Create(application.MainForm);
|
||||||
|
with frmFHSQListLR do
|
||||||
|
begin
|
||||||
|
Title := '发货申请录入';
|
||||||
|
canshu1 := '录入';
|
||||||
|
caption := Trim(Title);
|
||||||
|
FormStyle := mstyle;
|
||||||
|
windowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
//show;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
frmFHSQListLR.BringToFront;
|
||||||
|
//句柄
|
||||||
|
mnewHandle := frmFHSQListLR.Handle;
|
||||||
|
end;
|
||||||
|
112: //发货申请(高权限)
|
||||||
|
begin
|
||||||
|
bFound := FALSE;
|
||||||
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
||||||
|
begin
|
||||||
|
if App.MainForm.MDIChildren[i].Caption = '发货申请(高权限)' then
|
||||||
|
begin
|
||||||
|
BringWindowToTop(frmFHSQListGQX.Handle);
|
||||||
|
bFound := TRUE;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if not bFound then
|
||||||
|
begin
|
||||||
|
frmFHSQListGQX := TfrmFHSQList.Create(application.MainForm);
|
||||||
|
with frmFHSQListGQX do
|
||||||
|
begin
|
||||||
|
Title := '发货申请(高权限)';
|
||||||
|
canshu1 := '高权限';
|
||||||
|
caption := Trim(Title);
|
||||||
|
FormStyle := mstyle;
|
||||||
|
windowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
//show;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
frmFHSQListGQX.BringToFront;
|
||||||
|
//句柄
|
||||||
|
mnewHandle := frmFHSQListGQX.Handle;
|
||||||
|
end;
|
||||||
|
113: //发货申请审核内销
|
||||||
|
begin
|
||||||
|
bFound := FALSE;
|
||||||
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
||||||
|
begin
|
||||||
|
if App.MainForm.MDIChildren[i].Caption = '发货申请审核(内销)' then
|
||||||
|
begin
|
||||||
|
BringWindowToTop(frmFHSQListChk.Handle);
|
||||||
|
|
||||||
|
bFound := TRUE;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if not bFound then
|
||||||
|
begin
|
||||||
|
frmFHSQListChk := TfrmFHSQList.Create(application.MainForm);
|
||||||
|
with frmFHSQListChk do
|
||||||
|
begin
|
||||||
|
Title := '发货申请审核(内销)';
|
||||||
|
canshu1 := '高权限';
|
||||||
|
canshu2 := '内销';
|
||||||
|
caption := Trim(Title);
|
||||||
|
FormStyle := mstyle;
|
||||||
|
windowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
//show;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
frmFHSQListChk.BringToFront;
|
||||||
|
//句柄
|
||||||
|
mnewHandle := frmFHSQListChk.Handle;
|
||||||
|
end;
|
||||||
|
114: //发货申请审核
|
||||||
|
begin
|
||||||
|
bFound := FALSE;
|
||||||
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
||||||
|
begin
|
||||||
|
if App.MainForm.MDIChildren[i].Caption = '发货申请审核(外销)' then
|
||||||
|
begin
|
||||||
|
BringWindowToTop(frmFHSQListChkWX.Handle);
|
||||||
|
|
||||||
|
bFound := TRUE;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if not bFound then
|
||||||
|
begin
|
||||||
|
frmFHSQListChkWX := TfrmFHSQList.Create(application.MainForm);
|
||||||
|
with frmFHSQListChkWX do
|
||||||
|
begin
|
||||||
|
Title := '发货申请审核(外销)';
|
||||||
|
canshu1 := '高权限';
|
||||||
|
canshu2 := '外销';
|
||||||
|
caption := Trim(Title);
|
||||||
|
FormStyle := mstyle;
|
||||||
|
windowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
//show;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
frmFHSQListChkWX.BringToFront;
|
||||||
|
//句柄
|
||||||
|
mnewHandle := frmFHSQListChkWX.Handle;
|
||||||
|
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;
|
||||||
|
203: // 订单库存查询
|
||||||
|
begin
|
||||||
|
if frmCPKCCX = nil then
|
||||||
|
begin
|
||||||
|
frmCPKCCX := TfrmCPKCCX.Create(application.MainForm);
|
||||||
|
with frmCPKCCX do
|
||||||
|
begin
|
||||||
|
caption := Trim(Title);
|
||||||
|
FormStyle := mstyle;
|
||||||
|
windowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
//show;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
frmCPKCCX.BringToFront;
|
||||||
|
//句柄
|
||||||
|
mnewHandle := frmCPKCCX.Handle;
|
||||||
|
|
||||||
|
end;
|
||||||
|
// 201: //扫描出库
|
||||||
|
// begin
|
||||||
|
// if frmSQSMCK = nil then
|
||||||
|
// begin
|
||||||
|
// frmSQSMCK := TfrmSQSMCK.Create(application.MainForm);
|
||||||
|
// with frmSQSMCK do
|
||||||
|
// begin
|
||||||
|
// caption := Trim(Title);
|
||||||
|
// FormStyle := mstyle;
|
||||||
|
// windowState := mstate;
|
||||||
|
// BorderStyle := mborderstyle;
|
||||||
|
// //show;
|
||||||
|
// end;
|
||||||
|
// end
|
||||||
|
// else
|
||||||
|
// frmSQSMCK.BringToFront;
|
||||||
|
// //句柄
|
||||||
|
// mnewHandle := frmSQSMCK.Handle;
|
||||||
|
//
|
||||||
|
// end;
|
||||||
|
|
||||||
|
121: //码单打印
|
||||||
|
begin
|
||||||
|
bFound := FALSE;
|
||||||
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
||||||
|
begin
|
||||||
|
if App.MainForm.MDIChildren[i].Caption = '码单打印' then
|
||||||
|
begin
|
||||||
|
BringWindowToTop(frmPBOutHZListGL.Handle);
|
||||||
|
bFound := TRUE;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if not bFound then
|
||||||
|
begin
|
||||||
|
frmPBOutHZListGL := TfrmPBOutHZList.Create(application.MainForm);
|
||||||
|
with frmPBOutHZListGL do
|
||||||
|
begin
|
||||||
|
Title := '码单打印';
|
||||||
|
caption := Trim(Title);
|
||||||
|
FormStyle := mstyle;
|
||||||
|
windowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
//show;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
frmPBOutHZListGL.BringToFront;
|
||||||
|
//句柄
|
||||||
|
mnewHandle := frmPBOutHZListGL.Handle;
|
||||||
|
end;
|
||||||
|
|
||||||
|
122: //码单查询
|
||||||
|
begin
|
||||||
|
bFound := FALSE;
|
||||||
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
||||||
|
begin
|
||||||
|
if App.MainForm.MDIChildren[i].Caption = '码单查询' then
|
||||||
|
begin
|
||||||
|
BringWindowToTop(frmPBOutHZListCX.Handle);
|
||||||
|
bFound := TRUE;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if not bFound then
|
||||||
|
begin
|
||||||
|
frmPBOutHZListCX := TfrmPBOutHZList.Create(application.MainForm);
|
||||||
|
with frmPBOutHZListCX do
|
||||||
|
begin
|
||||||
|
Title := '码单查询';
|
||||||
|
caption := Trim(Title);
|
||||||
|
FormStyle := mstyle;
|
||||||
|
windowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
//show;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
frmPBOutHZListCX.BringToFront;
|
||||||
|
//句柄
|
||||||
|
mnewHandle := frmPBOutHZListCX.Handle;
|
||||||
|
end;
|
||||||
|
|
||||||
|
411: //现货发货申请
|
||||||
|
begin
|
||||||
|
bFound := FALSE;
|
||||||
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
||||||
|
begin
|
||||||
|
if App.MainForm.MDIChildren[i].Caption = '现货发货申请录入' then
|
||||||
|
begin
|
||||||
|
BringWindowToTop(frmFHSQListXHLR.Handle);
|
||||||
|
bFound := TRUE;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if not bFound then
|
||||||
|
begin
|
||||||
|
frmFHSQListXHLR := TfrmFHSQListXH.Create(application.MainForm);
|
||||||
|
with frmFHSQListXHLR do
|
||||||
|
begin
|
||||||
|
Title := '现货发货申请录入';
|
||||||
|
canshu1 := '录入';
|
||||||
|
caption := Trim(Title);
|
||||||
|
FormStyle := mstyle;
|
||||||
|
windowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
//show;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
frmFHSQListXHLR.BringToFront;
|
||||||
|
//句柄
|
||||||
|
mnewHandle := frmFHSQListXHLR.Handle;
|
||||||
|
end;
|
||||||
|
412: //现货发货申请(高权限)
|
||||||
|
begin
|
||||||
|
bFound := FALSE;
|
||||||
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
||||||
|
begin
|
||||||
|
if App.MainForm.MDIChildren[i].Caption = '现货发货申请(高权限)' then
|
||||||
|
begin
|
||||||
|
BringWindowToTop(frmFHSQListXHGQX.Handle);
|
||||||
|
bFound := TRUE;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if not bFound then
|
||||||
|
begin
|
||||||
|
frmFHSQListXHGQX := TfrmFHSQListXH.Create(application.MainForm);
|
||||||
|
with frmFHSQListXHGQX do
|
||||||
|
begin
|
||||||
|
Title := '现货发货申请(高权限)';
|
||||||
|
canshu1 := '高权限';
|
||||||
|
caption := Trim(Title);
|
||||||
|
FormStyle := mstyle;
|
||||||
|
windowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
//show;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
frmFHSQListXHGQX.BringToFront;
|
||||||
|
//句柄
|
||||||
|
mnewHandle := frmFHSQListXHGQX.Handle;
|
||||||
|
end;
|
||||||
|
|
||||||
|
413: //现货发货申请审核
|
||||||
|
begin
|
||||||
|
bFound := FALSE;
|
||||||
|
for i := (App.MainForm.MDIChildCount - 1) downto 0 do
|
||||||
|
begin
|
||||||
|
if App.MainForm.MDIChildren[i].Caption = '现货发货申请审核' then
|
||||||
|
begin
|
||||||
|
BringWindowToTop(frmFHSQListChk.Handle);
|
||||||
|
|
||||||
|
bFound := TRUE;
|
||||||
|
Break;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if not bFound then
|
||||||
|
begin
|
||||||
|
frmFHSQListXHChk := TfrmFHSQListXH.Create(application.MainForm);
|
||||||
|
with frmFHSQListXHChk do
|
||||||
|
begin
|
||||||
|
Title := '现货发货申请审核';
|
||||||
|
canshu1 := '高权限';
|
||||||
|
caption := Trim(Title);
|
||||||
|
FormStyle := mstyle;
|
||||||
|
windowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
//show;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
frmFHSQListXHChk.BringToFront;
|
||||||
|
//句柄
|
||||||
|
mnewHandle := frmFHSQListXHChk.Handle;
|
||||||
|
end;
|
||||||
|
421: //扫描配货
|
||||||
|
begin
|
||||||
|
if frmSQSMCKXH = nil then
|
||||||
|
begin
|
||||||
|
frmSQSMCKXH := TfrmSQSMCKXH.Create(application.MainForm);
|
||||||
|
with frmSQSMCKXH do
|
||||||
|
begin
|
||||||
|
caption := Trim(Title);
|
||||||
|
FormStyle := mstyle;
|
||||||
|
windowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
//show;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
frmSQSMCKXH.BringToFront;
|
||||||
|
//句柄
|
||||||
|
mnewHandle := frmSQSMCKXH.Handle;
|
||||||
|
|
||||||
|
end;
|
||||||
|
311: //扫描盘库
|
||||||
|
begin
|
||||||
|
if frmSMPK = nil then
|
||||||
|
begin
|
||||||
|
frmSMPK := TfrmSMPK.Create(application.MainForm);
|
||||||
|
with frmSMPK do
|
||||||
|
begin
|
||||||
|
caption := Trim(Title);
|
||||||
|
FormStyle := mstyle;
|
||||||
|
windowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
//show;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
frmSMPK.BringToFront;
|
||||||
|
//句柄
|
||||||
|
mnewHandle := frmSMPK.Handle;
|
||||||
|
|
||||||
|
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
398
发货申请(ShipmentRequest.dll)/U_JYMXInfo.dfm
Normal 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
115
发货申请(ShipmentRequest.dll)/U_JYMXInfo.pas
Normal 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_Fun;
|
||||||
|
|
||||||
|
{$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;
|
||||||
|
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||||
|
SInitCDSData20(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
313
发货申请(ShipmentRequest.dll)/U_LabelAdd.dfm
Normal 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: TFTComboBox
|
||||||
|
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
455
发货申请(ShipmentRequest.dll)/U_LabelAdd.pas
Normal 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, FTComboBox,
|
||||||
|
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: TFTComboBox;
|
||||||
|
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
438
发货申请(ShipmentRequest.dll)/U_LabelList.dfm
Normal 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: TFTComboBox
|
||||||
|
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
591
发货申请(ShipmentRequest.dll)/U_LabelList.pas
Normal 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, FTComboBox,
|
||||||
|
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: TFTComboBox;
|
||||||
|
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;
|
||||||
|
SCreateCDS20(ADOQueryLabel10,ADOQueryLabel);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryLabel10,ADOQueryLabel);
|
||||||
|
SInitCDSData20(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
181
发货申请(ShipmentRequest.dll)/U_ModuleNote.dfm
Normal 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
220
发货申请(ShipmentRequest.dll)/U_ModuleNote.pas
Normal 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;
|
||||||
|
SCreateCDS20(ADOQueryMain,ClientDataSet1);
|
||||||
|
SInitCDSData20(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
342
发货申请(ShipmentRequest.dll)/U_ModulePromptList.dfm
Normal 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
257
发货申请(ShipmentRequest.dll)/U_ModulePromptList.pas
Normal 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;
|
||||||
|
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain,Order_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain,Order_Main);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
525
发货申请(ShipmentRequest.dll)/U_PBKCListSel.dfm
Normal file
525
发货申请(ShipmentRequest.dll)/U_PBKCListSel.dfm
Normal 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
220
发货申请(ShipmentRequest.dll)/U_PBKCListSel.pas
Normal 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_Fun;
|
||||||
|
|
||||||
|
{$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;
|
||||||
|
SCreateCDS20(ADOQueryMain, CDS_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain, CDS_Main);
|
||||||
|
SInitCDSData20(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.
|
||||||
|
|
||||||
742
发货申请(ShipmentRequest.dll)/U_PBOutHZList.dfm
Normal file
742
发货申请(ShipmentRequest.dll)/U_PBOutHZList.dfm
Normal file
|
|
@ -0,0 +1,742 @@
|
||||||
|
object frmPBOutHZList: TfrmPBOutHZList
|
||||||
|
Left = 157
|
||||||
|
Top = 128
|
||||||
|
Width = 1556
|
||||||
|
Height = 736
|
||||||
|
Caption = #30721#21333#25171#21360
|
||||||
|
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 = 1548
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 30
|
||||||
|
ButtonWidth = 95
|
||||||
|
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 = #25171#21360
|
||||||
|
ImageIndex = 4
|
||||||
|
OnClick = ToolButton1Click
|
||||||
|
end
|
||||||
|
object ComboBox1: TComboBox
|
||||||
|
Left = 189
|
||||||
|
Top = 3
|
||||||
|
Width = 172
|
||||||
|
Height = 24
|
||||||
|
Style = csDropDownList
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -16
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
ItemHeight = 16
|
||||||
|
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 = 361
|
||||||
|
Top = 0
|
||||||
|
Caption = #25171#21360#20986#24211#21333
|
||||||
|
ImageIndex = 14
|
||||||
|
Visible = False
|
||||||
|
OnClick = ToolButton2Click
|
||||||
|
end
|
||||||
|
object TBExport: TToolButton
|
||||||
|
Left = 456
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #23548#20986
|
||||||
|
ImageIndex = 68
|
||||||
|
OnClick = TBExportClick
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 519
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 32
|
||||||
|
Width = 1548
|
||||||
|
Height = 60
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Color = clSkyBlue
|
||||||
|
TabOrder = 1
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 28
|
||||||
|
Top = 12
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #26597#35810#26102#38388
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 64
|
||||||
|
Top = 36
|
||||||
|
Width = 12
|
||||||
|
Height = 12
|
||||||
|
Caption = #33267
|
||||||
|
end
|
||||||
|
object Label10: TLabel
|
||||||
|
Left = 189
|
||||||
|
Top = 12
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #30003#35831#21333#21495
|
||||||
|
end
|
||||||
|
object Label3: TLabel
|
||||||
|
Left = 515
|
||||||
|
Top = 12
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #21697#21517
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 190
|
||||||
|
Top = 36
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #35746' '#21333' '#21495
|
||||||
|
end
|
||||||
|
object Label8: TLabel
|
||||||
|
Left = 357
|
||||||
|
Top = 36
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #20986#24211#31867#22411
|
||||||
|
end
|
||||||
|
object Label12: TLabel
|
||||||
|
Left = 515
|
||||||
|
Top = 36
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #32534#21495
|
||||||
|
end
|
||||||
|
object Label14: TLabel
|
||||||
|
Left = 357
|
||||||
|
Top = 12
|
||||||
|
Width = 48
|
||||||
|
Height = 12
|
||||||
|
Caption = #23458' '#25143
|
||||||
|
end
|
||||||
|
object Label4: TLabel
|
||||||
|
Left = 656
|
||||||
|
Top = 12
|
||||||
|
Width = 24
|
||||||
|
Height = 12
|
||||||
|
Caption = #25209#21495
|
||||||
|
end
|
||||||
|
object BegDate: TDateTimePicker
|
||||||
|
Left = 77
|
||||||
|
Top = 8
|
||||||
|
Width = 87
|
||||||
|
Height = 20
|
||||||
|
Date = 40768.458268587970000000
|
||||||
|
Time = 40768.458268587970000000
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object EndDate: TDateTimePicker
|
||||||
|
Left = 77
|
||||||
|
Top = 32
|
||||||
|
Width = 87
|
||||||
|
Height = 20
|
||||||
|
Date = 40768.458268587970000000
|
||||||
|
Time = 40768.458268587970000000
|
||||||
|
TabOrder = 5
|
||||||
|
end
|
||||||
|
object FSID: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 246
|
||||||
|
Top = 8
|
||||||
|
Width = 87
|
||||||
|
Height = 23
|
||||||
|
TabOrder = 1
|
||||||
|
OnChange = PrtCodeNameChange
|
||||||
|
end
|
||||||
|
object PrtCodeName: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 541
|
||||||
|
Top = 8
|
||||||
|
Width = 87
|
||||||
|
Height = 23
|
||||||
|
TabOrder = 3
|
||||||
|
OnChange = PrtCodeNameChange
|
||||||
|
end
|
||||||
|
object ConNo: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 246
|
||||||
|
Top = 32
|
||||||
|
Width = 87
|
||||||
|
Height = 23
|
||||||
|
TabOrder = 6
|
||||||
|
OnChange = ConNoChange
|
||||||
|
OnKeyPress = ConNoKeyPress
|
||||||
|
end
|
||||||
|
object CRType: TComboBox
|
||||||
|
Tag = 2
|
||||||
|
Left = 409
|
||||||
|
Top = 32
|
||||||
|
Width = 87
|
||||||
|
Height = 20
|
||||||
|
Style = csDropDownList
|
||||||
|
ItemHeight = 12
|
||||||
|
TabOrder = 7
|
||||||
|
OnChange = PrtCodeNameChange
|
||||||
|
Items.Strings = (
|
||||||
|
#38144#21806#20986#24211
|
||||||
|
#20854#23427#20986#24211
|
||||||
|
'')
|
||||||
|
end
|
||||||
|
object PrtCode: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 541
|
||||||
|
Top = 32
|
||||||
|
Width = 87
|
||||||
|
Height = 23
|
||||||
|
TabOrder = 8
|
||||||
|
OnChange = PrtCodeNameChange
|
||||||
|
end
|
||||||
|
object CustomerNoName: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 409
|
||||||
|
Top = 8
|
||||||
|
Width = 87
|
||||||
|
Height = 23
|
||||||
|
TabOrder = 2
|
||||||
|
OnChange = PrtCodeNameChange
|
||||||
|
end
|
||||||
|
object SQBatchNoHZ: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 682
|
||||||
|
Top = 8
|
||||||
|
Width = 87
|
||||||
|
Height = 23
|
||||||
|
TabOrder = 4
|
||||||
|
OnChange = PrtCodeNameChange
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object MovePanel2: TMovePanel
|
||||||
|
Left = 344
|
||||||
|
Top = 192
|
||||||
|
Width = 289
|
||||||
|
Height = 49
|
||||||
|
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 = -13
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 3
|
||||||
|
Visible = False
|
||||||
|
end
|
||||||
|
object cxGrid1: TcxGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 92
|
||||||
|
Width = 1548
|
||||||
|
Height = 613
|
||||||
|
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.Inactive = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
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
|
||||||
|
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 = [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 = 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
|
||||||
897
发货申请(ShipmentRequest.dll)/U_PBOutHZList.pas
Normal file
897
发货申请(ShipmentRequest.dll)/U_PBOutHZList.pas
Normal file
|
|
@ -0,0 +1,897 @@
|
||||||
|
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, dxSkinscxPCPainter, cxNavigator;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmPBOutHZList = class(TForm)
|
||||||
|
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_Fun, U_ZDYHelp;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmPBOutHZList.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
// frmPBOutHZList:=nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPBOutHZList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmPBOutHZList.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
//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 chk=''审核通过'' ');
|
||||||
|
sql.Add(' and FHPSHZ>0');
|
||||||
|
// ShowMessage(SQL.Text);
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS20(ADOQueryMain, CDS_Main);
|
||||||
|
SInitCDSData20(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
|
||||||
|
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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_Label);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain, CDS_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryPrint, CDS_JuanPRT);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_Juan);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_JuanPRT);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryMain, CDS_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_JuanPRT);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_JuanPRT);
|
||||||
|
SInitCDSData20(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
406
发货申请(ShipmentRequest.dll)/U_PBSHSMCK.dfm
Normal 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
646
发货申请(ShipmentRequest.dll)/U_PBSHSMCK.pas
Normal 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_Fun, 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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_MainSel);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCSHDataNew(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_JuanPRT);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_JuanPRT);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_JuanPRT);
|
||||||
|
SInitCDSData20(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.
|
||||||
|
|
||||||
626
发货申请(ShipmentRequest.dll)/U_ProductOrderListSel.dfm
Normal file
626
发货申请(ShipmentRequest.dll)/U_ProductOrderListSel.dfm
Normal file
|
|
@ -0,0 +1,626 @@
|
||||||
|
object frmProductOrderListSel: TfrmProductOrderListSel
|
||||||
|
Left = 183
|
||||||
|
Top = 23
|
||||||
|
Width = 1556
|
||||||
|
Height = 812
|
||||||
|
Align = alClient
|
||||||
|
Caption = #29983#20135#25351#31034#21333
|
||||||
|
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 = 1540
|
||||||
|
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 btn1: TToolButton
|
||||||
|
Left = 63
|
||||||
|
Top = 0
|
||||||
|
Caption = #36873#25321
|
||||||
|
ImageIndex = 31
|
||||||
|
OnClick = btn1Click
|
||||||
|
end
|
||||||
|
object TBFind: TToolButton
|
||||||
|
Left = 122
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #36807#28388
|
||||||
|
ImageIndex = 20
|
||||||
|
OnClick = TBFindClick
|
||||||
|
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 = 32
|
||||||
|
Width = 1540
|
||||||
|
Height = 64
|
||||||
|
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 Label3: TLabel
|
||||||
|
Left = 179
|
||||||
|
Top = 15
|
||||||
|
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 Label4: TLabel
|
||||||
|
Left = 318
|
||||||
|
Top = 15
|
||||||
|
Width = 54
|
||||||
|
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 = 479
|
||||||
|
Top = 15
|
||||||
|
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 = 179
|
||||||
|
Top = 39
|
||||||
|
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 Label10: TLabel
|
||||||
|
Left = 479
|
||||||
|
Top = 39
|
||||||
|
Width = 54
|
||||||
|
Height = 12
|
||||||
|
Caption = #35268' '#26684
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = [fsBold]
|
||||||
|
ParentFont = False
|
||||||
|
end
|
||||||
|
object Label11: TLabel
|
||||||
|
Left = 318
|
||||||
|
Top = 39
|
||||||
|
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 = 76
|
||||||
|
Top = 11
|
||||||
|
Width = 85
|
||||||
|
Height = 20
|
||||||
|
Date = 40675.464742650460000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 40675.464742650460000000
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object EndDate: TDateTimePicker
|
||||||
|
Left = 75
|
||||||
|
Top = 35
|
||||||
|
Width = 86
|
||||||
|
Height = 20
|
||||||
|
Date = 40675.464761099540000000
|
||||||
|
Format = 'yyyy-MM-dd'
|
||||||
|
Time = 40675.464761099540000000
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object OrderNoM: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 220
|
||||||
|
Top = 11
|
||||||
|
Width = 77
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 1
|
||||||
|
OnChange = OrderNoMChange
|
||||||
|
end
|
||||||
|
object CustomerNoName: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 374
|
||||||
|
Top = 11
|
||||||
|
Width = 76
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 2
|
||||||
|
OnChange = OrderNoMChange
|
||||||
|
end
|
||||||
|
object MPRTCodeName: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 534
|
||||||
|
Top = 11
|
||||||
|
Width = 80
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 3
|
||||||
|
OnChange = OrderNoMChange
|
||||||
|
end
|
||||||
|
object ConNo: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 220
|
||||||
|
Top = 35
|
||||||
|
Width = 77
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 5
|
||||||
|
OnChange = OrderNoMChange
|
||||||
|
end
|
||||||
|
object MPRTSpec: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 534
|
||||||
|
Top = 35
|
||||||
|
Width = 80
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 7
|
||||||
|
OnChange = OrderNoMChange
|
||||||
|
end
|
||||||
|
object MPRTCode: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 374
|
||||||
|
Top = 35
|
||||||
|
Width = 76
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 6
|
||||||
|
OnChange = OrderNoMChange
|
||||||
|
end
|
||||||
|
object MPRTKZ: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 654
|
||||||
|
Top = 99
|
||||||
|
Width = 56
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 8
|
||||||
|
OnChange = OrderNoMChange
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid1: TcxGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 126
|
||||||
|
Width = 1540
|
||||||
|
Height = 647
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 2
|
||||||
|
object Tv1: TcxGridDBTableView
|
||||||
|
PopupMenu = PopupMenu1
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
DataController.DataSource = DataSource1
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsData.CancelOnExit = False
|
||||||
|
OptionsData.Deleting = False
|
||||||
|
OptionsData.DeletingConfirmation = False
|
||||||
|
OptionsData.Inserting = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
OptionsView.Indicator = True
|
||||||
|
Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.Selection = DataLink_ShipmentRequest.SHuangSe
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
object cv1Column2: TcxGridDBColumn
|
||||||
|
Caption = #36873#25321
|
||||||
|
DataBinding.FieldName = 'ssel'
|
||||||
|
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Width = 51
|
||||||
|
end
|
||||||
|
object v1OrdDate: TcxGridDBColumn
|
||||||
|
Caption = #21046#21333#26085#26399
|
||||||
|
DataBinding.FieldName = 'OrdDate'
|
||||||
|
PropertiesClassName = 'TcxDateEditProperties'
|
||||||
|
Properties.ShowTime = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v1OrderNo: TcxGridDBColumn
|
||||||
|
Caption = #35745#21010#21333
|
||||||
|
DataBinding.FieldName = 'OrderNo'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v1CustomerNoName: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143
|
||||||
|
DataBinding.FieldName = 'CustomerNoName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
Width = 120
|
||||||
|
end
|
||||||
|
object v1DeliveryDate: TcxGridDBColumn
|
||||||
|
Caption = #20132#36135#26085#26399
|
||||||
|
DataBinding.FieldName = 'DlyDate'
|
||||||
|
PropertiesClassName = 'TcxDateEditProperties'
|
||||||
|
Properties.ShowTime = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v1ConNo: TcxGridDBColumn
|
||||||
|
Caption = #35746#21333#21495
|
||||||
|
DataBinding.FieldName = 'ConNo'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v1Column5: TcxGridDBColumn
|
||||||
|
Caption = #20013#25991#39068#33394
|
||||||
|
DataBinding.FieldName = 'PRTColor'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v1Column7: TcxGridDBColumn
|
||||||
|
Caption = #33521#25991#39068#33394
|
||||||
|
DataBinding.FieldName = 'PRTEColor'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 79
|
||||||
|
end
|
||||||
|
object v1Column8: TcxGridDBColumn
|
||||||
|
Caption = #36319#21333#21592
|
||||||
|
DataBinding.FieldName = 'GDY'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 60
|
||||||
|
end
|
||||||
|
object v1Column6: TcxGridDBColumn
|
||||||
|
Caption = #20135#21697#32534#21495
|
||||||
|
DataBinding.FieldName = 'MPRTCode'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object v1MPRTCodeName: TcxGridDBColumn
|
||||||
|
Caption = #20135#21697#21517#31216
|
||||||
|
DataBinding.FieldName = 'MPRTCodeName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v1MPRTSpec: TcxGridDBColumn
|
||||||
|
Caption = #35268#26684
|
||||||
|
DataBinding.FieldName = 'MPRTSpec'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v1MPRTMF: TcxGridDBColumn
|
||||||
|
Caption = #38376#24133
|
||||||
|
DataBinding.FieldName = 'MPRTMF'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Styles.Header = DataLink_ShipmentRequest.Default
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v1MPRTKZ: TcxGridDBColumn
|
||||||
|
Caption = #20811#37325
|
||||||
|
DataBinding.FieldName = 'MPRTKZ'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object cv1Column3: TcxGridDBColumn
|
||||||
|
Caption = #27454#21495
|
||||||
|
DataBinding.FieldName = 'kuanhao'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 91
|
||||||
|
end
|
||||||
|
object v1Column10: TcxGridDBColumn
|
||||||
|
Caption = #25968#37327
|
||||||
|
DataBinding.FieldName = 'PRTOrderQty'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object v1Column3: TcxGridDBColumn
|
||||||
|
Caption = #25968#37327#21333#20301
|
||||||
|
DataBinding.FieldName = 'OrderUnit'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 80
|
||||||
|
end
|
||||||
|
object v1Column12: TcxGridDBColumn
|
||||||
|
Caption = #33457#22411
|
||||||
|
DataBinding.FieldName = 'PRTHX'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 45
|
||||||
|
end
|
||||||
|
object v1Column4: TcxGridDBColumn
|
||||||
|
Caption = #21253#35013#35201#27714
|
||||||
|
DataBinding.FieldName = 'MPRTBZNote'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 98
|
||||||
|
end
|
||||||
|
object v1Column1: TcxGridDBColumn
|
||||||
|
Caption = #22791#27880
|
||||||
|
DataBinding.FieldName = 'SubNote'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 73
|
||||||
|
end
|
||||||
|
object v1Column11: TcxGridDBColumn
|
||||||
|
Caption = #24211#23384'Kg'
|
||||||
|
DataBinding.FieldName = 'KCKg'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 65
|
||||||
|
end
|
||||||
|
object v1Column2: TcxGridDBColumn
|
||||||
|
Caption = #24211#23384'M'
|
||||||
|
DataBinding.FieldName = 'KCM'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 68
|
||||||
|
end
|
||||||
|
object v1Column9: TcxGridDBColumn
|
||||||
|
Caption = #24211#23384'Y'
|
||||||
|
DataBinding.FieldName = 'KCY'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
HeaderGlyphAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 65
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid1Level1: TcxGridLevel
|
||||||
|
GridView = Tv1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel2: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 96
|
||||||
|
Width = 1540
|
||||||
|
Height = 30
|
||||||
|
Align = alTop
|
||||||
|
BevelOuter = bvNone
|
||||||
|
TabOrder = 3
|
||||||
|
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]
|
||||||
|
ItemHeight = 12
|
||||||
|
ItemIndex = 0
|
||||||
|
ParentFont = False
|
||||||
|
TabOrder = 2
|
||||||
|
Text = '500'
|
||||||
|
OnChange = TCBNORChange
|
||||||
|
Items.Strings = (
|
||||||
|
'500'
|
||||||
|
'1000'
|
||||||
|
'5000'
|
||||||
|
'10000')
|
||||||
|
end
|
||||||
|
end
|
||||||
|
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
|
||||||
299
发货申请(ShipmentRequest.dll)/U_ProductOrderListSel.pas
Normal file
299
发货申请(ShipmentRequest.dll)/U_ProductOrderListSel.pas
Normal file
|
|
@ -0,0 +1,299 @@
|
||||||
|
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;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmProductOrderListSel = class(TForm)
|
||||||
|
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;
|
||||||
|
Label4: TLabel;
|
||||||
|
CustomerNoName: TEdit;
|
||||||
|
Label8: TLabel;
|
||||||
|
MPRTCodeName: TEdit;
|
||||||
|
Label9: TLabel;
|
||||||
|
ConNo: TEdit;
|
||||||
|
Label10: TLabel;
|
||||||
|
MPRTSpec: TEdit;
|
||||||
|
Label11: TLabel;
|
||||||
|
MPRTCode: TEdit;
|
||||||
|
Label12: TLabel;
|
||||||
|
MPRTKZ: TEdit;
|
||||||
|
btn1: TToolButton;
|
||||||
|
cxGrid1: TcxGrid;
|
||||||
|
Tv1: TcxGridDBTableView;
|
||||||
|
cv1Column2: TcxGridDBColumn;
|
||||||
|
v1OrdDate: TcxGridDBColumn;
|
||||||
|
v1OrderNo: TcxGridDBColumn;
|
||||||
|
v1CustomerNoName: TcxGridDBColumn;
|
||||||
|
v1DeliveryDate: TcxGridDBColumn;
|
||||||
|
v1ConNo: TcxGridDBColumn;
|
||||||
|
v1Column5: TcxGridDBColumn;
|
||||||
|
v1Column7: TcxGridDBColumn;
|
||||||
|
v1Column8: TcxGridDBColumn;
|
||||||
|
v1Column6: TcxGridDBColumn;
|
||||||
|
v1MPRTCodeName: TcxGridDBColumn;
|
||||||
|
v1MPRTSpec: TcxGridDBColumn;
|
||||||
|
v1MPRTMF: TcxGridDBColumn;
|
||||||
|
v1MPRTKZ: TcxGridDBColumn;
|
||||||
|
cv1Column3: TcxGridDBColumn;
|
||||||
|
v1Column3: TcxGridDBColumn;
|
||||||
|
v1Column4: TcxGridDBColumn;
|
||||||
|
v1Column1: TcxGridDBColumn;
|
||||||
|
v1Column11: TcxGridDBColumn;
|
||||||
|
v1Column10: TcxGridDBColumn;
|
||||||
|
cxGrid1Level1: TcxGridLevel;
|
||||||
|
v1Column2: TcxGridDBColumn;
|
||||||
|
v1Column9: TcxGridDBColumn;
|
||||||
|
PopupMenu1: TPopupMenu;
|
||||||
|
N1: TMenuItem;
|
||||||
|
N2: TMenuItem;
|
||||||
|
v1Column12: TcxGridDBColumn;
|
||||||
|
Panel2: TPanel;
|
||||||
|
Panel6: TPanel;
|
||||||
|
Label7: TLabel;
|
||||||
|
LBCPAP: TLabel;
|
||||||
|
BTLP: TButton;
|
||||||
|
BTNP: TButton;
|
||||||
|
TCBNOR: TComboBox;
|
||||||
|
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_Fun;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmProductOrderListSel.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
frmProductOrderListSel := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmProductOrderListSel.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmProductOrderListSel.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
cxgrid1.Align := alClient;
|
||||||
|
DQdate := SGetServerDate(ADOQueryTemp);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmProductOrderListSel.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
WriteCxGrid('指示单列表选择ZY', Tv1, '生产指示单管理');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmProductOrderListSel.InitGrid();
|
||||||
|
var
|
||||||
|
strwhere, fwhere, pwhere: string;
|
||||||
|
begin
|
||||||
|
strwhere := '';
|
||||||
|
|
||||||
|
try
|
||||||
|
fwhere := ' where OrdDate>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||||
|
fwhere := fwhere + ' and OrdDate<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
|
||||||
|
|
||||||
|
pwhere := SGetFilters(Panel1, 1, 2);
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Filtered := False;
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
// sql.Add('Select AA.*,KCY=Cast(KCM*1.0936 as decimal(18,1)) from(');
|
||||||
|
// sql.add('select b.prtcolor,B.SUBID ,B.PRTHX,B.OrderUnit,B.SLBName ');
|
||||||
|
// sql.add(',OrderQty=(select Sum(PRTOrderQty) from JYOrder_Sub B where B.MainId=A.MainId group by B.MainId)');
|
||||||
|
// sql.add(',ZQty=(select Sum(PRTOrderQty) from JYOrder_Sub B where B.MainId=A.MainId group by B.MainId)');
|
||||||
|
//// sql.add(',OrderUnit=(select Top 1 OrderUnit from JYOrder_Sub B where B.MainId=A.MainId)');
|
||||||
|
//// sql.add(', PriceUnit=(select Top 1 PriceUnit from JYOrder_Sub B where B.MainId=A.MainId)');
|
||||||
|
//// sql.add(',PRTPrice=(select Top 1 PRTPrice from JYOrder_Sub B where B.MainId=A.MainId)');
|
||||||
|
//// sql.add(',SLBName=(select Top 1 SLBName from JYOrder_Sub B where B.MainId=A.MainId)');
|
||||||
|
// sql.add(',A.*,A.OrderNo OrderNoM, isnull(b.prtorderqty,0)prtorderqty,isnull(b.prtps,0)prtps');
|
||||||
|
// sql.Add(',KCKg=(select sum(KgQty) from CK_BanCP_CR CR where CR.subId=B.Subid and isnull(CR.CRFlag,'''')=''待出库'' and CPtype=''正品'') ');
|
||||||
|
// sql.Add(',KCM=(select sum(Qty) from CK_BanCP_CR CR where CR.subId=B.Subid and isnull(CR.CRFlag,'''')=''待出库'' and CPtype=''正品'') ');
|
||||||
|
// sql.add('from JYOrder_Main A inner join JYOrder_sub B on a.mainid=b.mainid ');
|
||||||
|
// sql.add('where A.OrdDate>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)));
|
||||||
|
// sql.add('and A.OrdDate<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)));
|
||||||
|
// if Trim(CustomerNoName.Text) <> '' then
|
||||||
|
// begin
|
||||||
|
// sql.Add(' and A.CustomerNoName=''' + Trim(CustomerNoName.Text) + '''');
|
||||||
|
// end;
|
||||||
|
// Sql.Add(') AA order by KCM desc');
|
||||||
|
// ShowMessage(SQL.Text);
|
||||||
|
|
||||||
|
// SQL.Add('exec P_View_FHSQZSDXZ @BegDate=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)));
|
||||||
|
// sql.Add(',@EndDate=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)));
|
||||||
|
|
||||||
|
if trim(pwhere) <> '' then
|
||||||
|
fwhere := fwhere + ' and ' + trim(pwhere);
|
||||||
|
sql.Add('exec P_View_FHSQZSDXZ2 ');
|
||||||
|
sql.Add('@pageIndex=' + inttostr(CurrentPage));
|
||||||
|
sql.Add(',@pageSize=' + inttostr(RecordsNumber));
|
||||||
|
sql.Add(',@criteria= ' + quotedstr(fwhere));
|
||||||
|
// ShowMessage(sql.Text);
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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 := SGetServerDate10(ADOQueryTemp) - 90;
|
||||||
|
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmProductOrderListSel.TBFindClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active = False then
|
||||||
|
Exit;
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain, Order_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain, Order_Main);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmProductOrderListSel.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
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.
|
||||||
|
|
||||||
36
发货申请(ShipmentRequest.dll)/U_SLT.dfm
Normal file
36
发货申请(ShipmentRequest.dll)/U_SLT.dfm
Normal 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
84
发货申请(ShipmentRequest.dll)/U_SLT.pas
Normal 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
293
发货申请(ShipmentRequest.dll)/U_SMPK.dfm
Normal 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
345
发货申请(ShipmentRequest.dll)/U_SMPK.pas
Normal 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_Fun, 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;
|
||||||
|
SCreateCDS20(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
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_Main);
|
||||||
|
SInitCDSData20(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
401
发货申请(ShipmentRequest.dll)/U_SQKCHZSelList.dfm
Normal 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
210
发货申请(ShipmentRequest.dll)/U_SQKCHZSelList.pas
Normal 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_Fun,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;
|
||||||
|
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||||
|
SInitCDSData20(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.
|
||||||
670
发货申请(ShipmentRequest.dll)/U_SQSMCK.dfm
Normal file
670
发货申请(ShipmentRequest.dll)/U_SQSMCK.dfm
Normal file
|
|
@ -0,0 +1,670 @@
|
||||||
|
object frmSQSMCK: TfrmSQSMCK
|
||||||
|
Left = 411
|
||||||
|
Top = 171
|
||||||
|
Width = 1149
|
||||||
|
Height = 840
|
||||||
|
Caption = #25104#21697#20986#24211#25195#25551'('#30003#35831')'
|
||||||
|
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 Panel2: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 505
|
||||||
|
Height = 802
|
||||||
|
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 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 = 227
|
||||||
|
Top = 222
|
||||||
|
Width = 25
|
||||||
|
Height = 96
|
||||||
|
Caption = #24050#13#10#21457#13#10#21305#13#10#25968
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -24
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
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 = 14
|
||||||
|
Top = 226
|
||||||
|
Width = 33
|
||||||
|
Height = 66
|
||||||
|
Caption = #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 = 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.663190821760000000
|
||||||
|
Time = 41337.663190821760000000
|
||||||
|
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 = []
|
||||||
|
ItemHeight = 56
|
||||||
|
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 Panel1: TPanel
|
||||||
|
Left = 505
|
||||||
|
Top = 0
|
||||||
|
Width = 628
|
||||||
|
Height = 802
|
||||||
|
Align = alClient
|
||||||
|
Caption = 'Panel1'
|
||||||
|
TabOrder = 1
|
||||||
|
object cxGrid3: TcxGrid
|
||||||
|
Left = 1
|
||||||
|
Top = 214
|
||||||
|
Width = 626
|
||||||
|
Height = 587
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
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 = 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.Inactive = cxStyle1
|
||||||
|
Styles.IncSearch = cxStyle1
|
||||||
|
Styles.Header = cxStyle1
|
||||||
|
object cv3Column3: TcxGridDBColumn
|
||||||
|
Caption = #32568#21495
|
||||||
|
DataBinding.FieldName = 'mjstr4'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 98
|
||||||
|
end
|
||||||
|
object VC_MJXH: 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 cxGrid1: TcxGrid
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 626
|
||||||
|
Height = 213
|
||||||
|
Align = alTop
|
||||||
|
TabOrder = 1
|
||||||
|
object TV4: TcxGridDBTableView
|
||||||
|
NavigatorButtons.ConfirmDelete = False
|
||||||
|
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.Inactive = cxStyle1
|
||||||
|
Styles.IncSearch = cxStyle1
|
||||||
|
Styles.Header = 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
|
||||||
|
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
|
||||||
|
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 = 576
|
||||||
|
Top = 332
|
||||||
|
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 = [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 = 264
|
||||||
|
ReportData = {}
|
||||||
|
end
|
||||||
|
object CDS_JuanPRT: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 652
|
||||||
|
Top = 264
|
||||||
|
end
|
||||||
|
object ds1: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 864
|
||||||
|
Top = 308
|
||||||
|
end
|
||||||
|
object ds2: TDataSource
|
||||||
|
DataSet = ds1
|
||||||
|
Left = 864
|
||||||
|
Top = 344
|
||||||
|
end
|
||||||
|
end
|
||||||
921
发货申请(ShipmentRequest.dll)/U_SQSMCK.pas
Normal file
921
发货申请(ShipmentRequest.dll)/U_SQSMCK.pas
Normal file
|
|
@ -0,0 +1,921 @@
|
||||||
|
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;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmSQSMCK = class(TForm)
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
DS_MainSel: TDataSource;
|
||||||
|
CDS_MainSel: TClientDataSet;
|
||||||
|
cxGridPopupMenu4: TcxGridPopupMenu;
|
||||||
|
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;
|
||||||
|
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;
|
||||||
|
btn1: TButton;
|
||||||
|
lbl2: TLabel;
|
||||||
|
ds1: 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;
|
||||||
|
cCXSQPS: TcxGridDBColumn;
|
||||||
|
cCXFHPS: TcxGridDBColumn;
|
||||||
|
cxGridLevel2: TcxGridLevel;
|
||||||
|
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
|
||||||
|
frmSQSMCK: TfrmSQSMCK;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_Fun, U_RTFun, MMSystem, U_FHSQListSel, U_CKProductBCPKCListSel;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
function TfrmSQSMCK.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 TfrmSQSMCK.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmSQSMCK.FormDestroy(Sender: TObject);
|
||||||
|
begin
|
||||||
|
frmSQSMCK := nil;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmSQSMCK.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
BaoID.SetFocus;
|
||||||
|
ReadCxGrid('扫描出库', Tv3, '坯布仓库');
|
||||||
|
CRTime.DateTime := SGetServerDate(ADOQueryTemp);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmSQSMCK.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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_MainSel);
|
||||||
|
SInitCDSData20(ADOQueryTemp, CDS_MainSel);
|
||||||
|
if CDS_MainSel.IsEmpty = False then
|
||||||
|
Edit1.Text := floatToStr(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 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 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 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.SQPSHZ ');
|
||||||
|
sql.Add(' from FHSQ_Main A');
|
||||||
|
|
||||||
|
sql.Add(' where FSId=''' + Trim(CKOrdNo.Text) + ''' ');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
|
||||||
|
SCSHDataNew(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_Main);
|
||||||
|
SInitCDSData20(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=''待出库'' ');
|
||||||
|
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=''出库'' ');
|
||||||
|
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[2])
|
||||||
|
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 TfrmSQSMCK.Button2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
WriteCxGrid('扫描出库', Tv3, '坯布仓库');
|
||||||
|
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.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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_JuanPRT);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_JuanPRT);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_JuanPRT);
|
||||||
|
SInitCDSData20(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 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
|
||||||
|
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 TfrmSQSMCK.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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_MainSel);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, DS1);
|
||||||
|
SInitCDSData20(ADOQueryTemp, DS1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
674
发货申请(ShipmentRequest.dll)/U_SQSMCKXH.dfm
Normal file
674
发货申请(ShipmentRequest.dll)/U_SQSMCKXH.dfm
Normal file
|
|
@ -0,0 +1,674 @@
|
||||||
|
object frmSQSMCKXH: TfrmSQSMCKXH
|
||||||
|
Left = 295
|
||||||
|
Top = 124
|
||||||
|
Width = 1121
|
||||||
|
Height = 840
|
||||||
|
Caption = #25104#21697#20986#24211#25195#25551'('#30003#35831')'
|
||||||
|
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 = 802
|
||||||
|
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 = 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.Inactive = cxStyle1
|
||||||
|
Styles.IncSearch = cxStyle1
|
||||||
|
Styles.Header = 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 = 802
|
||||||
|
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 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.663190821760000000
|
||||||
|
Time = 41337.663190821760000000
|
||||||
|
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 = []
|
||||||
|
ItemHeight = 56
|
||||||
|
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
|
||||||
|
NavigatorButtons.ConfirmDelete = False
|
||||||
|
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.Inactive = cxStyle1
|
||||||
|
Styles.IncSearch = cxStyle1
|
||||||
|
Styles.Header = 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
|
||||||
|
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 = [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
|
||||||
|
object ds1: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 864
|
||||||
|
Top = 316
|
||||||
|
end
|
||||||
|
object ds2: TDataSource
|
||||||
|
DataSet = ds1
|
||||||
|
Left = 864
|
||||||
|
Top = 344
|
||||||
|
end
|
||||||
|
end
|
||||||
925
发货申请(ShipmentRequest.dll)/U_SQSMCKXH.pas
Normal file
925
发货申请(ShipmentRequest.dll)/U_SQSMCKXH.pas
Normal file
|
|
@ -0,0 +1,925 @@
|
||||||
|
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;
|
||||||
|
|
||||||
|
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_Fun, 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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_MainSel);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
|
||||||
|
SCSHDataNew(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_Main);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_JuanPRT);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_JuanPRT);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_JuanPRT);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_MainSel);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, DS1);
|
||||||
|
SInitCDSData20(ADOQueryTemp, DS1);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
1339
发货申请(ShipmentRequest.dll)/U_SXKCCK.dfm
Normal file
1339
发货申请(ShipmentRequest.dll)/U_SXKCCK.dfm
Normal file
File diff suppressed because it is too large
Load Diff
1244
发货申请(ShipmentRequest.dll)/U_SXKCCK.pas
Normal file
1244
发货申请(ShipmentRequest.dll)/U_SXKCCK.pas
Normal file
File diff suppressed because it is too large
Load Diff
1294
发货申请(ShipmentRequest.dll)/U_SXKCCK220314.dfm
Normal file
1294
发货申请(ShipmentRequest.dll)/U_SXKCCK220314.dfm
Normal file
File diff suppressed because it is too large
Load Diff
662
发货申请(ShipmentRequest.dll)/U_SXKCCK220314.pas
Normal file
662
发货申请(ShipmentRequest.dll)/U_SXKCCK220314.pas
Normal 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_Fun, 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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_YanSe);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_GangHao);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_TuoTuan);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_MainSel);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_MainSel);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp,CDS_YanSeSel);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp,CDS_GangHaoSel);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_TuoTuanSel);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp, CDS_GangHao);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp,CDS_GangHaoSel);
|
||||||
|
SInitCDSData20(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
311
发货申请(ShipmentRequest.dll)/U_SYDept.dfm
Normal 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
353
发货申请(ShipmentRequest.dll)/U_SYDept.pas
Normal 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;
|
||||||
|
SCreateCDS20(ADOQueryTree,CDS_Tree);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp,CDS_User);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp,CDS_User);
|
||||||
|
SInitCDSData20(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
296
发货申请(ShipmentRequest.dll)/U_SYDeptUserView.dfm
Normal 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
336
发货申请(ShipmentRequest.dll)/U_SYDeptUserView.pas
Normal 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;
|
||||||
|
SCreateCDS20(ADOQueryTree,CDS_Tree);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp,CDS_User);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp,CDS_User);
|
||||||
|
SInitCDSData20(ADOQueryTemp,CDS_User);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmSYDeptUserView.Tv4DblClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ModalResult:=1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
304
发货申请(ShipmentRequest.dll)/U_SYDeptView.dfm
Normal file
304
发货申请(ShipmentRequest.dll)/U_SYDeptView.dfm
Normal 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
344
发货申请(ShipmentRequest.dll)/U_SYDeptView.pas
Normal 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;
|
||||||
|
SCreateCDS20(ADOQueryTree,CDS_Tree);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp,CDS_User);
|
||||||
|
SInitCDSData20(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;
|
||||||
|
SCreateCDS20(ADOQueryTemp,CDS_User);
|
||||||
|
SInitCDSData20(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
557
发货申请(ShipmentRequest.dll)/U_UserModuleNameList.dfm
Normal 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
221
发货申请(ShipmentRequest.dll)/U_UserModuleNameList.pas
Normal 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;
|
||||||
|
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||||
|
SInitCDSData20(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));
|
||||||
|
SCreateCDS20(ADOQueryMain,CDS_Main);
|
||||||
|
SInitCDSData20(ADOQueryMain,CDS_Main);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmUserModuleNameList.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitForm();
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TfrmUserModuleNameList.cxPageControl1Change(Sender: TObject);
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
275
发货申请(ShipmentRequest.dll)/U_ZDYHelp.dfm
Normal file
275
发货申请(ShipmentRequest.dll)/U_ZDYHelp.dfm
Normal file
|
|
@ -0,0 +1,275 @@
|
||||||
|
object frmZDYHelp: TfrmZDYHelp
|
||||||
|
Left = 466
|
||||||
|
Top = 188
|
||||||
|
Width = 465
|
||||||
|
Height = 528
|
||||||
|
Caption = #39033#30446#32500#25252
|
||||||
|
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
|
||||||
|
OnShow = FormShow
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 12
|
||||||
|
object cxGrid1: TcxGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 73
|
||||||
|
Width = 449
|
||||||
|
Height = 417
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 2
|
||||||
|
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 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 = 449
|
||||||
|
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_ShipmentRequest.ThreeImgList
|
||||||
|
List = True
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
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 TBSave: TToolButton
|
||||||
|
Left = 236
|
||||||
|
Top = 0
|
||||||
|
Caption = #20445#23384
|
||||||
|
ImageIndex = 15
|
||||||
|
Visible = False
|
||||||
|
OnClick = TBSaveClick
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 295
|
||||||
|
Top = 0
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 29
|
||||||
|
Width = 449
|
||||||
|
Height = 44
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
TabOrder = 1
|
||||||
|
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
|
||||||
724
发货申请(ShipmentRequest.dll)/U_ZDYHelp.pas
Normal file
724
发货申请(ShipmentRequest.dll)/U_ZDYHelp.pas
Normal file
|
|
@ -0,0 +1,724 @@
|
||||||
|
unit U_ZDYHelp;
|
||||||
|
|
||||||
|
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;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmZDYHelp = class(TForm)
|
||||||
|
TV1: TcxGridDBTableView;
|
||||||
|
cxGrid1Level1: TcxGridLevel;
|
||||||
|
cxGrid1: TcxGrid;
|
||||||
|
V1Code: TcxGridDBColumn;
|
||||||
|
V1Name: TcxGridDBColumn;
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
DataSource1: TDataSource;
|
||||||
|
ClientDataSet1: TClientDataSet;
|
||||||
|
TBAdd: TToolButton;
|
||||||
|
TBSave: TToolButton;
|
||||||
|
TBDel: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
TBEdit: TToolButton;
|
||||||
|
V1Note: TcxGridDBColumn;
|
||||||
|
V1OrderNo: TcxGridDBColumn;
|
||||||
|
Panel1: TPanel;
|
||||||
|
Label1: TLabel;
|
||||||
|
ZDYName: TEdit;
|
||||||
|
Label2: TLabel;
|
||||||
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||||
|
V1ZdyFlag: TcxGridDBColumn;
|
||||||
|
V1HelpType: TcxGridDBColumn;
|
||||||
|
V1ZdyStr1: TcxGridDBColumn;
|
||||||
|
V1ZdyStr2: TcxGridDBColumn;
|
||||||
|
V1ZdyStr3: TcxGridDBColumn;
|
||||||
|
V1ZdyStr4: TcxGridDBColumn;
|
||||||
|
V1ZdyStr5: TcxGridDBColumn;
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure TBAddClick(Sender: TObject);
|
||||||
|
procedure TBSaveClick(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 ZDYNameChange(Sender: TObject);
|
||||||
|
procedure V1NamePropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure V1NotePropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure V1Column1PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject);
|
||||||
|
procedure V1ZdyStr1PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
private
|
||||||
|
procedure InitGrid();
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
flag,flagname,snote,MainType:string;
|
||||||
|
fnote,forderno,fZdyFlag,ViewFlag:Boolean;
|
||||||
|
PPSTE:integer;
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmZDYHelp: TfrmZDYHelp;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses
|
||||||
|
U_DataLink,U_RTFun;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
{try
|
||||||
|
cxGrid1.Align:=alClient;
|
||||||
|
with ADOConnection1 do
|
||||||
|
begin
|
||||||
|
Connected:=false;
|
||||||
|
ConnectionString:=DConString;
|
||||||
|
//ConnectionString:='';
|
||||||
|
Connected:=true;
|
||||||
|
end;
|
||||||
|
except
|
||||||
|
{if Application.MessageBox('网络连接失败,是否要再次连接?','提示',32+4)=IDYES then
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
with ADOConnection1 do
|
||||||
|
begin
|
||||||
|
Connected:=false;
|
||||||
|
ConnectionString:=DConString;
|
||||||
|
//ConnectionString:='23242';
|
||||||
|
Connected:=true;
|
||||||
|
end;
|
||||||
|
except
|
||||||
|
end;
|
||||||
|
end; }
|
||||||
|
|
||||||
|
{frmRTZDYHelp.Free;
|
||||||
|
end; }
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.FormClose(Sender: TObject;
|
||||||
|
var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
ZDYName.SetFocus;
|
||||||
|
WriteCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
|
||||||
|
Action:=caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.InitGrid();
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type='''+flag+'''');
|
||||||
|
if Trim(MainType)<>'' then
|
||||||
|
begin
|
||||||
|
sql.Add(' and A.MainType='''+Trim(MainType)+'''');
|
||||||
|
end;
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS20(ADOQueryMain,ClientDataSet1);
|
||||||
|
SInitCDSData20(ADOQueryMain,ClientDataSet1);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
procedure TfrmZDYHelp.TBAddClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
i:Integer;
|
||||||
|
begin
|
||||||
|
ZDYName.SetFocus;
|
||||||
|
TV1.OptionsData.Editing:=True;
|
||||||
|
TV1.OptionsSelection.CellSelect:=True;
|
||||||
|
for i:=0 to 5 do
|
||||||
|
begin
|
||||||
|
with ClientDataSet1 do
|
||||||
|
begin
|
||||||
|
Append;
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
procedure TfrmZDYHelp.TBSaveClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
maxno:string;
|
||||||
|
begin
|
||||||
|
if ClientDataSet1.IsEmpty then Exit;
|
||||||
|
ZDYName.SetFocus;
|
||||||
|
|
||||||
|
if ClientDataSet1.Locate('ZDYName',null,[]) then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('名称不能为空！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
if ClientDataSet1.Locate('ZDYName','',[]) then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('名称不能为空！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
try
|
||||||
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+'''');
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
if ADOQueryTemp.IsEmpty then
|
||||||
|
begin
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType ');
|
||||||
|
Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
|
||||||
|
Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
|
||||||
|
Parameters.ParamByName('Type').Value:='Main';
|
||||||
|
Parameters.ParamByName('MainType').Value:=Trim(MainType);
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
ClientDataSet1.DisableControls;
|
||||||
|
with ClientDataSet1 do
|
||||||
|
begin
|
||||||
|
First;
|
||||||
|
while not eof do
|
||||||
|
begin
|
||||||
|
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then
|
||||||
|
begin
|
||||||
|
if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
ClientDataSet1.EnableControls;
|
||||||
|
Application.MessageBox('取最大编号失败！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||||
|
end;
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.add('select * from KH_Zdy where Type='''+Trim(flag)+'''');
|
||||||
|
if Trim(MainType)<>'' then
|
||||||
|
SQL.Add(' and MainType='''+Trim(MainType)+'''');
|
||||||
|
sql.Add(' and ZdyName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOQueryTemp.IsEmpty=False then
|
||||||
|
begin
|
||||||
|
if ADOQueryTemp.RecordCount>1 then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
ClientDataSet1.EnableControls;
|
||||||
|
Application.MessageBox('名称重复！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)='' then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
ClientDataSet1.EnableControls;
|
||||||
|
Application.MessageBox('名称重复！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString)<>Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
ClientDataSet1.EnableControls;
|
||||||
|
Application.MessageBox('名称重复！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+'''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select * from KH_ZDY where 1<>1');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
ADOQueryCmd.Append;
|
||||||
|
ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno);
|
||||||
|
ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').Value;
|
||||||
|
ADOQueryCmd.FieldByName('note').Value:=Trim(snote);
|
||||||
|
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
|
||||||
|
ADOQueryCmd.FieldByName('Type').Value:=flag;
|
||||||
|
ADOQueryCmd.FieldByName('valid').Value:='Y';
|
||||||
|
if Trim(MainType)<>'' then
|
||||||
|
ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType);
|
||||||
|
//ADOQueryCmd.FieldByName('sel').Value:=0;
|
||||||
|
ADOQueryCmd.Post;
|
||||||
|
ClientDataSet1.Edit;
|
||||||
|
ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno);
|
||||||
|
ClientDataSet1.Post;
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
ClientDataSet1.EnableControls;
|
||||||
|
end;
|
||||||
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
|
Application.MessageBox('保存成功！','提示',0);
|
||||||
|
TV1.OptionsData.Editing:=False;
|
||||||
|
TV1.OptionsSelection.CellSelect:=False;
|
||||||
|
except
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
Application.MessageBox('保存失败！','提示',0);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.TBDelClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ClientDataSet1.IsEmpty then Exit;
|
||||||
|
if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString)<>'') or
|
||||||
|
(Trim(ClientDataSet1.FieldByName('ZDYname').AsString)<>'') then
|
||||||
|
begin
|
||||||
|
if application.MessageBox('确定要删除吗?','提示信息',1)=2 then exit;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('delete KH_ZDY where ZDYNo='''+Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString)+'''');
|
||||||
|
SQL.Add(' and Type='''+Trim(flag)+'''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
ClientDataSet1.Delete;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ModalResult:=2;
|
||||||
|
ZDYName.SetFocus;
|
||||||
|
WriteCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.FormShow(Sender: TObject);
|
||||||
|
var
|
||||||
|
fsj,fsj1:string;
|
||||||
|
begin
|
||||||
|
{if PPSTE=1 then
|
||||||
|
begin
|
||||||
|
Application.Terminate;
|
||||||
|
Exit;
|
||||||
|
end; }
|
||||||
|
InitGrid();
|
||||||
|
fsj:=Trim(flag)+'01';
|
||||||
|
fsj1:=Trim(flagname)+'01';
|
||||||
|
{if ClientDataSet1.IsEmpty then
|
||||||
|
begin
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('insert into KH_ZDY(ZDYNo,ZDYname,Type,note)');
|
||||||
|
sql.Add('select '''+Trim(fsj)+'''');
|
||||||
|
sql.Add(','''+Trim(fsj1)+'''');
|
||||||
|
SQL.Add(','''+Trim(flag)+'''');
|
||||||
|
sql.Add(','''+Trim(snote)+'''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
InitGrid();
|
||||||
|
end;}
|
||||||
|
//frmZDYHelp.Caption:=Trim(flagname)+'<'+Trim(flag)+'>';
|
||||||
|
//ReadCxGrid('自定义',TV1,'自定义数据');
|
||||||
|
ReadCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
|
||||||
|
frmZDYHelp.Caption:=Trim(flagname);
|
||||||
|
V1Note.Visible:=fnote;
|
||||||
|
V1ZdyFlag.Visible:=fZdyFlag;
|
||||||
|
V1OrderNo.Visible:=forderno;
|
||||||
|
if ViewFlag=True then
|
||||||
|
begin
|
||||||
|
TBAdd.Visible:=False;
|
||||||
|
TBSave.Visible:=False;
|
||||||
|
TBDel.Visible:=False;
|
||||||
|
TBEdit.Visible:=False;
|
||||||
|
Label2.Visible:=False;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.ToolButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ZDYName.SetFocus;
|
||||||
|
WriteCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
|
||||||
|
ModalResult:=1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.TBEditClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TV1.OptionsData.Editing:=True;
|
||||||
|
TV1.OptionsSelection.CellSelect:=True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.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 TfrmZDYHelp.ZDYNameChange(Sender: TObject);
|
||||||
|
var
|
||||||
|
fsj:String;
|
||||||
|
begin
|
||||||
|
if Trim(ZDYName.Text)<>'' then
|
||||||
|
begin
|
||||||
|
fsj:=' zdyname like '''+'%'+Trim(ZDYName.Text)+'%'+''''
|
||||||
|
+' or Note like '''+'%'+Trim(ZDYName.Text)+'%'+''''
|
||||||
|
+' or ZJM like '''+'%'+Trim(ZDYName.Text)+'%'+'''';
|
||||||
|
end;
|
||||||
|
if ADOQueryMain.Active then
|
||||||
|
begin
|
||||||
|
// SDofilter(ADOQueryMain,fsj);
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
if Trim(fsj)='' then
|
||||||
|
begin
|
||||||
|
Filtered:=False;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
Filtered:=False;
|
||||||
|
Filter:=fsj;
|
||||||
|
Filtered:=True;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
SCreateCDS20(ADOQueryMain,ClientDataSet1);
|
||||||
|
SInitCDSData20(ADOQueryMain,ClientDataSet1);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.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('ZdyName').Value:=Trim(mvalue);
|
||||||
|
//Post;
|
||||||
|
end;
|
||||||
|
try
|
||||||
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+'''');
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
if ADOQueryTemp.IsEmpty then
|
||||||
|
begin
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType ');
|
||||||
|
Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
|
||||||
|
Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
|
||||||
|
Parameters.ParamByName('Type').Value:='Main';
|
||||||
|
Parameters.ParamByName('MainType').Value:=Trim(MainType);
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
//ClientDataSet1.DisableControls;
|
||||||
|
//with ClientDataSet1 do
|
||||||
|
//begin
|
||||||
|
//First;
|
||||||
|
//while not eof do
|
||||||
|
//begin
|
||||||
|
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then
|
||||||
|
begin
|
||||||
|
if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
//ClientDataSet1.EnableControls;
|
||||||
|
Application.MessageBox('取最大编号失败！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||||
|
end;
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.add('select * from KH_Zdy where Type='''+Trim(flag)+'''');
|
||||||
|
if Trim(MainType)<>'' then
|
||||||
|
SQL.Add(' and MainType='''+Trim(MainType)+'''');
|
||||||
|
sql.Add(' and ZdyName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOQueryTemp.IsEmpty=False then
|
||||||
|
begin
|
||||||
|
if ADOQueryTemp.RecordCount>1 then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
|
||||||
|
//ClientDataSet1.EnableControls;
|
||||||
|
Application.MessageBox('名称重复！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)='' then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
//ClientDataSet1.EnableControls;
|
||||||
|
Application.MessageBox('名称重复！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString)<>Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
//ClientDataSet1.EnableControls;
|
||||||
|
Application.MessageBox('名称重复！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+'''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select * from KH_ZDY where 1<>1');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
ADOQueryCmd.Append;
|
||||||
|
ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno);
|
||||||
|
ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString;
|
||||||
|
ADOQueryCmd.FieldByName('note').Value:=Trim(snote);
|
||||||
|
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
|
||||||
|
ADOQueryCmd.FieldByName('Type').Value:=flag;
|
||||||
|
ADOQueryCmd.FieldByName('valid').Value:='Y';
|
||||||
|
if Trim(MainType)<>'' then
|
||||||
|
ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType);
|
||||||
|
//ADOQueryCmd.FieldByName('sel').Value:=0;
|
||||||
|
ADOQueryCmd.Post;
|
||||||
|
ClientDataSet1.Edit;
|
||||||
|
ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno);
|
||||||
|
//ClientDataSet1.Post;
|
||||||
|
// Next;
|
||||||
|
//end;
|
||||||
|
//end;
|
||||||
|
// ClientDataSet1.EnableControls;
|
||||||
|
end;
|
||||||
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
|
//Application.MessageBox('保存成功！','提示',0);
|
||||||
|
//TV1.OptionsData.Editing:=False;
|
||||||
|
//TV1.OptionsSelection.CellSelect:=False;
|
||||||
|
except
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
Application.MessageBox('保存失败！','提示',0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.V1OrderNoPropertiesEditValueChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
mvalue:string;
|
||||||
|
begin
|
||||||
|
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('名称不能为空!','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
mvalue:=TcxTextEdit(Sender).EditingText;
|
||||||
|
if Trim(mvalue)='' then
|
||||||
|
begin
|
||||||
|
mvalue:='0';
|
||||||
|
end;
|
||||||
|
with ClientDataSet1 do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('OrderNo').Value:=mvalue;
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('Update KH_Zdy Set OrderNo='+mvalue);
|
||||||
|
sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+'''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.V1NotePropertiesEditValueChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
mvalue:string;
|
||||||
|
begin
|
||||||
|
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('名称不能为空!','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
mvalue:=TcxTextEdit(Sender).EditingText;
|
||||||
|
if Trim(mvalue)='' then
|
||||||
|
begin
|
||||||
|
mvalue:='0';
|
||||||
|
end;
|
||||||
|
with ClientDataSet1 do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('Note').Value:=mvalue;
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('Update KH_Zdy Set Note='''+Trim(mvalue)+'''');
|
||||||
|
sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+'''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.V1Column1PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
mvalue:String;
|
||||||
|
begin
|
||||||
|
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('名称不能为空!','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
mvalue:=TcxTextEdit(Sender).EditingText;
|
||||||
|
if Trim(mvalue)='' then
|
||||||
|
begin
|
||||||
|
mvalue:='0';
|
||||||
|
end;
|
||||||
|
with ClientDataSet1 do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('ZdyFlag').Value:=StrToInt(mvalue);
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('Update KH_Zdy Set ZdyFlag='+Trim(mvalue));
|
||||||
|
sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+'''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.V1HelpTypePropertiesEditValueChanged(
|
||||||
|
Sender: TObject);
|
||||||
|
var
|
||||||
|
mvalue:string;
|
||||||
|
begin
|
||||||
|
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('名称不能为空!','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
mvalue:=TcxTextEdit(Sender).EditingText;
|
||||||
|
if Trim(mvalue)='' then
|
||||||
|
begin
|
||||||
|
mvalue:='0';
|
||||||
|
end;
|
||||||
|
with ClientDataSet1 do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName('HelpType').Value:=mvalue;
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('Update KH_Zdy Set HelpType='''+Trim(mvalue)+'''');
|
||||||
|
sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+'''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelp.V1ZdyStr1PropertiesEditValueChanged(Sender: TObject);
|
||||||
|
var
|
||||||
|
mvalue,FFieldName:string;
|
||||||
|
begin
|
||||||
|
if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('名称不能为空!','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
mvalue:=TcxTextEdit(Sender).EditingText;
|
||||||
|
FFieldName:=TV1.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
||||||
|
if Trim(mvalue)='' then
|
||||||
|
begin
|
||||||
|
mvalue:='';
|
||||||
|
end;
|
||||||
|
with ClientDataSet1 do
|
||||||
|
begin
|
||||||
|
Edit;
|
||||||
|
FieldByName(FFieldName).Value:=mvalue;
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
sql.Add('Update KH_Zdy Set '+FFieldName+'='''+Trim(mvalue)+'''');
|
||||||
|
sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+'''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
end.
|
||||||
224
发货申请(ShipmentRequest.dll)/U_ZDYHelpSel.dfm
Normal file
224
发货申请(ShipmentRequest.dll)/U_ZDYHelpSel.dfm
Normal file
|
|
@ -0,0 +1,224 @@
|
||||||
|
object frmZDYHelpSel: TfrmZDYHelpSel
|
||||||
|
Left = 392
|
||||||
|
Top = 169
|
||||||
|
Width = 574
|
||||||
|
Height = 598
|
||||||
|
Caption = #39033#30446#32500#25252
|
||||||
|
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 = 558
|
||||||
|
Height = 486
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 0
|
||||||
|
object TV1: TcxGridDBTableView
|
||||||
|
NavigatorButtons.ConfirmDelete = False
|
||||||
|
OnCellDblClick = TV1CellDblClick
|
||||||
|
DataController.DataSource = DataSource1
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsBehavior.FocusCellOnTab = True
|
||||||
|
OptionsBehavior.GoToNextCellOnEnter = True
|
||||||
|
OptionsBehavior.FocusCellOnCycle = True
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
object V1Code: TcxGridDBColumn
|
||||||
|
Caption = #32534#21495
|
||||||
|
DataBinding.FieldName = 'ZDYNo'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 97
|
||||||
|
end
|
||||||
|
object V1Column1: TcxGridDBColumn
|
||||||
|
Caption = #36873#25321
|
||||||
|
DataBinding.FieldName = 'SSel'
|
||||||
|
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.NullStyle = nssUnchecked
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 48
|
||||||
|
end
|
||||||
|
object V1Name: TcxGridDBColumn
|
||||||
|
Tag = 2
|
||||||
|
Caption = #21517#31216
|
||||||
|
DataBinding.FieldName = 'ZDYName'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 208
|
||||||
|
end
|
||||||
|
object V1Note: TcxGridDBColumn
|
||||||
|
Caption = #22791#27880
|
||||||
|
DataBinding.FieldName = 'Note'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 57
|
||||||
|
end
|
||||||
|
object V1OrderNo: TcxGridDBColumn
|
||||||
|
Caption = #39034#24207#21495
|
||||||
|
DataBinding.FieldName = 'OrderNo'
|
||||||
|
Visible = False
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 53
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid1Level1: TcxGridLevel
|
||||||
|
GridView = TV1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ToolBar1: TToolBar
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 558
|
||||||
|
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 = #30830#23450
|
||||||
|
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 TBSave: TToolButton
|
||||||
|
Left = 236
|
||||||
|
Top = 0
|
||||||
|
Caption = #20445#23384
|
||||||
|
ImageIndex = 15
|
||||||
|
Visible = False
|
||||||
|
OnClick = TBSaveClick
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 295
|
||||||
|
Top = 0
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 21
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel
|
||||||
|
Left = 0
|
||||||
|
Top = 29
|
||||||
|
Width = 558
|
||||||
|
Height = 44
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
TabOrder = 2
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 19
|
||||||
|
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 = 54
|
||||||
|
Top = 12
|
||||||
|
Width = 169
|
||||||
|
Height = 20
|
||||||
|
TabOrder = 0
|
||||||
|
OnChange = ZDYNameChange
|
||||||
|
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 = 200
|
||||||
|
Top = 144
|
||||||
|
end
|
||||||
|
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid1
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 352
|
||||||
|
Top = 248
|
||||||
|
end
|
||||||
|
end
|
||||||
465
发货申请(ShipmentRequest.dll)/U_ZDYHelpSel.pas
Normal file
465
发货申请(ShipmentRequest.dll)/U_ZDYHelpSel.pas
Normal file
|
|
@ -0,0 +1,465 @@
|
||||||
|
unit U_ZDYHelpSel;
|
||||||
|
|
||||||
|
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, cxCheckBox, cxTextEdit, cxGridCustomPopupMenu,
|
||||||
|
cxGridPopupMenu;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmZDYHelpSel = class(TForm)
|
||||||
|
TV1: TcxGridDBTableView;
|
||||||
|
cxGrid1Level1: TcxGridLevel;
|
||||||
|
cxGrid1: TcxGrid;
|
||||||
|
V1Code: TcxGridDBColumn;
|
||||||
|
V1Name: TcxGridDBColumn;
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
DataSource1: TDataSource;
|
||||||
|
ClientDataSet1: TClientDataSet;
|
||||||
|
TBAdd: TToolButton;
|
||||||
|
TBSave: TToolButton;
|
||||||
|
TBDel: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
ToolButton1: TToolButton;
|
||||||
|
TBEdit: TToolButton;
|
||||||
|
V1Note: TcxGridDBColumn;
|
||||||
|
V1OrderNo: TcxGridDBColumn;
|
||||||
|
Panel1: TPanel;
|
||||||
|
Label1: TLabel;
|
||||||
|
ZDYName: TEdit;
|
||||||
|
V1Column1: TcxGridDBColumn;
|
||||||
|
Label2: TLabel;
|
||||||
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure TBAddClick(Sender: TObject);
|
||||||
|
procedure TBSaveClick(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 ZDYNameChange(Sender: TObject);
|
||||||
|
procedure V1NamePropertiesEditValueChanged(Sender: TObject);
|
||||||
|
private
|
||||||
|
procedure InitGrid();
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
flag,flagname,snote,MainType,ReturnStr,FGStr:string;
|
||||||
|
fnote,forderno:Boolean;
|
||||||
|
PPSTE,JiangeStr:integer;
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
frmZDYHelpSel: TfrmZDYHelpSel;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
uses
|
||||||
|
U_DataLink,U_RTFun;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmZDYHelpSel.FormClose(Sender: TObject;
|
||||||
|
var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
ZDYName.SetFocus;
|
||||||
|
Action:=caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelpSel.InitGrid();
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select * from KH_ZDY where Type='''+flag+'''');
|
||||||
|
if Trim(MainType)<>'' then
|
||||||
|
begin
|
||||||
|
sql.Add(' and MainType='''+Trim(MainType)+'''');
|
||||||
|
end;
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS20(ADOQueryMain,ClientDataSet1);
|
||||||
|
SInitCDSData20(ADOQueryMain,ClientDataSet1);
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelpSel.TBAddClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
i:Integer;
|
||||||
|
begin
|
||||||
|
ZDYName.SetFocus;
|
||||||
|
TV1.OptionsData.Editing:=True;
|
||||||
|
TV1.OptionsSelection.CellSelect:=True;
|
||||||
|
for i:=0 to 5 do
|
||||||
|
begin
|
||||||
|
with ClientDataSet1 do
|
||||||
|
begin
|
||||||
|
Append;
|
||||||
|
Post;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelpSel.TBSaveClick(Sender: TObject);
|
||||||
|
var
|
||||||
|
maxno:string;
|
||||||
|
begin
|
||||||
|
if ClientDataSet1.IsEmpty then Exit;
|
||||||
|
try
|
||||||
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+'''');
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
if ADOQueryTemp.IsEmpty then
|
||||||
|
begin
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType ');
|
||||||
|
Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
|
||||||
|
Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
|
||||||
|
Parameters.ParamByName('Type').Value:='Main';
|
||||||
|
Parameters.ParamByName('MainType').Value:=Trim(MainType);
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
with ClientDataSet1 do
|
||||||
|
begin
|
||||||
|
First;
|
||||||
|
while not eof do
|
||||||
|
begin
|
||||||
|
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then
|
||||||
|
begin
|
||||||
|
if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
Application.MessageBox('取最大编号失败！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+'''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select * from KH_ZDY where 1<>1');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if Trim(ClientDataSet1.FieldByName('ZDYName').AsString)='' then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
Application.MessageBox('名称不能为空！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
ADOQueryCmd.Append;
|
||||||
|
ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno);
|
||||||
|
ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString;
|
||||||
|
ADOQueryCmd.FieldByName('note').Value:=Trim(snote);
|
||||||
|
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
|
||||||
|
ADOQueryCmd.FieldByName('Type').Value:=flag;
|
||||||
|
ADOQueryCmd.FieldByName('valid').Value:='Y';
|
||||||
|
if Trim(MainType)<>'' then
|
||||||
|
ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType);
|
||||||
|
//ADOQueryCmd.FieldByName('sel').Value:=0;
|
||||||
|
ADOQueryCmd.Post;
|
||||||
|
ClientDataSet1.Edit;
|
||||||
|
ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno);
|
||||||
|
ClientDataSet1.Post;
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
|
Application.MessageBox('保存成功！','提示',0);
|
||||||
|
except
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
Application.MessageBox('保存失败！','提示',0);
|
||||||
|
end;
|
||||||
|
// TV1.OptionsData.Editing:=False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelpSel.TBDelClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ClientDataSet1.IsEmpty then Exit;
|
||||||
|
if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString)<>'') or
|
||||||
|
(Trim(ClientDataSet1.FieldByName('ZDYname').AsString)<>'') then
|
||||||
|
begin
|
||||||
|
if application.MessageBox('确定要删除吗?','提示信息',1)=2 then exit;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('delete KH_ZDY where ZDYNo='''+Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString)+'''');
|
||||||
|
SQL.Add(' and Type='''+Trim(flag)+'''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
ClientDataSet1.Delete;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelpSel.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ModalResult:=2;
|
||||||
|
ZDYName.SetFocus;
|
||||||
|
WriteCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelpSel.FormShow(Sender: TObject);
|
||||||
|
var
|
||||||
|
fsj,fsj1:string;
|
||||||
|
begin
|
||||||
|
{if PPSTE=1 then
|
||||||
|
begin
|
||||||
|
Application.Terminate;
|
||||||
|
Exit;
|
||||||
|
end; }
|
||||||
|
InitGrid();
|
||||||
|
fsj:=Trim(flag)+'01';
|
||||||
|
fsj1:=Trim(flagname)+'01';
|
||||||
|
ReadCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
|
||||||
|
{if ClientDataSet1.IsEmpty then
|
||||||
|
begin
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('insert into KH_ZDY(ZDYNo,ZDYname,Type,note)');
|
||||||
|
sql.Add('select '''+Trim(fsj)+'''');
|
||||||
|
sql.Add(','''+Trim(fsj1)+'''');
|
||||||
|
SQL.Add(','''+Trim(flag)+'''');
|
||||||
|
sql.Add(','''+Trim(snote)+'''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
InitGrid();
|
||||||
|
end;}
|
||||||
|
//frmZDYHelp.Caption:=Trim(flagname)+'<'+Trim(flag)+'>';
|
||||||
|
frmZDYHelpSel.Caption:=Trim(flagname);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelpSel.ToolButton1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ReturnStr:='';
|
||||||
|
with ClientDataSet1 do
|
||||||
|
begin
|
||||||
|
First;
|
||||||
|
while not Eof do
|
||||||
|
begin
|
||||||
|
if FieldByName('SSel').AsBoolean=True then
|
||||||
|
begin
|
||||||
|
if JiangeStr<>99 then
|
||||||
|
begin
|
||||||
|
if FGStr<>'' then
|
||||||
|
ReturnStr:=ReturnStr+Trim(fieldbyname('ZDYName').AsString)+FGStr
|
||||||
|
else
|
||||||
|
ReturnStr:=ReturnStr+Trim(fieldbyname('ZDYName').AsString)+';'
|
||||||
|
end
|
||||||
|
else
|
||||||
|
ReturnStr:=ReturnStr+Trim(fieldbyname('ZDYName').AsString);
|
||||||
|
end;
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
if JiangeStr<>99 then
|
||||||
|
ReturnStr:=Copy(ReturnStr,1,Length(ReturnStr)-1);
|
||||||
|
ModalResult:=1;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelpSel.TBEditClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
TV1.OptionsData.Editing:=True;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelpSel.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 TfrmZDYHelpSel.ZDYNameChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active then
|
||||||
|
begin
|
||||||
|
SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
|
||||||
|
SCreateCDS20(ADOQueryMain,ClientDataSet1);
|
||||||
|
SInitCDSData20(ADOQueryMain,ClientDataSet1);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmZDYHelpSel.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('ZdyName').Value:=Trim(mvalue);
|
||||||
|
//Post;
|
||||||
|
end;
|
||||||
|
try
|
||||||
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
SQL.Clear;
|
||||||
|
SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+'''');
|
||||||
|
open;
|
||||||
|
end;
|
||||||
|
if ADOQueryTemp.IsEmpty then
|
||||||
|
begin
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType ');
|
||||||
|
Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
|
||||||
|
Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
|
||||||
|
Parameters.ParamByName('Type').Value:='Main';
|
||||||
|
Parameters.ParamByName('MainType').Value:=Trim(MainType);
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
//ClientDataSet1.DisableControls;
|
||||||
|
//with ClientDataSet1 do
|
||||||
|
//begin
|
||||||
|
//First;
|
||||||
|
//while not eof do
|
||||||
|
//begin
|
||||||
|
if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then
|
||||||
|
begin
|
||||||
|
if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
//ClientDataSet1.EnableControls;
|
||||||
|
Application.MessageBox('取最大编号失败！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||||
|
end;
|
||||||
|
with ADOQueryTemp do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.add('select * from KH_Zdy where Type='''+Trim(flag)+'''');
|
||||||
|
if Trim(MainType)<>'' then
|
||||||
|
SQL.Add(' and MainType='''+Trim(MainType)+'''');
|
||||||
|
sql.Add(' and ZdyName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
if ADOQueryTemp.IsEmpty=False then
|
||||||
|
begin
|
||||||
|
if ADOQueryTemp.RecordCount>1 then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
//ClientDataSet1.EnableControls;
|
||||||
|
Application.MessageBox('名称重复！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)='' then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
//ClientDataSet1.EnableControls;
|
||||||
|
Application.MessageBox('名称重复！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end else
|
||||||
|
begin
|
||||||
|
if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString)<>Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
|
||||||
|
begin
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
//ClientDataSet1.EnableControls;
|
||||||
|
Application.MessageBox('名称重复！','提示',0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+'''');
|
||||||
|
ExecSQL;
|
||||||
|
end;
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
sql.Add('select * from KH_ZDY where 1<>1');
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
ADOQueryCmd.Append;
|
||||||
|
ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno);
|
||||||
|
ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString;
|
||||||
|
ADOQueryCmd.FieldByName('note').Value:=Trim(snote);
|
||||||
|
//ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
|
||||||
|
ADOQueryCmd.FieldByName('Type').Value:=flag;
|
||||||
|
ADOQueryCmd.FieldByName('valid').Value:='Y';
|
||||||
|
if Trim(MainType)<>'' then
|
||||||
|
ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType);
|
||||||
|
//ADOQueryCmd.FieldByName('sel').Value:=0;
|
||||||
|
ADOQueryCmd.Post;
|
||||||
|
ClientDataSet1.Edit;
|
||||||
|
ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno);
|
||||||
|
//ClientDataSet1.Post;
|
||||||
|
// Next;
|
||||||
|
//end;
|
||||||
|
//end;
|
||||||
|
// ClientDataSet1.EnableControls;
|
||||||
|
end;
|
||||||
|
ADOQueryCmd.Connection.CommitTrans;
|
||||||
|
//Application.MessageBox('保存成功！','提示',0);
|
||||||
|
//TV1.OptionsData.Editing:=False;
|
||||||
|
//TV1.OptionsSelection.CellSelect:=False;
|
||||||
|
except
|
||||||
|
ADOQueryCmd.Connection.RollbackTrans;
|
||||||
|
Application.MessageBox('保存失败！','提示',0);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
218
发货申请(ShipmentRequest.dll)/U_ZdyAttInput.dfm
Normal file
218
发货申请(ShipmentRequest.dll)/U_ZdyAttInput.dfm
Normal file
|
|
@ -0,0 +1,218 @@
|
||||||
|
object frmZdyAttInput: TfrmZdyAttInput
|
||||||
|
Left = 219
|
||||||
|
Top = 254
|
||||||
|
Width = 920
|
||||||
|
Height = 370
|
||||||
|
Caption = #23458#25143#36164#26009#24405#20837
|
||||||
|
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 = 912
|
||||||
|
Height = 31
|
||||||
|
ButtonHeight = 30
|
||||||
|
ButtonWidth = 59
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clSkyBlue
|
||||||
|
DisabledImages = DataLink_BaseInfo.ThreeImgList
|
||||||
|
Flat = True
|
||||||
|
Images = DataLink_BaseInfo.ThreeImgList
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
object ToolButton3: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384
|
||||||
|
ImageIndex = 14
|
||||||
|
OnClick = ToolButton3Click
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 63
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 55
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid2: TcxGrid
|
||||||
|
Left = 0
|
||||||
|
Top = 31
|
||||||
|
Width = 912
|
||||||
|
Height = 302
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 1
|
||||||
|
object Tv2: TcxGridDBTableView
|
||||||
|
NavigatorButtons.ConfirmDelete = False
|
||||||
|
NavigatorButtons.Delete.Enabled = False
|
||||||
|
NavigatorButtons.Delete.Visible = False
|
||||||
|
DataController.DataSource = DS_HZ
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsBehavior.GoToNextCellOnEnter = True
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsData.Deleting = False
|
||||||
|
OptionsData.DeletingConfirmation = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
Styles.Header = DataLink_BaseInfo.handBlack
|
||||||
|
object v2Column6: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143#21517#31216
|
||||||
|
DataBinding.FieldName = 'ZdyName'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 147
|
||||||
|
end
|
||||||
|
object v2Column2: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143#32534#21495
|
||||||
|
DataBinding.FieldName = 'ZdyCode'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 91
|
||||||
|
end
|
||||||
|
object v2Column3: TcxGridDBColumn
|
||||||
|
Caption = #30005#35805
|
||||||
|
DataBinding.FieldName = 'DEFstr1'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 63
|
||||||
|
end
|
||||||
|
object v2Column4: TcxGridDBColumn
|
||||||
|
Caption = #25163#26426
|
||||||
|
DataBinding.FieldName = 'DEFstr2'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object v2Column5: TcxGridDBColumn
|
||||||
|
Caption = #20256#30495
|
||||||
|
DataBinding.FieldName = 'DEFstr3'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 64
|
||||||
|
end
|
||||||
|
object v2Column10: TcxGridDBColumn
|
||||||
|
Caption = #19994#21153#21592
|
||||||
|
DataBinding.FieldName = 'DEFstr5'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 71
|
||||||
|
end
|
||||||
|
object v2Column7: TcxGridDBColumn
|
||||||
|
Caption = #20844#21496#22320#22336
|
||||||
|
DataBinding.FieldName = 'DEFNote1'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 67
|
||||||
|
end
|
||||||
|
object v2Column8: TcxGridDBColumn
|
||||||
|
Caption = #21457#36135#22320#22336
|
||||||
|
DataBinding.FieldName = 'DEFNote2'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 72
|
||||||
|
end
|
||||||
|
object v2Column9: TcxGridDBColumn
|
||||||
|
Caption = #32852#31995#20154
|
||||||
|
DataBinding.FieldName = 'DEFstr4'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 73
|
||||||
|
end
|
||||||
|
object v2Column1: TcxGridDBColumn
|
||||||
|
Caption = #22791#27880
|
||||||
|
DataBinding.FieldName = 'Note'
|
||||||
|
PropertiesClassName = 'TcxTextEditProperties'
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 154
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGridLevel1: TcxGridLevel
|
||||||
|
GridView = Tv2
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_BaseInfo.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 789
|
||||||
|
Top = 9
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_BaseInfo.ADOLink
|
||||||
|
Parameters = <>
|
||||||
|
Left = 829
|
||||||
|
Top = 1
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_BaseInfo.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 949
|
||||||
|
Top = 225
|
||||||
|
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 = RMDB_Main
|
||||||
|
CompressLevel = rmzcFastest
|
||||||
|
CompressThread = False
|
||||||
|
LaterBuildEvents = True
|
||||||
|
OnlyOwnerDataSet = False
|
||||||
|
Left = 864
|
||||||
|
Top = 224
|
||||||
|
ReportData = {}
|
||||||
|
end
|
||||||
|
object RMDB_Main: TRMDBDataSet
|
||||||
|
Visible = True
|
||||||
|
Left = 928
|
||||||
|
Top = 216
|
||||||
|
end
|
||||||
|
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||||
|
Grid = cxGrid2
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 888
|
||||||
|
Top = 224
|
||||||
|
end
|
||||||
|
object DS_HZ: TDataSource
|
||||||
|
DataSet = CDS_HZ
|
||||||
|
Left = 899
|
||||||
|
Top = 235
|
||||||
|
end
|
||||||
|
object CDS_HZ: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 872
|
||||||
|
Top = 224
|
||||||
|
end
|
||||||
|
end
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user